Symbol Description Uses
iRec0 72



File Line number Procedure Code
./pkg/obcs/obcs_fields_load.F 103 OBCS_FIELDS_LOAD
     O                  iRecP, iRec0, iRec1, bWght, aWght,
./pkg/obcs/obcs_fields_load.F 115 OBCS_FIELDS_LOAD
     &   ' : iP,iLd,i0,i1=', iRecP,OBCS_ldRec(bi,bj), iRec0,iRec1,
./pkg/obcs/obcs_fields_load.F 127 OBCS_FIELDS_LOAD
      IF ( iRec0.NE.iRecP .OR. myIter.EQ.nIter0 ) THEN
./pkg/obcs/obcs_fields_load.F 142 OBCS_FIELDS_LOAD
     &   ' : Reading new data, i0,i1=', iRec0, iRec1,
./pkg/obcs/obcs_fields_load.F 157 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 161 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 165 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 169 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 174 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 180 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta0,iRec0,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 188 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 192 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 196 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 200 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 205 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 211 OBCS_FIELDS_LOAD
       CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta0,iRec0,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 219 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 223 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 227 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 231 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 236 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 242 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta0,iRec0,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 250 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 254 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 258 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 262 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 267 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 273 OBCS_FIELDS_LOAD
       CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta0,iRec0,myIter,myThid)
./pkg/obcs/obcs_fields_load.F 287 OBCS_FIELDS_LOAD
     &                OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid )
./pkg/obcs/obcs_fields_load.F 296 OBCS_FIELDS_LOAD
     &                OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid )
./pkg/obcs/obcs_fields_load.F 305 OBCS_FIELDS_LOAD
     &                OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid )
./pkg/obcs/obcs_fields_load.F 314 OBCS_FIELDS_LOAD
     &                OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid )
./pkg/obcs/obcs_fields_load.F 360 OBCS_FIELDS_LOAD
        iRec0 = 1
./pkg/obcs/obcs_fields_load.F 365 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 368 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 371 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 374 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 378 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 383 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBEetaFile, fp, 1, OBEeta0, iRec0,
./pkg/obcs/obcs_fields_load.F 391 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 394 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 397 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 400 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 404 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 409 OBCS_FIELDS_LOAD
         CALL READ_REC_YZ_RL( OBWetaFile, fp, 1, OBWeta0, iRec0,
./pkg/obcs/obcs_fields_load.F 417 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 420 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 423 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 426 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 430 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 435 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBNetaFile, fp, 1, OBNeta0, iRec0,
./pkg/obcs/obcs_fields_load.F 443 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 446 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 449 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 452 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 456 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid )
./pkg/obcs/obcs_fields_load.F 461 OBCS_FIELDS_LOAD
         CALL READ_REC_XZ_RL( OBSetaFile, fp, 1, OBSeta0, iRec0,
./pkg/obcs/obcs_fields_load.F 474 OBCS_FIELDS_LOAD
     &               OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid )
./pkg/obcs/obcs_fields_load.F 481 OBCS_FIELDS_LOAD
     &               OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid )
./pkg/obcs/obcs_fields_load.F 488 OBCS_FIELDS_LOAD
     &               OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid )
./pkg/obcs/obcs_fields_load.F 495 OBCS_FIELDS_LOAD
     &               OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid )
./pkg/obcs/obcs_fields_load.F 85 OBCS_FIELDS_LOAD
      INTEGER iRecP, iRec0, iRec1
./pkg/cfc/cfc11_forcing.F 102 CFC11_FORCING
     &        intime0, bWght, ACFCyear(iRec0)
./pkg/cfc/cfc11_forcing.F 71 CFC11_FORCING
      INTEGER intimeP, intime0, intime1, iRec0, iRec1
./pkg/cfc/cfc11_forcing.F 90 CFC11_FORCING
       iRec0 = MAX( 1, MIN( ACFCnRec, intime0 ) )
./pkg/cfc/cfc11_forcing.F 92 CFC11_FORCING
       ACFC11north = ACFC11( iRec0, 1 )*bWght
./pkg/cfc/cfc11_forcing.F 94 CFC11_FORCING
       ACFC11south = ACFC11( iRec0, 2 )*bWght
./pkg/cfc/cfc12_forcing.F 103 CFC12_FORCING
     &        intime0, bWght, ACFCyear(iRec0)
./pkg/cfc/cfc12_forcing.F 72 CFC12_FORCING
      INTEGER intimeP, intime0, intime1, iRec0, iRec1
./pkg/cfc/cfc12_forcing.F 91 CFC12_FORCING
       iRec0 = MAX( 1, MIN( ACFCnRec, intime0 ) )
./pkg/cfc/cfc12_forcing.F 93 CFC12_FORCING
       ACFC12north = ACFC12( iRec0, 1 )*bWght
./pkg/cfc/cfc12_forcing.F 95 CFC12_FORCING
       ACFC12south = ACFC12( iRec0, 2 )*bWght