Changeset 15004 for NEMO/trunk/src/OCE/ISF/isfcav.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/isfcav.F90 (modified) (3 diffs)

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

@@ -60 +60 @@
       !!                   - output
       !! 
-      !! ** Convention : all fluxes are from oce to isf ( > 0 out of the ocean )
+      !! ** Convention : all fluxes are from isf to oce
       !!
       !!---------------------------------------------------------------------
       !!-------------------------- OUT --------------------------------------
-      REAL(wp), DIMENSION(jpi,jpj)     , INTENT(inout) :: pqfwf  ! ice shelf melt (>0 out)
+      REAL(wp), DIMENSION(jpi,jpj)     , INTENT(inout) :: pqfwf  ! ice shelf fwf
       REAL(wp), DIMENSION(jpi,jpj,jpts), INTENT(inout) :: ptsc   ! T & S ice shelf cavity contents
       !!-------------------------- IN  --------------------------------------
@@ -127 +127 @@
       END DO
       !
-      ! compute heat and water flux ( > 0 out )
+      ! compute heat and water flux ( > 0 from isf to oce)
       pqfwf(:,:) = pqfwf(:,:) * mskisf_cav(:,:)
       zqoce(:,:) = zqoce(:,:) * mskisf_cav(:,:)
       zqhc (:,:) = zqhc(:,:)  * mskisf_cav(:,:)
       !
-      ! compute heat content flux ( > 0 out )
+      ! compute heat content flux ( > 0 from isf to oce)
       zqlat(:,:) = - pqfwf(:,:) * rLfusisf    ! 2d latent heat flux (W/m2)
       !
-      ! total heat flux ( > 0 out )
+      ! total heat flux ( > 0 from isf to oce)
       zqh(:,:) = ( zqhc (:,:) + zqoce(:,:) )
       !
@@ -145 +145 @@
       !
       ! set temperature content
-      ptsc(:,:,jp_tem) = - zqh(:,:) * r1_rho0_rcp
+      ptsc(:,:,jp_tem) = zqh(:,:) * r1_rho0_rcp
       !
       ! write restart variables (qoceisf, qhcisf, fwfisf for now and before)