Symbol Description Uses
Ifprd 95


File Line number Procedure Code
./pkg/obcs/obcs_external_fields_load.F 104 OBCS_EXTERNAL_FIELDS_LOAD 
      Ifprd = NINT(externForcingPeriod*rdt)
./pkg/obcs/obcs_external_fields_load.F 106 OBCS_EXTERNAL_FIELDS_LOAD 
      Iftm  = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc)
./pkg/obcs/obcs_external_fields_load.F 108 OBCS_EXTERNAL_FIELDS_LOAD 
      iRec0 = 1 + INT(Iftm/Ifprd)
./pkg/obcs/obcs_external_fields_load.F 111 OBCS_EXTERNAL_FIELDS_LOAD 
      aWght = FLOAT( Iftm-Ifprd*(iRec0 - 1) )
./pkg/obcs/obcs_external_fields_load.F 112 OBCS_EXTERNAL_FIELDS_LOAD 
      bWght = FLOAT( Ifprd )
./pkg/obcs/obcs_external_fields_load.F 117 OBCS_EXTERNAL_FIELDS_LOAD 
     &  Iftm-Ifprd*(iRec0-1) .EQ. 0
./pkg/obcs/obcs_external_fields_load.F 86 OBCS_EXTERNAL_FIELDS_LOAD 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./pkg/offline/offline_fields_load.F 112 OFFLINE_FIELDS_LOAD 
      Ifprd = NINT(offlineForcingPeriod*rdt)
./pkg/offline/offline_fields_load.F 114 OFFLINE_FIELDS_LOAD 
      Iftm  = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc)
./pkg/offline/offline_fields_load.F 116 OFFLINE_FIELDS_LOAD 
      intime0= 1 + INT(Iftm/Ifprd)
./pkg/offline/offline_fields_load.F 119 OFFLINE_FIELDS_LOAD 
      aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) )
./pkg/offline/offline_fields_load.F 120 OFFLINE_FIELDS_LOAD 
      bWght = FLOAT( Ifprd )
./pkg/offline/offline_fields_load.F 125 OFFLINE_FIELDS_LOAD 
     &  Iftm-Ifprd*(intime0-1) .EQ. 0
./pkg/offline/offline_fields_load.F 147 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 151 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 160 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 163 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 171 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 174 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 182 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 185 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 193 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 196 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 204 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 207 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 216 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 219 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 227 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 230 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 238 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 241 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 250 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 253 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 261 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 264 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 272 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 275 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 284 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 287 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 297 OFFLINE_FIELDS_LOAD 
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 300 OFFLINE_FIELDS_LOAD 
     &        intime1*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 68 OFFLINE_FIELDS_LOAD 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./pkg/rbcs/rbcs_fields_load.F 113 RBCS_FIELDS_LOAD 
       Ifprd = NINT(rbcsForcingPeriod*rhalfdt)
./pkg/rbcs/rbcs_fields_load.F 115 RBCS_FIELDS_LOAD 
       Iftm  = Imytm-Ifprd/2
./pkg/rbcs/rbcs_fields_load.F 116 RBCS_FIELDS_LOAD 
       Ifmod = F90MODULO(Iftm,Ifprd)
./pkg/rbcs/rbcs_fields_load.F 118 RBCS_FIELDS_LOAD 
       intime0 = (Iftm-Ifmod)/Ifprd
./pkg/rbcs/rbcs_fields_load.F 129 RBCS_FIELDS_LOAD 
       bWght = FLOAT( Ifprd )
./pkg/rbcs/rbcs_fields_load.F 142 RBCS_FIELDS_LOAD 
      Ifprd = NINT(rbcsForcingPeriod/deltaTrbcs)
./pkg/rbcs/rbcs_fields_load.F 143 RBCS_FIELDS_LOAD 
      initer0 = rbcsIter0 + intime0*Ifprd
./pkg/rbcs/rbcs_fields_load.F 144 RBCS_FIELDS_LOAD 
      initer1 = rbcsIter0 + intime1*Ifprd
./pkg/rbcs/rbcs_fields_load.F 57 RBCS_FIELDS_LOAD 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm,Ifmod
./model/src/external_fields_load.F 63 EXTERNAL_FIELDS_LOAD 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./model/src/external_fields_load.F 75 EXTERNAL_FIELDS_LOAD 
      Ifprd = NINT(externForcingPeriod*rdt)
./model/src/external_fields_load.F 78 EXTERNAL_FIELDS_LOAD 
      Iftm  = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc)
./model/src/external_fields_load.F 80 EXTERNAL_FIELDS_LOAD 
      intime0 = 1 + INT(Iftm/Ifprd)
./model/src/external_fields_load.F 87 EXTERNAL_FIELDS_LOAD 
      tmp1Wght = FLOAT( Iftm-Ifprd*(intime0 - 1) )
./model/src/external_fields_load.F 88 EXTERNAL_FIELDS_LOAD 
      tmp2Wght = FLOAT( Ifprd )
./model/src/external_fields_load.F 93 EXTERNAL_FIELDS_LOAD 
     &  Iftm-Ifprd*(intime0-1) .EQ. 0
