Changeset 1742 for LMDZ5/trunk/libf/phylmd/phys_output_write.h

Timestamp:

Apr 5, 2013, 1:49:35 PM (11 years ago)

Author:

idelkadi

Message:

1- Inclusion des developpements de la these de Romain Pilon sur le
lessivage des aerosols :

a/ par les pluies convectives (modifs cv30_routines et cv3_routines pour

sortir les champs nécessaires au calcul off-line ; modif cvltr)

b/ par les pluies stratiformes (modifs phytrac et introduction

lsc_scav).

2- Choix entre plusieurs schemas pour les pluies stratiformes, commande
par iflag_lscav.

3- Quelques corrections dans la convection "Nouvelle Physique" pour
assurer la conservation des traceurs (cv3p1_mixing et cva_driver) (travail
de Robin Locatelli).

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write.h (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write.h

@@ -916 +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
@@ -1589 +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),
@@ -1783 +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