pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F

7f58e89433 Jean*0001 #include "CPP_OPTIONS.h"
                0002
8e7fefb5a9 Jean*0003 CBOP 0
                0004 C !ROUTINE: ATM_TO_OCN_MAPRUNOFF
                0005
                0006 C !INTERFACE:
7412e6d2ad Jean*0007       SUBROUTINE ATM_TO_OCN_MAPRUNOFF(
                0008      I           fld_atm,
8e7fefb5a9 Jean*0009      O           fld_ocn,
                0010      U           add2ocn )
                0011
                0012 C !DESCRIPTION:
7f58e89433 Jean*0013 C     *==========================================================*
                0014 C     | SUBROUTINE ATM_TO_OCN_MAPRUNOFF
                0015 C     | o maps RunOff from atmos. grid (land) to ocean grid
8e7fefb5a9 Jean*0016 C     |    and Incorporate (substract) to ocean FreshWater flux
7f58e89433 Jean*0017 C     *==========================================================*
                0018
8e7fefb5a9 Jean*0019 C !USES:
                0020       IMPLICIT NONE
                0021 C     == Global variables ==
7f58e89433 Jean*0022 #include "ATMSIZE.h"
                0023 #include "OCNSIZE.h"
                0024 #include "CPL_MAP2GRIDS.h"
                0025
8e7fefb5a9 Jean*0026 C !INPUT/OUTPUT PARAMETERS:
                0027 C     fld_atm :: Atmos. grid Run-Off field
                0028 C     fld_ocn :: Ocean grid Run-Off field (atmos field will be mapped to this)
                0029 C     add2ocn :: Ocean grid FreshWater field to update by substracting Run-Off
7f58e89433 Jean*0030       _RL  fld_atm(Nx_atm*Ny_atm)
                0031       _RL  fld_ocn(Nx_ocn*Ny_ocn)
8e7fefb5a9 Jean*0032       _RL  add2ocn(Nx_ocn*Ny_ocn)
                0033 CEOP
7f58e89433 Jean*0034
8e7fefb5a9 Jean*0035 C !LOCAL VARIABLES:
7f58e89433 Jean*0036       INTEGER n, ijo, ija
                0037
7412e6d2ad Jean*0038 C       Set to zero everywhere
8e7fefb5a9 Jean*0039         DO ijo=1,Nx_ocn*Ny_ocn
                0040           fld_ocn(ijo) = 0.
                0041         ENDDO
7f58e89433 Jean*0042
7412e6d2ad Jean*0043 C       Maps Runoff from land grid point to ocean grid point
7f58e89433 Jean*0044 C       and update oceanic FreshWater flux (substract RunOff)
                0045         DO n=1,nROmap
                0046           ijo=ijROocn(n)
                0047           ija=ijROatm(n)
8e7fefb5a9 Jean*0048           fld_ocn(ijo) = fld_ocn(ijo)
                0049      &                 + fld_atm(ija)*arROmap(n)
                0050           add2ocn(ijo) = add2ocn(ijo)
                0051      &                 - fld_atm(ija)*arROmap(n)
7f58e89433 Jean*0052         ENDDO
                0053
                0054       RETURN
                0055       END