Ignore:
Timestamp:
Jun 7, 2007, 12:01:52 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/initphysto.F

    r766 r776  
    99       
    1010       USE dimphy
     11       USE mod_phys_lmdz_para
    1112       USE IOIPSL
    1213       USE iophy
    … …  
    121122
    122123       CALL histdef(fileid, "phis", "Surface geop. height", "-",
    123      .                iim,jjphy_nb,nhoriid, 1,1,1, -99, 32,
     124     .                iim,jj_nb,nhoriid, 1,1,1, -99, 32,
    124125     .                "once", t_ops, t_wrt)
    125126c
    … …  
    127128
    128129         CALL histdef(fileid, "aire", "Grid area", "-",
    129      .                iim,jjphy_nb,nhoriid, 1,1,1, -99, 32,
     130     .                iim,jj_nb,nhoriid, 1,1,1, -99, 32,
    130131     .                "once", t_ops, t_wrt)
    131132         write(*,*) 'apres aire ds initphysto'
    … …  
    143144C
    144145      call histdef(fileid, 't', 'Temperature', 'K',
    145      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     146     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    146147     .             32, 'inst(X)', t_ops, t_wrt)
    147148        write(*,*) 'apres t ds initphysto'
    … …  
    149150C
    150151      call histdef(fileid, 'mfu', 'flx m. pan. mt', 'kg m/s',
    151      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     152     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    152153     .             32, 'inst(X)', t_ops, t_wrt)
    153154        write(*,*) 'apres mfu ds initphysto'
    … …  
    156157C
    157158      call histdef(fileid, 'mfd', 'flx m. pan. des', 'kg m/s',
    158      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     159     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    159160     .             32, 'inst(X)', t_ops, t_wrt)
    160161
    … …  
    163164C
    164165      call histdef(fileid, 'en_u', 'flx ent pan mt', 'kg m/s',
    165      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     166     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    166167     .             32, 'inst(X)', t_ops, t_wrt)
    167168               write(*,*) 'apres en_u ds initphysto'
    … …  
    170171C
    171172      call histdef(fileid, 'de_u', 'flx det pan mt', 'kg m/s',
    172      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     173     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    173174     .             32, 'inst(X)', t_ops, t_wrt)
    174175
    … …  
    177178C
    178179      call histdef(fileid, 'en_d', 'flx ent pan dt', 'kg m/s',
    179      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     180     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    180181     .             32, 'inst(X)', t_ops, t_wrt)
    181182C
    … …  
    185186C
    186187      call histdef(fileid, 'de_d', 'flx det pan dt', 'kg m/s',
    187      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     188     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    188189     .             32, 'inst(X)', t_ops, t_wrt)
    189190
    … …  
    191192       
    192193        call histdef(fileid, "coefh", " ", " ",
    193      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     194     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    194195     .             32, "inst(X)", t_ops, t_wrt)
    195196
    196197c abderrahmane le 16 09 02
    197198        call histdef(fileid, "fm_th", " ", " ",
    198      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     199     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    199200     .             32, "inst(X)", t_ops, t_wrt)
    200201
    201202        call histdef(fileid, "en_th", " ", " ",
    202      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     203     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    203204     .             32, "inst(X)", t_ops, t_wrt)
    204205c fin aj
    … …  
    207208
    208209        call histdef(fileid, 'frac_impa', ' ', ' ',
    209      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     210     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    210211     .             32, 'inst(X)', t_ops, t_wrt)
    211212       
    212213        call histdef(fileid, 'frac_nucl', ' ', ' ',
    213      .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
     214     .             iim, jj_nb, nhoriid, llm, 1, llm, zvertiid,
    214215     .             32, 'inst(X)', t_ops, t_wrt)
    215216
    … …  
    218219c
    219220      CALL histdef(fileid, "pyu1", " ", " ",
    220      .                iim,jjphy_nb,nhoriid, 1,1,1, -99, 32,
     221     .                iim,jj_nb,nhoriid, 1,1,1, -99, 32,
    221222     .                "inst(X)", t_ops, t_wrt)
    222223
    … …  
    225226c
    226227        CALL histdef(fileid, "pyv1", " ", " ",
    227      .                iim,jjphy_nb,nhoriid, 1,1,1, -99, 32,
     228     .                iim,jj_nb,nhoriid, 1,1,1, -99, 32,
    228229     .                "inst(X)", t_ops, t_wrt)
    229230       
    … …  
    233234c
    234235        call histdef(fileid, "ftsol1", " ", " ",
    235      .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,32,
     236     .             iim, jj_nb, nhoriid, 1, 1,1, -99,32,
    236237     .             "inst(X)", t_ops, t_wrt)
    237238
    … …  
    240241c
    241242        call histdef(fileid, "ftsol2", " ", " ",
    242      .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,32,
     243     .             iim, jj_nb, nhoriid, 1, 1,1, -99,32,
    243244     .             "inst(X)", t_ops, t_wrt)
    244245
    … …  
    247248c
    248249        call histdef(fileid, "ftsol3", " ", " ",
    249      .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,
     250     .             iim, jj_nb, nhoriid, 1, 1,1, -99,
    250251     .             32, "inst(X)", t_ops, t_wrt)
    251252
    … …  
    254255c
    255256        call histdef(fileid, "ftsol4", " ", " ",
    256      .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,
     257     .             iim, jj_nb, nhoriid, 1, 1,1, -99,
    257258     .             32, "inst(X)", t_ops, t_wrt)
    258259       
    … …  
    261262c
    262263        call histdef(fileid, "rain", " ", " ",
    263      .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,
     264     .             iim, jj_nb, nhoriid, 1, 1,1, -99,
    264265     .             32, "inst(X)", t_ops, t_wrt)
    265266
    … …  
    268269c
    269270        call histdef(fileid, "psrf1", " ", " ",
    270      .             iim, jjphy_nb, nhoriid, 1, 1, 1, -99,
     271     .             iim, jj_nb, nhoriid, 1, 1, 1, -99,
    271272     .             32, "inst(X)", t_ops, t_wrt)
    272273       
    … …  
    275276c
    276277        call histdef(fileid, "psrf2", " ", " ",
    277      .             iim, jjphy_nb, nhoriid, 1, 1, 1, -99,
     278     .             iim, jj_nb, nhoriid, 1, 1, 1, -99,
    278279     .             32, "inst(X)", t_ops, t_wrt)
    279280
    … …  
    282283c
    283284        call histdef(fileid, "psrf3", " ", " ",
    284      .             iim, jjphy_nb, nhoriid, 1, 1, 1, -99,
     285     .             iim, jj_nb, nhoriid, 1, 1, 1, -99,
    285286     .             32, "inst(X)", t_ops, t_wrt)
    286287
    … …  
    289290c
    290291        call histdef(fileid, "psrf4", " ", " ",
    291      .             iim, jjphy_nb, nhoriid, 1, 1, 1, -99,
     292     .             iim, jj_nb, nhoriid, 1, 1, 1, -99,
    292293     .             32, "inst(X)", t_ops, t_wrt)
    293294       
Note: See TracChangeset for help on using the changeset viewer.