Changeset 4634 for branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

Timestamp:

2014-05-12T22:46:18+02:00 (10 years ago)

Author:

clem

Message:

major changes in heat budget

File:

• branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (1 diff)

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -599 +599 @@
                zdqlw = 4.0 * emic * stefan * ztice3
                zdqsb = zrhovacshi
-               zdqla = zrhovaclei * ( zdesidt * ( zqsati * zqsati / ( zesi * zesi ) ) * ( zpatm / 0.622 ) )   
+               
+               ! MV 2014 we must cap derivative also
+               IF ( p_qla(ji,jj,jl) .GT. 0.0 ) THEN
+                  zdqla = zrhovaclei * ( zdesidt * ( zqsati * zqsati / ( zesi * zesi ) ) * ( zpatm / 0.622 ) )   
+               ELSE
+                  zdqla = 0.0
+               ENDIF
                !
                p_dqla(ji,jj,jl) = zdqla                           ! latent flux sensitivity