Ignore:
Timestamp:
Apr 4, 2006, 5:00:40 PM (18 years ago)
Author:
lmdzadmin
Message:

Ajout nouveaux flags (ip_ebil_phy, ok_slab_sicOBS) ds physiq.def +
Lecture freq. ecriture en nombre de jours
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/calcul_STDlev.h

    r644 r684  
    66c
    77        CALL ini_undefSTD(nlevSTD,itap,
    8      $           ecrit_day,ecrit_mth,
     8     $           dtime,ecrit_day,ecrit_mth,
    99     $                    tnondef,tsumSTD)
    1010        CALL ini_undefSTD(nlevSTD,itap,
    11      $           ecrit_day,ecrit_mth,
     11     $           dtime,ecrit_day,ecrit_mth,
    1212     $                    tnondef,usumSTD)
    1313        CALL ini_undefSTD(nlevSTD,itap,
    14      $           ecrit_day,ecrit_mth,
     14     $           dtime,ecrit_day,ecrit_mth,
    1515     $                    tnondef,vsumSTD)
    1616        CALL ini_undefSTD(nlevSTD,itap,
    17      $           ecrit_day,ecrit_mth,
     17     $           dtime,ecrit_day,ecrit_mth,
    1818     $                    tnondef,wsumSTD)
    1919        CALL ini_undefSTD(nlevSTD,itap,
    20      $           ecrit_day,ecrit_mth,
     20     $           dtime,ecrit_day,ecrit_mth,
    2121     $                    tnondef,phisumSTD)
    2222        CALL ini_undefSTD(nlevSTD,itap,
    23      $           ecrit_day,ecrit_mth,
     23     $           dtime,ecrit_day,ecrit_mth,
    2424     $                    tnondef,qsumSTD)
    2525        CALL ini_undefSTD(nlevSTD,itap,
    26      $           ecrit_day,ecrit_mth,
     26     $           dtime,ecrit_day,ecrit_mth,
    2727     $                    tnondef,rhsumSTD)
    2828        CALL ini_undefSTD(nlevSTD,itap,
    29      $           ecrit_day,ecrit_mth,
     29     $           dtime,ecrit_day,ecrit_mth,
    3030     $                    tnondef,uvsumSTD)
    3131        CALL ini_undefSTD(nlevSTD,itap,
    32      $           ecrit_day,ecrit_mth,
     32     $           dtime,ecrit_day,ecrit_mth,
    3333     $                    tnondef,vqsumSTD)
    3434        CALL ini_undefSTD(nlevSTD,itap,
    35      $           ecrit_day,ecrit_mth,
     35     $           dtime,ecrit_day,ecrit_mth,
    3636     $                    tnondef,vTsumSTD)
    3737        CALL ini_undefSTD(nlevSTD,itap,
    38      $           ecrit_day,ecrit_mth,
     38     $           dtime,ecrit_day,ecrit_mth,
    3939     $                    tnondef,wqsumSTD)
    4040        CALL ini_undefSTD(nlevSTD,itap,
    41      $           ecrit_day,ecrit_mth,
     41     $           dtime,ecrit_day,ecrit_mth,
    4242     $                    tnondef,vphisumSTD)
    4343        CALL ini_undefSTD(nlevSTD,itap,
    44      $           ecrit_day,ecrit_mth,
     44     $           dtime,ecrit_day,ecrit_mth,
    4545     $                    tnondef,wTsumSTD)
    4646        CALL ini_undefSTD(nlevSTD,itap,
    47      $           ecrit_day,ecrit_mth,
     47     $           dtime,ecrit_day,ecrit_mth,
    4848     $                    tnondef,u2sumSTD)
    4949        CALL ini_undefSTD(nlevSTD,itap,
    50      $           ecrit_day,ecrit_mth,
     50     $           dtime,ecrit_day,ecrit_mth,
    5151     $                    tnondef,v2sumSTD)
    5252        CALL ini_undefSTD(nlevSTD,itap,
    53      $           ecrit_day,ecrit_mth,
     53     $           dtime,ecrit_day,ecrit_mth,
    5454     $                    tnondef,T2sumSTD)
    5555c
    … …  
    159159       oknondef(1:klon,1:nlevSTD,1:nout)=.TRUE.
    160160       CALL undefSTD(nlevSTD,itap,tlevSTD,
    161      $               ecrit_hf,
     161     $               dtime,ecrit_hf,
    162162     $               oknondef,tnondef,tsumSTD)
    163163c
    164164       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    165165       CALL undefSTD(nlevSTD,itap,ulevSTD,
    166      $           ecrit_hf,
     166     $           dtime,ecrit_hf,
    167167     $               oknondef,tnondef,usumSTD)
    168168c
    169169       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    170170       CALL undefSTD(nlevSTD,itap,vlevSTD,
    171      $           ecrit_hf,
     171     $           dtime,ecrit_hf,
    172172     $               oknondef,tnondef,vsumSTD)
    173173c
    174174       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    175175       CALL undefSTD(nlevSTD,itap,wlevSTD,
    176      $           ecrit_hf,
     176     $           dtime,ecrit_hf,
    177177     $               oknondef,tnondef,wsumSTD)
    178178c
    179179       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    180180       CALL undefSTD(nlevSTD,itap,philevSTD,
    181      $           ecrit_hf,
     181     $           dtime,ecrit_hf,
    182182     $               oknondef,tnondef,phisumSTD)
    183183c
    184184       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    185185       CALL undefSTD(nlevSTD,itap,qlevSTD,
    186      $           ecrit_hf,
     186     $           dtime,ecrit_hf,
    187187     $               oknondef,tnondef,qsumSTD)
    188188c
    189189       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    190190       CALL undefSTD(nlevSTD,itap,rhlevSTD,
    191      $           ecrit_hf,
     191     $           dtime,ecrit_hf,
    192192     $               oknondef,tnondef,rhsumSTD)
    193193c
    194194       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    195195       CALL undefSTD(nlevSTD,itap,uvSTD,
    196      $           ecrit_hf,
     196     $           dtime,ecrit_hf,
    197197     $               oknondef,tnondef,uvsumSTD)
    198198c
    199199       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    200200       CALL undefSTD(nlevSTD,itap,vqSTD,
    201      $           ecrit_hf,
     201     $           dtime,ecrit_hf,
    202202     $               oknondef,tnondef,vqsumSTD)
    203203c
    204204       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    205205       CALL undefSTD(nlevSTD,itap,vTSTD,
    206      $           ecrit_hf,
     206     $           dtime,ecrit_hf,
    207207     $               oknondef,tnondef,vTsumSTD)
    208208c
    209209       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    210210       CALL undefSTD(nlevSTD,itap,wqSTD,
    211      $           ecrit_hf,
     211     $           dtime,ecrit_hf,
    212212     $               oknondef,tnondef,wqsumSTD)
    213213c
    214214       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    215215       CALL undefSTD(nlevSTD,itap,vphiSTD,
    216      $           ecrit_hf,
     216     $           dtime,ecrit_hf,
    217217     $               oknondef,tnondef,vphisumSTD)
    218218c
    219219       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    220220       CALL undefSTD(nlevSTD,itap,wTSTD,
    221      $           ecrit_hf,
     221     $           dtime,ecrit_hf,
    222222     $               oknondef,tnondef,wTsumSTD)
    223223c
    224224       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    225225       CALL undefSTD(nlevSTD,itap,u2STD,
    226      $           ecrit_hf,
     226     $           dtime,ecrit_hf,
    227227     $               oknondef,tnondef,u2sumSTD)
    228228c
    229229       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    230230       CALL undefSTD(nlevSTD,itap,v2STD,
    231      $           ecrit_hf,
     231     $           dtime,ecrit_hf,
    232232     $               oknondef,tnondef,v2sumSTD)
    233233c
    234234       oknondef(1:klon,1:nlevSTD,1:nout)=.FALSE.
    235235       CALL undefSTD(nlevSTD,itap,T2STD,
    236      $           ecrit_hf,
     236     $           dtime,ecrit_hf,
    237237     $               oknondef,tnondef,T2sumSTD)
    238238c
    … …  
    240240c
    241241       CALL moy_undefSTD(nlevSTD,itap,
    242      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     242     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    243243     $                   tnondef,tsumSTD)
    244244c
    245245       CALL moy_undefSTD(nlevSTD,itap,
    246      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     246     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    247247     $                   tnondef,usumSTD)
    248248c
    249249       CALL moy_undefSTD(nlevSTD,itap,
    250      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     250     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    251251     $                   tnondef,vsumSTD)
    252252c
    253253       CALL moy_undefSTD(nlevSTD,itap,
    254      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     254     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    255255     $                   tnondef,wsumSTD)
    256256c
    257257       CALL moy_undefSTD(nlevSTD,itap,
    258      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     258     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    259259     $                   tnondef,phisumSTD)
    260260c
    261261       CALL moy_undefSTD(nlevSTD,itap,
    262      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     262     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    263263     $                   tnondef,qsumSTD)
    264264c
    265265       CALL moy_undefSTD(nlevSTD,itap,
    266      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     266     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    267267     $                   tnondef,rhsumSTD)
    268268c
    269269       CALL moy_undefSTD(nlevSTD,itap,
    270      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     270     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    271271     $                   tnondef,uvsumSTD)
    272272c
    273273       CALL moy_undefSTD(nlevSTD,itap,
    274      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     274     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    275275     $                   tnondef,vqsumSTD)
    276276c
    277277       CALL moy_undefSTD(nlevSTD,itap,
    278      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     278     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    279279     $                   tnondef,vTsumSTD)
    280280c
    281281       CALL moy_undefSTD(nlevSTD,itap,
    282      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     282     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    283283     $                   tnondef,wqsumSTD)
    284284c
    285285       CALL moy_undefSTD(nlevSTD,itap,
    286      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     286     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    287287     $                   tnondef,vphisumSTD)
    288288c
    289289       CALL moy_undefSTD(nlevSTD,itap,
    290      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     290     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    291291     $                   tnondef,wTsumSTD)
    292292c
    293293       CALL moy_undefSTD(nlevSTD,itap,
    294      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     294     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    295295     $                   tnondef,u2sumSTD)
    296296c
    297297       CALL moy_undefSTD(nlevSTD,itap,
    298      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     298     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    299299     $                   tnondef,v2sumSTD)
    300300c
    301301       CALL moy_undefSTD(nlevSTD,itap,
    302      $      ecrit_day,ecrit_mth,ecrit_hf2mth,
     302     $      dtime,ecrit_day,ecrit_mth,ecrit_hf2mth,
    303303     $                   tnondef,T2sumSTD)
    304304c
Note: See TracChangeset for help on using the changeset viewer.