File |
Line number |
Procedure |
Code |
./pkg/obcs/OBCS.h |
108 |
NO PROCEDURE |
& OBNetaFile,OBSetaFile,OBEetaFile,OBWetaFile, |
./pkg/obcs/OBCS.h |
97 |
NO PROCEDURE |
& OBNetaFile,OBSetaFile,OBEetaFile,OBWetaFile, |
./pkg/obcs/obcs_check.F |
320 |
OBCS_CHECK |
& ( OBNetaFile.NE.' ' .OR. OBSetaFile.NE.' ' .OR. |
./pkg/obcs/obcs_external_fields_load.F |
222 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBNetaFile .NE. ' ' ) THEN |
./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 |
224 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBNetaFile,fp,1,OBNeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
406 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBNetaFile .NE. ' ' ) THEN |
./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 |
551 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBNetaFile .NE. ' ' ) THEN |
./pkg/obcs/obcs_readparms.F |
135 |
OBCS_READPARMS |
& OBNetaFile, OBSetaFile, OBEetaFile, OBWetaFile, |
./pkg/obcs/obcs_readparms.F |
240 |
OBCS_READPARMS |
OBNetaFile = ' ' |