Changeset 902 for trunk/LMDZ.TITAN/libf


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed

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

    r888 r902  
    1616         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlatd,zx_lat)
    1717         CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    18      .                 1,iim,1,jjmp1, itau_phy, zjulian, zsto,
     18     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
    1919     .                 nhori, nid_day)
    2020         write(*,*)'Journee ', itau_phy, zjulian

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

    r888 r902  
    11      IF (ok_instan) THEN
    22c
    3           zsto1= dtime
    43          zsto = dtime * FLOAT(ecrit_ins)
    54          zout = dtime * FLOAT(ecrit_ins)
    … …  
    1514         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlatd,zx_lat)
    1615         CALL histbeg("histins", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    17      .                 1,iim,1,jjmp1, itau_phy, zjulian, zsto1,
     16     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
    1817     .                 nhori, nid_ins)
    1918         write(*,*)'Inst ', itau_phy, zjulian

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

    r888 r902  
    1616         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlatd,zx_lat)
    1717         CALL histbeg("histmth", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    18      .                 1,iim,1,jjmp1, itau_phy, zjulian, zsto,
     18     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
    1919     .                 nhori, nid_mth)
    2020         write(*,*)'Journee ', itau_phy, zjulian
Note: See TracChangeset for help on using the changeset viewer.