Changeset 15004 for NEMO/trunk/src/OCE/ISF/isfdiags.F90

Timestamp:

2021-06-16T12:33:18+02:00 (3 years ago)

Author:

mathiot

Message:

ticket #2960: commit fix to the trunk (WARNING: output convention of isf fluxes changed from oce->isf to isf->oce), no impact on the input file needed for some options

File:

• NEMO/trunk/src/OCE/ISF/isfdiags.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/ISF/isfdiags.F90

@@ -40 +40 @@
       !!
       !! ** Purpose : manage the 2d and 3d flux outputs of the ice shelf module
-      !!              fwf, latent heat flux, heat content flux, oce->ice heat flux
+      !!              from isf to oce fwf, latent heat, heat content fluxes
       !!
       !!----------------------------------------------------------------------
@@ -62 +62 @@
       !
       ! output 2d melt rate, latent heat and heat content flux from the injected water
-      CALL iom_put( TRIM(cvarqfwf), pqfwf(:,:) )   ! mass         flux ( >0 out )
-      CALL iom_put( TRIM(cvarqoce), pqoce(:,:) )   ! oce to ice   flux ( >0 out )
-      CALL iom_put( TRIM(cvarqlat), pqlat(:,:) )   ! latent heat  flux ( >0 out )
-      CALL iom_put( TRIM(cvarqhc) , pqhc (:,:) )   ! heat content flux ( >0 out )
+      CALL iom_put( TRIM(cvarqfwf), pqfwf(:,:) )   ! mass         flux ( > 0 from isf to oce)
+      CALL iom_put( TRIM(cvarqoce), pqoce(:,:) )   ! oce to ice   flux ( > 0 from isf to oce)
+      CALL iom_put( TRIM(cvarqlat), pqlat(:,:) )   ! latent heat  flux ( > 0 from isf to oce)
+      CALL iom_put( TRIM(cvarqhc) , pqhc (:,:) )   ! heat content flux ( > 0 from isf to oce)
       !
       ! output 3d Diagnostics