Changeset 250 for LMDZ.3.3


Ignore:
Timestamp:
Jul 4, 2001, 11:43:55 AM (23 years ago)
Author:
lmdz
Message:

Petits reglages pour faire tourner le 1D FH
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/phylmd/physiq.F

    r207 r250  
    316316      REAL yv1(klon)            ! vents dans la premiere couche V
    317317      LOGICAL offline           ! Controle du stockage ds "physique"
    318       PARAMETER (offline=.true.)
     318      PARAMETER (offline=.false.)
    319319      INTEGER physid
    320320      REAL pfrac_impa(klon,klev)! Produits des coefs lessivage impaction
     
    11911191
    11921192         CALL histdef(nid_mth, "ptconv", "POINTS CONVECTIFS"," ",
    1193      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     1193     .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
    11941194     .                "ave(X)", zsto,zout)
    11951195
    11961196         CALL histdef(nid_mth, "ratqs", "RATQS"," ",
    1197      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     1197     .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
    11981198     .                "ave(X)", zsto,zout)
    11991199
     
    25402540     .                                   iim*jjmp1*klev,ndex3d)
    25412541c
    2542       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, zpt_conv, zx_tmp_3d)
     2542      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d)
    25432543      CALL histwrite(nid_mth,"ptconv",itap,zx_tmp_3d,
    2544      .                                   iim*(jjm+1)*klev,ndex3d)
    2545 c
    2546       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, ratqs, zx_tmp_3d)
     2544     .                                   iim*jjmp1*klev,ndex3d)
     2545c
     2546      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d)
    25472547      CALL histwrite(nid_mth,"ratqs",itap,zx_tmp_3d,
    2548      .                                   iim*(jjm+1)*klev,ndex3d)
     2548     .                                   iim*jjmp1*klev,ndex3d)
    25492549c
    25502550      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_ajs, zx_tmp_3d)
Note: See TracChangeset for help on using the changeset viewer.