Changeset 88 for LMDZ.3.3


Ignore:
Timestamp:
May 10, 2000, 12:41:50 PM (25 years ago)
Author:
lmdzadmin
Message:

Problemes avec les jjm+1

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r80 r88  
    552552         CALL suphec ! initialiser constantes et parametres phys.
    553553      ENDIF
     554
     555
    554556c======================================================================
    555557      xjour = rjourvrai
    … …  
    20222024c
    20232025c
     2026
    20242027      IF (ok_journe) THEN
    20252028c
    … …  
    25212524     .                                   iim*jjmp1*klev,ndex3d)
    25222525c
    2523       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, zphi, zx_tmp_3d)
     2526      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    25242527      CALL histwrite(nid_ins,"geop",itap,zx_tmp_3d,
    25252528     .                                   iim*jjmp1*klev,ndex3d)
    25262529c
    2527       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, pplay, zx_tmp_3d)
     2530      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    25282531      CALL histwrite(nid_ins,"pres",itap,zx_tmp_3d,
    25292532     .                                   iim*jjmp1*klev,ndex3d)
Note: See TracChangeset for help on using the changeset viewer.