Changeset 902 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Mar 13, 2013, 11:06:21 AM (12 years ago)

Author:

slebonnois

Message:

SL: small modifs on Venus outputs

Location:

trunk/LMDZ.TITAN/libf/phytitan

Files:

• ini_histday.h (modified) (1 diff)
• ini_histins.h (modified) (2 diffs)
• ini_histmth.h (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/ini_histday.h

@@ -16 +16 @@
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlatd,zx_lat)
          CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
-     .                 1,iim,1,jjmp1, itau_phy, zjulian, zsto, 
+     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 
      .                 nhori, nid_day)
          write(*,*)'Journee ', itau_phy, zjulian

trunk/LMDZ.TITAN/libf/phytitan/ini_histins.h

@@ -1 +1 @@
       IF (ok_instan) THEN
 c
-          zsto1= dtime
           zsto = dtime * FLOAT(ecrit_ins)
           zout = dtime * FLOAT(ecrit_ins)
@@ -15 +14 @@
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlatd,zx_lat)
          CALL histbeg("histins", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
-     .                 1,iim,1,jjmp1, itau_phy, zjulian, zsto1,
+     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
      .                 nhori, nid_ins)
          write(*,*)'Inst ', itau_phy, zjulian

trunk/LMDZ.TITAN/libf/phytitan/ini_histmth.h

@@ -16 +16 @@
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlatd,zx_lat)
          CALL histbeg("histmth", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
-     .                 1,iim,1,jjmp1, itau_phy, zjulian, zsto, 
+     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 
      .                 nhori, nid_mth)
          write(*,*)'Journee ', itau_phy, zjulian