Changeset 11423 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90

Timestamp:

2019-08-08T16:02:49+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo : add UKESM ice sheet coupling method (ticket #2142)

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90

@@ -162 +162 @@
       !!
       !! ** Purpose    : - read ice shelf melt from forcing file => pattern
-      !!                 - total amount of fwf is given by sbccpl (fwfisf_cpl)
+      !!                 - total amount of fwf is given by sbccpl (fwfisf_oasis)
       !!                 - scale fwf and compute heat fluxes
       !!
@@ -172 +172 @@
       !!--------------------------------------------------------------------
       INTEGER                           :: jk                            ! loop index
-      REAL(wp)                          :: zfwf_fld, zfwf_cpl            ! total fwf in the forcing fields (pattern) and from the cpl interface (amount)
+      REAL(wp)                          :: zfwf_fld, zfwf_oasis            ! total fwf in the forcing fields (pattern) and from the cpl interface (amount)
       REAL(wp), DIMENSION(jpi,jpj)      :: ztfrz                         ! tbl freezing temperature
       REAL(wp), DIMENSION(jpi,jpj)      :: zfwf                          ! 2d fwf map after scaling
@@ -195 +195 @@
       !
       ! compute glob sum from atm->oce ice shelf fwf
-      zfwf_cpl = glob_sum('isfcav_mlt', fwfisf_cpl(:,:))
+      zfwf_oasis = glob_sum('isfcav_mlt', fwfisf_oasis(:,:))
       !
       ! scale fwf
-      zfwf(:,:) = zfwf(:,:) * zfwf_cpl / zfwf_fld
+      zfwf(:,:) = zfwf(:,:) * zfwf_oasis / zfwf_fld
       ! 
       ! define fwf and qoce