Changeset 97 for trunk/libf/phytitan/ini_histins.h

Timestamp:

Mar 22, 2011, 5:25:44 PM (14 years ago)

Author:

slebonnois

Message:

Serie de modifs SL pour homogeneisation des phytitan et phyvenus
Ca touche aussi aux liens phy/dyn (surtout a propos de clesphy0),
a verifier avec les autres, donc...

File:

• trunk/libf/phytitan/ini_histins.h (modified) (2 diffs)

trunk/libf/phytitan/ini_histins.h

@@ -9 +9 @@
 c
          idayref = day_ref
-         z4julian = zjulian
-         CALL ymds2ju(annee_ref, 1, idayref, zero, z4julian)
+         CALL ymds2ju(annee_ref, 1, idayref, zero, zjulian)
 c
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlond,zx_lon)
@@ -18 +17 @@
          ENDDO
          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlatd,zx_lat)
-         z4_lon = zx_lon
-         z4_lat = zx_lat
-         zpresnivs=presnivs
-         CALL histbeg("histins", iim,z4_lon(:,1), jjmp1,z4_lat(1,:),
-     .                 1,iim,1,jjmp1, itau_phy, z4julian, zsto1,
+         CALL histbeg("histins", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
+     .                 1,iim,1,jjmp1, itau_phy, zjulian, zsto1,
      .                 nhori, nid_ins)
          write(*,*)'Inst ', itau_phy, zjulian
          CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb",
-     .                 klev, zpresnivs, nvert)
+     .                 klev, presnivs, nvert)
 
 c-------------------------------------------------------