| 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 |
132 |
OBCS_FIELDS_LOAD |
IF ( iRec1.NE.OBCS_ldRec(bi,bj) ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
142 |
OBCS_FIELDS_LOAD |
& ' : Reading new data, i0,i1=', iRec0, iRec1, |
|
./pkg/obcs/obcs_fields_load.F |
158 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
162 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
166 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
170 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
175 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
181 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
189 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
193 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
197 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
201 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
206 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
212 |
OBCS_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
220 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
224 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
228 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
232 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
237 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
243 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
251 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
255 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
259 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
263 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
268 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw1,iRec1,myIter,myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
274 |
OBCS_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta1,iRec1,myIter,myThid) |
|
./pkg/obcs/obcs_fields_load.F |
289 |
OBCS_FIELDS_LOAD |
& OBEptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
298 |
OBCS_FIELDS_LOAD |
& OBWptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
307 |
OBCS_FIELDS_LOAD |
& OBNptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
316 |
OBCS_FIELDS_LOAD |
& OBSptr1(1-Oly,1,1,1,iTr), iRec1, myIter, myThid ) |
|
./pkg/obcs/obcs_fields_load.F |
336 |
OBCS_FIELDS_LOAD |
OBCS_ldRec(bi,bj) = iRec1 |
|
./pkg/obcs/obcs_fields_load.F |
85 |
OBCS_FIELDS_LOAD |
INTEGER iRecP, iRec0, iRec1 |
|
./pkg/cfc/cfc11_forcing.F |
107 |
CFC11_FORCING |
& intime1, aWght, ACFCyear(iRec1) |
|
./pkg/cfc/cfc11_forcing.F |
71 |
CFC11_FORCING |
INTEGER intimeP, intime0, intime1, iRec0, iRec1 |
|
./pkg/cfc/cfc11_forcing.F |
91 |
CFC11_FORCING |
iRec1 = MAX( 1, MIN( ACFCnRec, intime1 ) ) |
|
./pkg/cfc/cfc11_forcing.F |
93 |
CFC11_FORCING |
& + ACFC11( iRec1, 1 )*aWght |
|
./pkg/cfc/cfc11_forcing.F |
95 |
CFC11_FORCING |
& + ACFC11( iRec1, 2 )*aWght |
|
./pkg/cfc/cfc12_forcing.F |
108 |
CFC12_FORCING |
& intime1, aWght, ACFCyear(iRec1) |
|
./pkg/cfc/cfc12_forcing.F |
72 |
CFC12_FORCING |
INTEGER intimeP, intime0, intime1, iRec0, iRec1 |
|
./pkg/cfc/cfc12_forcing.F |
92 |
CFC12_FORCING |
iRec1 = MAX( 1, MIN( ACFCnRec, intime1 ) ) |
|
./pkg/cfc/cfc12_forcing.F |
94 |
CFC12_FORCING |
& + ACFC12( iRec1, 1 )*aWght |
|
./pkg/cfc/cfc12_forcing.F |
96 |
CFC12_FORCING |
& + ACFC12( iRec1, 2 )*aWght |