| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_external_fields_load.F |
108 |
OBCS_EXTERNAL_FIELDS_LOAD |
iRec0 = 1 + INT(Iftm/Ifprd) |
|
./pkg/obcs/obcs_external_fields_load.F |
109 |
OBCS_EXTERNAL_FIELDS_LOAD |
iRec1 = 1 + MOD(iRec0,nForcingPeriods) |
|
./pkg/obcs/obcs_external_fields_load.F |
111 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(iRec0 - 1) ) |
|
./pkg/obcs/obcs_external_fields_load.F |
117 |
OBCS_EXTERNAL_FIELDS_LOAD |
& Iftm-Ifprd*(iRec0-1) .EQ. 0 |
|
./pkg/obcs/obcs_external_fields_load.F |
131 |
OBCS_EXTERNAL_FIELDS_LOAD |
& iRec0, iRec1, myIter, myTime |
|
./pkg/obcs/obcs_external_fields_load.F |
138 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
142 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
146 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
150 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
155 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
161 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
169 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
173 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
177 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
181 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
186 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
192 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
200 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
204 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
208 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
212 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
217 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
223 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
231 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
235 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
239 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
243 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
248 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
254 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
267 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
276 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
285 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
294 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
332 |
OBCS_EXTERNAL_FIELDS_LOAD |
iRec0 = 1 |
|
./pkg/obcs/obcs_external_fields_load.F |
337 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
340 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
343 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
346 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
350 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
355 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEetaFile, fp, 1, OBEeta0, iRec0, |
|
./pkg/obcs/obcs_external_fields_load.F |
363 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
366 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
369 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
372 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
376 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
381 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWetaFile, fp, 1, OBWeta0, iRec0, |
|
./pkg/obcs/obcs_external_fields_load.F |
389 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
392 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
395 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
398 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
402 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
407 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNetaFile, fp, 1, OBNeta0, iRec0, |
|
./pkg/obcs/obcs_external_fields_load.F |
415 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
418 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
421 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
424 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
428 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
433 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSetaFile, fp, 1, OBSeta0, iRec0, |
|
./pkg/obcs/obcs_external_fields_load.F |
446 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
453 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
460 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
467 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
84 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER iRec0, iRec1 |