Symbol Description Uses
externForcingCycle Is the repeat time of the forcing (eg. 1 year) 25


File Line number Procedure Code
./pkg/dic/dic_surfforcing_init.F 66 DIC_SURFFORCING_INIT 
     &  int(externForcingCycle/externForcingPeriod+0.5)
./pkg/dic/dic_surfforcing_init.F 70 DIC_SURFFORCING_INIT 
       Ifcyc=int(externForcingCycle*rdt+0.5)
./pkg/dic/dic_fields_load.F 56 DIC_FIELDS_LOAD 
     &  int(externForcingCycle/externForcingPeriod+0.5)
./pkg/dic/dic_fields_load.F 60 DIC_FIELDS_LOAD 
       Ifcyc=int(externForcingCycle*rdt+0.5)
./pkg/dic/dic_aver.F 70 DIC_AVER 
      nForcingPeriods=int(externForcingCycle/externForcingPeriod+0.5)
./pkg/dic/dic_aver.F 73 DIC_AVER 
      Ifcyc=int(externForcingCycle*rdt+0.5)
./pkg/obcs/obcs_external_fields_load.F 77 OBCS_EXTERNAL_FIELDS_LOAD 
      nForcingPeriods=int(externForcingCycle/externForcingPeriod+0.5)
./pkg/obcs/obcs_external_fields_load.F 80 OBCS_EXTERNAL_FIELDS_LOAD 
      Ifcyc=int(externForcingCycle*rdt+0.5)
./pkg/bulk_force/bulkf_fields_load.F 179 BULKF_FIELDS_LOAD 
     &  int(externForcingCycle/externForcingPeriod+0.5)
./pkg/bulk_force/bulkf_fields_load.F 182 BULKF_FIELDS_LOAD 
      Ifcyc=int(externForcingCycle*rdt+0.5)
./model/src/external_fields_load.F 101 EXTERNAL_FIELDS_LOAD 
      Ifcyc = NINT(externForcingCycle*rdt)
./model/src/external_fields_load.F 98 EXTERNAL_FIELDS_LOAD 
      nForcingPeriods = NINT(externForcingCycle/externForcingPeriod)
./model/src/config_summary.F 441 CONFIG_SUMMARY 
      CALL WRITE_0D_R8( externForcingCycle, INDEX_NONE,
./verification/natl_box/code/external_fields_load.F 91 EXTERNAL_FIELDS_LOAD 
      nForcingPeriods=int(externForcingCycle/externForcingPeriod)
./verification/natl_box/code/external_fields_load.F 94 EXTERNAL_FIELDS_LOAD 
      Ifcyc=int(externForcingCycle*rdt)
./model/src/ini_parms.F 204 INI_PARMS 
     & periodicExternalForcing, externForcingPeriod, externForcingCycle,
./model/src/ini_parms.F 745 INI_PARMS 
       IF ( externForcingCycle*externForcingPeriod .EQ. 0. ) THEN
./model/src/ini_parms.F 751 INI_PARMS 
       IF ( INT(externForcingCycle/externForcingPeriod) .NE.
./model/src/ini_parms.F 752 INI_PARMS 
     &          externForcingCycle/externForcingPeriod ) THEN
./model/src/ini_parms.F 758 INI_PARMS 
       IF ( externForcingCycle.lt.externForcingPeriod ) THEN
./model/inc/PARAMS.h 601 NO PROCEDURE 
     & externForcingCycle, externForcingPeriod,
./model/inc/PARAMS.h 712 NO PROCEDURE 
      _RL externForcingCycle
./pkg/cfc/cfc_fields_load.F 67 CFC_FIELDS_LOAD 
     &  int(externForcingCycle/externForcingPeriod+0.5)
./pkg/cfc/cfc_fields_load.F 71 CFC_FIELDS_LOAD 
       Ifcyc=int(externForcingCycle*rdt+0.5)
./model/src/set_defaults.F 271 SET_DEFAULTS 
      externForcingCycle      = 0.