Symbol Description Uses
externForcingPeriod Is the period of which forcing varies (eg. 1 month) 27



File Line number Procedure Code
./model/inc/PARAMS.h 653 NO PROCEDURE
     & externForcingCycle, externForcingPeriod,
./model/inc/PARAMS.h 768 NO PROCEDURE
      _RL externForcingPeriod
./pkg/bulk_force/bulkf_fields_load.F 171 BULKF_FIELDS_LOAD
      nForcingPeriods = NINT(externForcingCycle/externForcingPeriod)
./pkg/bulk_force/bulkf_fields_load.F 173 BULKF_FIELDS_LOAD
      Ifprd = NINT(externForcingPeriod*rdt)
./pkg/dic/dic_aver.F 70 DIC_AVER
      nForcingPeriods=int(externForcingCycle/externForcingPeriod+0.5)
./pkg/dic/dic_aver.F 72 DIC_AVER
      Ifprd=int(externForcingPeriod*rdt+0.5)
./pkg/dic/dic_fields_load.F 56 DIC_FIELDS_LOAD
     &  int(externForcingCycle/externForcingPeriod+0.5)
./pkg/dic/dic_fields_load.F 59 DIC_FIELDS_LOAD
       Ifprd=int(externForcingPeriod*rdt+0.5)
./pkg/dic/dic_surfforcing_init.F 66 DIC_SURFFORCING_INIT
     &  int(externForcingCycle/externForcingPeriod+0.5)
./pkg/dic/dic_surfforcing_init.F 69 DIC_SURFFORCING_INIT
       Ifprd=int(externForcingPeriod*rdt+0.5)
./verification/natl_box/code/external_fields_load.F 91 EXTERNAL_FIELDS_LOAD
      nForcingPeriods=int(externForcingCycle/externForcingPeriod)
./verification/natl_box/code/external_fields_load.F 93 EXTERNAL_FIELDS_LOAD
      Ifprd=int(externForcingPeriod*rdt)
./verification/natl_box/code/external_fields_load.F 99 EXTERNAL_FIELDS_LOAD
      aWght=mod(myTime/externForcingPeriod,1. _d 0)
./model/src/ini_parms.F 225 INI_PARMS
     & periodicExternalForcing, externForcingPeriod, externForcingCycle,
./model/src/ini_parms.F 807 INI_PARMS
       IF ( externForcingCycle*externForcingPeriod .EQ. 0. ) THEN
./model/src/ini_parms.F 813 INI_PARMS
       IF ( INT(externForcingCycle/externForcingPeriod) .NE.
./model/src/ini_parms.F 814 INI_PARMS
     &          externForcingCycle/externForcingPeriod ) THEN
./model/src/ini_parms.F 820 INI_PARMS
       IF ( externForcingCycle.lt.externForcingPeriod ) THEN
./model/src/ini_parms.F 826 INI_PARMS
       IF ( externForcingPeriod.lt.deltaTclock ) THEN
./model/src/external_fields_load.F 100 EXTERNAL_FIELDS_LOAD
      Ifprd = NINT(externForcingPeriod*rdt)
./model/src/external_fields_load.F 98 EXTERNAL_FIELDS_LOAD
      nForcingPeriods = NINT(externForcingCycle/externForcingPeriod)
./model/src/config_summary.F 499 CONFIG_SUMMARY
      CALL WRITE_0D_R8( externForcingPeriod, INDEX_NONE,
./model/src/set_defaults.F 283 SET_DEFAULTS
      externForcingPeriod     = 0.
./pkg/cfc/cfc_fields_load.F 67 CFC_FIELDS_LOAD
     &  int(externForcingCycle/externForcingPeriod+0.5)
./pkg/cfc/cfc_fields_load.F 70 CFC_FIELDS_LOAD
       Ifprd=int(externForcingPeriod*rdt+0.5)
./pkg/obcs/obcs_external_fields_load.F 85 OBCS_EXTERNAL_FIELDS_LOAD
      nForcingPeriods=int(externForcingCycle/externForcingPeriod+0.5)
./pkg/obcs/obcs_external_fields_load.F 87 OBCS_EXTERNAL_FIELDS_LOAD
      Ifprd=int(externForcingPeriod*rdt+0.5)