./pkg/bulk_force/bulkf_fields_load.F 122 BULKF_FIELDS_LOAD 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./pkg/bulk_force/bulkf_fields_load.F 173 BULKF_FIELDS_LOAD 
      Ifprd = NINT(externForcingPeriod*rdt)
./pkg/bulk_force/bulkf_fields_load.F 175 BULKF_FIELDS_LOAD 
      Iftm  = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc)
./pkg/bulk_force/bulkf_fields_load.F 177 BULKF_FIELDS_LOAD 
      intime0= 1 + INT(Iftm/Ifprd)
./pkg/bulk_force/bulkf_fields_load.F 180 BULKF_FIELDS_LOAD 
      tmp1Wght = FLOAT( Iftm-Ifprd*(intime0 - 1) )
./pkg/bulk_force/bulkf_fields_load.F 181 BULKF_FIELDS_LOAD 
      tmp2Wght = FLOAT( Ifprd )
./pkg/bulk_force/bulkf_fields_load.F 186 BULKF_FIELDS_LOAD 
     &  Iftm-Ifprd*(intime0-1) .EQ. 0
./pkg/cfc/cfc_fields_load.F 38 CFC_FIELDS_LOAD 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./pkg/cfc/cfc_fields_load.F 60 CFC_FIELDS_LOAD 
       Ifprd = NINT(CFC_forcingPeriod*rdt)
./pkg/cfc/cfc_fields_load.F 62 CFC_FIELDS_LOAD 
       Iftm  = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc)
./pkg/cfc/cfc_fields_load.F 64 CFC_FIELDS_LOAD 
       intime0= 1 + INT(Iftm/Ifprd)
./pkg/cfc/cfc_fields_load.F 67 CFC_FIELDS_LOAD 
       aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) )
./pkg/cfc/cfc_fields_load.F 68 CFC_FIELDS_LOAD 
       bWght = FLOAT( Ifprd )
./pkg/cfc/cfc_fields_load.F 74 CFC_FIELDS_LOAD 
     &   Iftm-Ifprd*(intime0-1).EQ. 0
./pkg/cheapaml/cheapaml_fields_load.F 204 CHEAPAML_FIELDS_LOAD 
      Ifprd=int(externForcingPeriod*rdt+0.5)
./pkg/cheapaml/cheapaml_fields_load.F 206 CHEAPAML_FIELDS_LOAD 
      Iftm=mod( Imytm+Ifcyc-Ifprd/2 ,Ifcyc)
./pkg/cheapaml/cheapaml_fields_load.F 208 CHEAPAML_FIELDS_LOAD 
      intime0=int(Iftm/Ifprd)
./pkg/cheapaml/cheapaml_fields_load.F 211 CHEAPAML_FIELDS_LOAD 
      aWght=dfloat( Iftm-Ifprd*intime0 )/dfloat( Ifprd )
./pkg/cheapaml/cheapaml_fields_load.F 218 CHEAPAML_FIELDS_LOAD 
     &  Iftm-Ifprd*(intime0-1) .EQ. 0
./pkg/cheapaml/cheapaml_fields_load.F 84 CHEAPAML_FIELDS_LOAD 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./pkg/dic/dic_aver.F 39 DIC_AVER 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./pkg/dic/dic_aver.F 63 DIC_AVER 
      Ifprd=int(externForcingPeriod*rdt+0.5)
./pkg/dic/dic_aver.F 66 DIC_AVER 
      it=int(Iftm/Ifprd)+1
./pkg/dic/dic_fields_load.F 44 DIC_FIELDS_LOAD 
      INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./pkg/dic/dic_fields_load.F 58 DIC_FIELDS_LOAD 
       Ifprd = NINT(DIC_forcingPeriod*rdt)
./pkg/dic/dic_fields_load.F 60 DIC_FIELDS_LOAD 
       Iftm  = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc)
./pkg/dic/dic_fields_load.F 62 DIC_FIELDS_LOAD 
       intime0 = 1 + INT(Iftm/Ifprd)
./pkg/dic/dic_fields_load.F 65 DIC_FIELDS_LOAD 
       aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) )
./pkg/dic/dic_fields_load.F 66 DIC_FIELDS_LOAD 
       bWght = FLOAT( Ifprd )
./pkg/dic/dic_fields_load.F 71 DIC_FIELDS_LOAD 
     &   Iftm-Ifprd*(intime0-1).EQ. 0
./pkg/dic/dic_surfforcing_init.F 41 DIC_SURFFORCING_INIT 
       INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
./pkg/dic/dic_surfforcing_init.F 71 DIC_SURFFORCING_INIT 
       Ifprd = NINT(externForcingPeriod*rdt)
./pkg/dic/dic_surfforcing_init.F 73 DIC_SURFFORCING_INIT 
       Iftm  = MOD( Imytm+Ifcyc-Ifprd/2, Ifcyc)
./pkg/dic/dic_surfforcing_init.F 75 DIC_SURFFORCING_INIT 
       intime0 = 1 + INT(Iftm/Ifprd)
./pkg/dic/dic_surfforcing_init.F 78 DIC_SURFFORCING_INIT 
       aWght = FLOAT( Iftm-Ifprd*(intime0 - 1) )
./pkg/dic/dic_surfforcing_init.F 79 DIC_SURFFORCING_INIT 
       bWght = FLOAT( Ifprd )