Symbol Description Uses
fld_ocn 11



File Line number Procedure Code
./pkg/aim_ocn_coupler/ocn_to_atm_mapxyr8.F 32 OCN_TO_ATM_MAPXYR8
      Real*8 fld_ocn(oNx, oNy)
./pkg/aim_ocn_coupler/ocn_to_atm_mapxyr8.F 48 OCN_TO_ATM_MAPXYR8
        fld_atm(I,J)=fld_ocn(I,J)
./pkg/aim_ocn_coupler/ocn_to_atm_mapxyr8.F 9 OCN_TO_ATM_MAPXYR8
     I           fld_ocn, 
./pkg/aim_ocn_coupler/atm_to_ocn_maprunoff.F 25 ATM_TO_OCN_MAPRUNOFF
      _RL  fld_ocn(Nx_ocn*Ny_ocn)
./pkg/aim_ocn_coupler/atm_to_ocn_maprunoff.F 41 ATM_TO_OCN_MAPRUNOFF
          fld_ocn(ijo)=fld_ocn(ijo)
./pkg/aim_ocn_coupler/atm_to_ocn_maprunoff.F 9 ATM_TO_OCN_MAPRUNOFF
     U           fld_ocn )
./pkg/aim_ocn_coupler/atm_to_ocn_mapxyr8.F 11 ATM_TO_OCN_MAPXYR8
     O           fld_ocn )
./pkg/aim_ocn_coupler/atm_to_ocn_mapxyr8.F 32 ATM_TO_OCN_MAPXYR8
      Real*8 fld_ocn(oNx, oNy)
./pkg/aim_ocn_coupler/atm_to_ocn_mapxyr8.F 41 ATM_TO_OCN_MAPXYR8
        fld_ocn(I,J)=0.
./pkg/aim_ocn_coupler/atm_to_ocn_mapxyr8.F 48 ATM_TO_OCN_MAPXYR8
        fld_ocn(I,J)=fld_atm(I,J)