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

Timestamp:

Apr 11, 2008, 3:53:10 PM (16 years ago)

Author:

lmdzadmin

Message:

Ajout variables thermiques/wake/autres FH
IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_output_write.h

@@ -652 +652 @@
       ENDIF
 
+      IF (flag_ale_bl(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"ale_bl",itau_w,ale_bl)
+      ENDIF
+      IF (flag_alp_bl(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"alp_bl",itau_w,alp_bl)
+      ENDIF
+      IF (flag_ale_wk(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"ale_wk",itau_w,ale_wake)
+      ENDIF
+      IF (flag_alp_wk(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"alp_wk",itau_w,alp_wake)
+      ENDIF
+
       ELSE IF (OCEAN.EQ.'slab  ') THEN
 
@@ -801 +814 @@
        IF (flag_temp(iff)<=lev_files(iff)) THEN
       CALL histwrite_phy(nid_files(iff),"temp",itau_w,t_seri)
+       ENDIF
+
+       IF (flag_theta(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"theta",itau_w,theta)
        ENDIF
 
@@ -955 +972 @@
        ENDIF
 
+       IF (flag_dtwak(iff)<=lev_files(iff)) THEN
+      zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev)/pdtphys
+      CALL histwrite_phy(nid_files(iff),"dtwak",itau_w,zx_tmp_fi3d)
+       ENDIF
+
+       IF (flag_dqwak(iff)<=lev_files(iff)) THEN
+      zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys
+      CALL histwrite_phy(nid_files(iff),"dqwak",itau_w,zx_tmp_fi3d)
+       ENDIF
+
        IF (flag_dtlsc(iff)<=lev_files(iff)) THEN
       zx_tmp_fi3d(1:klon,1:klev)=d_t_lsc(1:klon,1:klev)/pdtphys
@@ -1004 +1031 @@
       zx_tmp_fi3d(1:klon,1:klev)=d_t_ajs(1:klon,1:klev)/pdtphys
       CALL histwrite_phy(nid_files(iff),"dtthe",itau_w,zx_tmp_fi3d)
+       ENDIF
+
+       IF (flag_f_th(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"f_th",itau_w,fm_therm)
+       ENDIF
+
+       IF (flag_e_th(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"e_th",itau_w,entr_therm)
+       ENDIF
+
+       IF (flag_d_th(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"d_th",itau_w,detr_therm)
+       ENDIF
+
+       IF (flag_f0_th(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"f0_th",itau_w,f0)
+       ENDIF
+
+       IF (flag_f0_th(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),"zmax_th",itau_w,zmax0)
        ENDIF