Changeset 11876 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.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/isfparmlt.F90 (modified) (3 diffs)

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

@@ -105 +105 @@
       pqoce(:,:) =   pqfwf(:,:) * rLfusisf             ! ocean/ice shelf flux assume to be equal to latent heat flux
       pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux 
+      CALL iom_put('isftfrz_par', ztfrz )
       !
    END SUBROUTINE isfpar_mlt_spe
@@ -154 +155 @@
       ! output thermal driving
       CALL iom_put('isfthermald_par',( ztfrz(:,:) - ztavg(:,:) ) * mskisf_par(:,:))
+      CALL iom_put('isftfrz_par', ztfrz )
       !
    END SUBROUTINE isfpar_mlt_bg03
@@ -210 +212 @@
       pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  ( >0 out )
       !
+      CALL iom_put('isftfrz_par', ztfrz )
+      !
    END SUBROUTINE isfpar_mlt_oasis