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

Timestamp:

Jan 11, 2013, 10:19:19 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

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

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

@@ -101 +101 @@
       CALL histwrite_phy(nid_files(iff),clef_stations(iff),
      $o_q2m%name,itau_w,zq2m)
+       ENDIF
+
+       IF (o_ustar%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $o_ustar%name,itau_w,zustar)
        ENDIF
 
@@ -437 +442 @@
      $      zx_tmp_fi2d)
         ENDIF
+
+      IF (o_ustar_srf(nsrf)%flag(iff)<=lev_files(iff)) THEN
+      zx_tmp_fi2d(1 : klon) = ustar(1 : klon, nsrf)
+      CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     $o_ustar_srf(nsrf)%name,
+     $                 itau_w,zx_tmp_fi2d)
+      ENDIF
 
       IF (o_u10m_srf(nsrf)%flag(iff)<=lev_files(iff)) THEN
@@ -2248 +2260 @@
        ENDIF
          ENDDO
+         DO iq=3,nqtot
+       IF (o_trac_cum(iq-2)%flag(iff)<=lev_files(iff)) THEN
+         zx_tmp_fi2d=0.
+         do k=1,klev
+            zx_tmp_fi2d(:)=zx_tmp_fi2d(:)+zmasse(:,k)*qx(:,k,iq)
+         enddo
+         CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+     s                  o_trac_cum(iq-2)%name,itau_w,zx_tmp_fi2d)
+
+       ENDIF
+         ENDDO
         endif