Symbol Description Uses
cflan 19


File Line number Procedure Code
./pkg/atm2d/AGRID.h 44 NO PROCEDURE 
      COMMON/OCDATA/mmsst,mmfice,mmtice,mmco2flux,cflan,mmsAlb,
./pkg/atm2d/AGRID.h 50 NO PROCEDURE 
       REAL*8 cflan(jm0)    ! fraction of land in latitude circle
./pkg/atm2d/init_atm2d.F 152 INIT_ATM2D 
        cflan(j_atm)=0. _d 0
./pkg/atm2d/init_atm2d.F 170 INIT_ATM2D 
        cflan(j_atm)=1. _d 0 - ocnArea(j_atm) /
./pkg/atm2d/init_atm2d.F 173 INIT_ATM2D 
        if (cflan(j_atm).LT.1. _d -14) cflan(j_atm)=0. _d 0
./pkg/atm2d/init_atm2d.F 177 INIT_ATM2D 
      cflan(2)= 1. _d 0 - ocnArea(2) /
./pkg/atm2d/init_atm2d.F 180 INIT_ATM2D 
      IF (cflan(2).LT.1. _d -14) cflan(2)=0. _d 0
./pkg/atm2d/init_atm2d.F 181 INIT_ATM2D 
      cflan(1)=cflan(2)
./pkg/atm2d/init_atm2d.F 182 INIT_ATM2D 
      cflan(jm0-1)= 1.d0 - ocnArea(jm0-1) /
./pkg/atm2d/init_atm2d.F 185 INIT_ATM2D 
      IF (cflan(jm0-1).LT.1. _d -14) cflan(jm0-1)=0. _d 0
./pkg/atm2d/init_atm2d.F 186 INIT_ATM2D 
      cflan(jm0)=cflan(jm0-1)
./pkg/atm2d/init_atm2d.F 189 INIT_ATM2D 
      PRINT *, cflan
./pkg/atm2d/read_atmos.F 82 READ_ATMOS 
      IF (cflan(2).NE.1. _d 0)
./pkg/atm2d/read_atmos.F 84 READ_ATMOS 
      IF (cflan(jm0-1).NE.1. _d 0)