Changeset 882 for LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Jan 31, 2008, 5:48:13 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Modifs pour intégrer le 1D FH
LF

File:

• LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -462 +462 @@
     
 !****************************************************************************************
+! Declarations specifiques pour le 1D. A reprendre 
+  REAL  :: fsens,flat
+  LOGICAL ok_flux_surf
+  data ok_flux_surf/.false./
+    common /flux_arp/fsens,flat,ok_flux_surf
+
+!****************************************************************************************
 ! End of declarations
 !****************************************************************************************
@@ -824 +831 @@
 !****************************************************************************************
 ! H and Q
-       y_flux_t1(:) =  yfluxsens(:)
-       y_flux_q1(:) = -yevap(:)
+       print *,'pbl_surface: ok_flux_surf=',ok_flux_surf
+       print *,'pbl_surface: fsens flat RLVTT=',fsens,flat,RLVTT
+       if (ok_flux_surf) then
+          y_flux_t1(:) =  fsens
+          y_flux_q1(:) =  flat/RLVTT
+          yfluxlat(:) =  flat
+       else
+          y_flux_t1(:) =  yfluxsens(:)
+          y_flux_q1(:) = -yevap(:)
+       endif
 
        CALL climb_hq_up(knon, dtime, yt, yq, &