Changeset 6172 for CONFIG/UNIFORM

Timestamp:

06/16/22 12:20:13 (23 months ago)

Author:

cetlod

Message:

CM65_work : Minor bug correction in PISCES

Location:

CONFIG/UNIFORM/v6/IPSLCM6.5.1/SOURCES/NEMO

Files:

• isfcavmlt.F90 (modified) (1 diff)
• p4zopt.F90 (added)

CONFIG/UNIFORM/v6/IPSLCM6.5.1/SOURCES/NEMO/isfcavmlt.F90

@@ -304 +304 @@
       ! ocean heat flux is assume to be equal to the latent heat
 !      pqfwf(:,:) =   zfwf(:,:)                         ! fwf                ( > 0 from isf to oce)
-      pqfwf(:,:) =   fwfisf_oasis((:,:)                 ! fwf                ( > 0 from isf to oce)
+      pqfwf(:,:) =   fwfisf_oasis(:,:)                 ! fwf                ( > 0 from isf to oce)
       pqoce(:,:) = - pqfwf(:,:) * rLfusisf             ! ocean heat flux    ( > 0 from isf to oce)
       pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  ( > 0 from isf to oce)