Changeset 228 for trunk

Timestamp:

2005-03-18T20:44:05+01:00 (19 years ago)

Author:

opalod

Message:

CT : BUGFIX160 : bound the latent heat flux (qla_oce) over the free ocean to avoid heating of surface water by this field in specific areas such as upwelling zone

File:

• trunk/NEMO/OPA_SRC/SBC/flxblk.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/flxblk.F90

@@ -575 +575 @@
          
             !  latent heat flux 
-            zqla_oce(ji,jj) = zrhovacleo * 2.5e+06 * ( zqsato      - zqatm(ji,jj) )
+            zqla_oce(ji,jj) = MAX(0.e0, zrhovacleo * 2.5e+06 * ( zqsato      - zqatm(ji,jj) ) )
                
             !  Calculate evaporation over water. (kg/m2/s)
@@ -617 +617 @@
             !  latent heat flux 
             zqla_ice(ji,jj) = zrhovacshi * ( zqsati        - zqatm(ji,jj) )
-            qla_ice (ji,jj) = zqla_ice(ji,jj)
+            qla_ice (ji,jj) = MAX(0.e0, zqla_ice(ji,jj) )
               
             !  Computation of sensitivity of non solar fluxes (dQ/dT)