NASA Ocean Color

ocssw V2022

       SUBROUTINE corect(IDNCAT, DATCAT, NUMCLM, LBLCLM, TIMCLM,                      
      *            NRFCLM, MAPCLM, MRKCLM, SKYCLM, IERR)                        
  
       real*8    timclm(*)                         
 C                                                                               
       real*4    datcat(7,*)                                       
       real*4    skyclm(10,3,*)                                    
 C                                                                               
       INTEGER*4 IDNCAT(*)              
       INTEGER*4 NUMCLM      , MRKCLM(*), NUMSTR                 
       INTEGER*4 NRFCLM(*)              
       INTEGER*4 LBLCLM(*)   , MAPCLM(10,*)  
 C                                                                               
 C     * DECLARE LOCAL VARIABLES                                                 
       INTEGER*4 IERR        , NUMTRP        , NUMDUB   , NUMCAT  ,LUCAT
 C                                                                               
  
       DO i=1,numclm
         DO j=1,nrfclm(i)
           DO k=1,3
             skyclm(j,k,i) = datcat(k,mapclm(j,i))
           END DO
         END DO
       END DO
  
       ierr = 0
       RETURN
       END

real

#define real

Definition: DbAlgOcean.cpp:26

corect

subroutine corect(IDNCAT, DATCAT, NUMCLM, LBLCLM, TIMCLM, NRFCLM, MAPCLM, MRKCLM, SKYCLM, IERR)

Definition: corect.f:3