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 |
253 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBSetaFile .NE. ' ' ) THEN |
./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 |
255 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL READ_REC_XZ_RL(OBSetaFile,fp,1,OBSeta1,iRec1,myIter,myThid) |
./pkg/obcs/obcs_external_fields_load.F |
432 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBSetaFile .NE. ' ' ) THEN |
./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 |
577 |
OBCS_EXTERNAL_FIELDS_LOAD |
IF ( OBSetaFile .NE. ' ' ) THEN |
./pkg/obcs/obcs_readparms.F |
135 |
OBCS_READPARMS |
& OBNetaFile, OBSetaFile, OBEetaFile, OBWetaFile, |
./pkg/obcs/obcs_readparms.F |
241 |
OBCS_READPARMS |
OBSetaFile = ' ' |