Changeset 11876 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcavmlt.F90

Timestamp:

2019-11-08T12:26:42+01:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: add timing in the main isf routine + various bug fixes + cosmetic changes

File:

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

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

@@ -122 +122 @@
       pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  ( >0 out)
       !
+      ! output freezing point at the interface
+      CALL iom_put('isftfrz_cav', ztfrz )
+      !
    END SUBROUTINE isfcav_mlt_spe
 
@@ -163 +166 @@
       pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp                 ! heat content flux ( > 0 out )
       !
-      ! output thermal driving
+      ! output thermal driving and freezinpoint at the ice shelf interface
       CALL iom_put('isfthermald_cav', zthd )
+      CALL iom_put('isftfrz_cav'    , ztfrz )
       !
    END SUBROUTINE isfcav_mlt_2eq
@@ -248 +252 @@
       CALL iom_put('qconisf', zqcon(:,:) * mskisf_cav(:,:) )
       !
-      ! output thermal driving
-      CALL iom_put('isfthermald_cav', zthd(:,:) * mskisf_cav(:,:) )
+      ! output thermal driving and freezing point at the interface
+      CALL iom_put('isfthermald_cav', zthd (:,:) * mskisf_cav(:,:) )
+      CALL iom_put('isftfrz_cav'    , ztfrz(:,:) * mskisf_cav(:,:) )
       !
    END SUBROUTINE isfcav_mlt_3eq
@@ -302 +307 @@
       pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  ( >0 out)
       !
+      CALL iom_put('isftfrz_cav', ztfrz * mskisf_cav(:,:) )
    END SUBROUTINE isfcav_mlt_oasis