Changeset 973 for LMDZ4/trunk/libf/phylmd/phys_output_write.h

Timestamp:

Jun 19, 2008, 12:25:57 PM (16 years ago)

Author:

lmdzadmin

Message:

Initialisations : concvl, cv3_routines, cva_driver, physiq
Correction bug i0 + ajout tests : cv3p1_closure
Ajout sorties : ale, alp, cin, wape
Ajout variables wake : phyetat0, phyredem
IM

File:

• LMDZ4/trunk/libf/phylmd/phys_output_write.h (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -15 +15 @@
        IF (flag_aire(iff)<=lev_files(iff)) THEN
        CALL histwrite_phy(nid_files(iff),"aire",itau_w,airephy)
+       ENDIF
+
+       IF (flag_pourc_sol(iff)<=lev_files(iff)) THEN
+      zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)* 100.
+      CALL histwrite_phy(nid_files(iff),
+     $                   "pourc_"//clnsurf(is_ter),itau_w,
+     $                   zx_tmp_fi2d)
+       ENDIF
+
+       IF (flag_fract_sol(iff)<=lev_files(iff)) THEN
+      zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)
+      CALL histwrite_phy(nid_files(iff),
+     $               "fract_"//clnsurf(is_ter),itau_w,
+     $               zx_tmp_fi2d)
        ENDIF
 
@@ -309 +323 @@
 
          DO nsrf = 1, nbsrf
+           IF(nsrf.GT.2) THEN
             IF (flag_pourc_sol(iff)<=lev_files(iff)) THEN
             zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
@@ -322 +337 @@
      $      zx_tmp_fi2d)
           ENDIF
+         ENDIF !nsrf.GT.2
 
         IF (flag_taux_sol(iff)<=lev_files(iff)) THEN
@@ -653 +669 @@
        CALL histwrite_phy(nid_files(iff),"alp_wk",itau_w,alp_wake)
        ENDIF
+
+       IF (flag_ale(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"ale",itau_w,ale)
+       ENDIF
+       IF (flag_alp(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"alp",itau_w,alp)
+       ENDIF
+       IF (flag_cin(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"cin",itau_w,cin)
+       ENDIF
+       IF (flag_wape(iff)<=lev_files(iff)) THEN
+       CALL histwrite_phy(nid_files(iff),"WAPE",itau_w,wake_pe)
+       ENDIF
       ENDIF
 
@@ -715 +744 @@
        ENDIF
 
-       IF (flag_pr_con_l(iff)<=lev_files(iff)) THEN
-       CALL histwrite_phy(nid_files(iff),"pmflxr",itau_w,pmflxr)
-       ENDIF
-
-       IF (flag_pr_con_i(iff)<=lev_files(iff)) THEN
-       CALL histwrite_phy(nid_files(iff),"pmflxs",itau_w,pmflxs)
-       ENDIF
-
-       IF (flag_pr_lsc_l(iff)<=lev_files(iff)) THEN
-       CALL histwrite_phy(nid_files(iff),"prfl",itau_w,prfl)
-       ENDIF
-
-       IF (flag_pr_lsc_i(iff)<=lev_files(iff)) THEN
-       CALL histwrite_phy(nid_files(iff),"psfl",itau_w,psfl)
-       ENDIF
+!      IF (flag_pr_con_l(iff)<=lev_files(iff)) THEN
+!      CALL histwrite_phy(nid_files(iff),"pmflxr",itau_w,pmflxr)
+!      ENDIF
+
+!      IF (flag_pr_con_i(iff)<=lev_files(iff)) THEN
+!      CALL histwrite_phy(nid_files(iff),"pmflxs",itau_w,pmflxs)
+!      ENDIF
+
+!      IF (flag_pr_lsc_l(iff)<=lev_files(iff)) THEN
+!      CALL histwrite_phy(nid_files(iff),"prfl",itau_w,prfl)
+!      ENDIF
+
+!      IF (flag_pr_lsc_i(iff)<=lev_files(iff)) THEN
+!      CALL histwrite_phy(nid_files(iff),"psfl",itau_w,psfl)
+!      ENDIF
 
       IF (flag_rh2m(iff)<=lev_files(iff)) THEN