Changeset 1750 for LMDZ5/branches/testing/libf/phylmd/phys_output_write.h

Timestamp:

Apr 25, 2013, 5:27:27 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur r1745

---

Testing release based on r1745

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_output_write.h (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/phys_output_write.h

@@ -443 +443 @@
         ENDIF
 
+        IF (o_evappot_srf(nsrf)%flag(iff)<=lev_files(iff)) THEN
+        zx_tmp_fi2d(1 : klon) = evap_pot( 1 : klon, nsrf)
+        CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $                   o_evappot_srf(nsrf)%name,itau_w,
+     $      zx_tmp_fi2d)
+        ENDIF
+
       IF (o_ustar_srf(nsrf)%flag(iff)<=lev_files(iff)) THEN
       zx_tmp_fi2d(1 : klon) = ustar(1 : klon, nsrf)
@@ -909 +916 @@
      $o_fqd%name,itau_w,fqd)
         ENDIF
-      ENDIF !(iflag_con.EQ.3) 
+
+      ELSEIF (iflag_con.EQ.30) THEN
+! sortie RomP convection descente insaturee iflag_con=30
+       IF (o_Vprecip%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $o_Vprecip%name,itau_w,Vprecip)
+       ENDIF
+      IF (o_wdtrainA%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $o_wdtrainA%name,itau_w,wdtrainA)
+      ENDIF
+      IF (o_wdtrainM%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $o_wdtrainM%name,itau_w,wdtrainM)
+      ENDIF
+
+      ENDIF !(iflag_con.EQ.3.or.iflag_con.EQ.30)
  
 !!! nrlmd le 10/04/2012
@@ -1582 +1605 @@
        ENDIF
 
+       IF (o_rnebls%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $o_rnebls%name,itau_w,rneb)
+       ENDIF
+
        IF (o_rhum%flag(iff)<=lev_files(iff)) THEN
       CALL histwrite_phy(nid_files(iff),clef_stations(iff),
@@ -1776 +1804 @@
       CALL histwrite_phy(nid_files(iff),clef_stations(iff),
      $o_dqlsc%name,itau_w,zx_tmp_fi3d)
+       ENDIF
+
+       IF (o_beta_prec%flag(iff)<=lev_files(iff)) THEN
+      zx_tmp_fi3d(1:klon,1:klev)=beta_prec(1:klon,1:klev)
+      CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $o_beta_prec%name,itau_w,zx_tmp_fi3d)
        ENDIF