| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_external_fields_load.F |
100 |
OBCS_EXTERNAL_FIELDS_LOAD |
iRec0 = 1 + INT(Iftm/Ifprd) |
|
./pkg/obcs/obcs_external_fields_load.F |
101 |
OBCS_EXTERNAL_FIELDS_LOAD |
iRec1 = 1 + MOD(iRec0,nForcingPeriods) |
|
./pkg/obcs/obcs_external_fields_load.F |
103 |
OBCS_EXTERNAL_FIELDS_LOAD |
aWght = FLOAT( Iftm-Ifprd*(iRec0 - 1) ) |
|
./pkg/obcs/obcs_external_fields_load.F |
109 |
OBCS_EXTERNAL_FIELDS_LOAD |
& Iftm-Ifprd*(iRec0-1) .EQ. 0 |
|
./pkg/obcs/obcs_external_fields_load.F |
123 |
OBCS_EXTERNAL_FIELDS_LOAD |
& iRec0, iRec1, myIter, myTime |
|
./pkg/obcs/obcs_external_fields_load.F |
130 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile, fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
134 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile, fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
138 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile, fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
142 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile, fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
147 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile, fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
153 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBEetaFile,fp,1,OBEeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
161 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile, fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
165 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile, fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
169 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile, fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
173 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile, fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
178 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile, fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
184 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL(OBWetaFile,fp,1,OBWeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
192 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile, fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
196 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile, fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
200 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile, fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
204 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile, fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
209 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNwFile, fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
215 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
223 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile, fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
227 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile, fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
231 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile, fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
235 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile, fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
240 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSwFile, fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
246 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta0,iRec0,myIter,myThid) |
|
./pkg/obcs/obcs_external_fields_load.F |
259 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
268 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
277 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
286 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
324 |
OBCS_EXTERNAL_FIELDS_LOAD |
iRec0 = 1 |
|
./pkg/obcs/obcs_external_fields_load.F |
329 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEuFile,fp,Nr,OBEu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
332 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEvFile,fp,Nr,OBEv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
335 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEtFile,fp,Nr,OBEt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
338 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEsFile,fp,Nr,OBEs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
342 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEwFile,fp,Nr,OBEw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
347 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBEetaFile, fp, 1, OBEeta0, iRec0, |
|
./pkg/obcs/obcs_external_fields_load.F |
355 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWuFile,fp,Nr,OBWu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
358 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWvFile,fp,Nr,OBWv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
361 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWtFile,fp,Nr,OBWt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
364 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWsFile,fp,Nr,OBWs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
368 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWwFile,fp,Nr,OBWw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
373 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBWetaFile, fp, 1, OBWeta0, iRec0, |
|
./pkg/obcs/obcs_external_fields_load.F |
381 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNuFile,fp,Nr,OBNu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
384 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNvFile,fp,Nr,OBNv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
387 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNtFile,fp,Nr,OBNt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
390 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNsFile,fp,Nr,OBNs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
394 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBNwFile,fp,Nr,OBNw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
399 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBNetaFile, fp, 1, OBNeta0, iRec0, |
|
./pkg/obcs/obcs_external_fields_load.F |
407 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSuFile,fp,Nr,OBSu0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
410 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSvFile,fp,Nr,OBSv0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
413 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBStFile,fp,Nr,OBSt0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
416 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSsFile,fp,Nr,OBSs0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
420 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_YZ_RL( OBSwFile,fp,Nr,OBSw0,iRec0,myIter,myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
425 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL( OBSetaFile, fp, 1, OBSeta0, iRec0, |
|
./pkg/obcs/obcs_external_fields_load.F |
438 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBEptr0(1-Oly,1,1,1,iTr), iRec0,myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
445 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBWptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
452 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBNptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
459 |
OBCS_EXTERNAL_FIELDS_LOAD |
& OBSptr0(1-Oly,1,1,1,iTr), iRec0, myIter, myThid ) |
|
./pkg/obcs/obcs_external_fields_load.F |
76 |
OBCS_EXTERNAL_FIELDS_LOAD |
INTEGER iRec0, iRec1 |