Changeset 873 for trunk/NEMO/OPA_SRC

Timestamp:

2008-04-01T10:29:35+02:00 (16 years ago)

Author:

ctlod

Message:

Bound the latent heat flux over sea-ice to avoid negative values (CLIO bulk), see ticket:#98

File:

• trunk/NEMO/OPA_SRC/SBC/flxblk.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/flxblk.F90

@@ -663 +663 @@
 
       ! total non solar heat flux over ice
-      qnsr_ice(:,:,:) = zqlw_ice(:,:,:) - zqsb_ice(:,:,:) - zqla_ice(:,:,:)
+      qnsr_ice(:,:,:) = zqlw_ice(:,:,:) - zqsb_ice(:,:,:) - qla_ice(:,:,:)
       ! total non solar heat flux over water 
       qnsr_oce(:,:) = zqlw_oce(:,:) - zqsb_oce(:,:) - zqla_oce(:,:)