Ignore:
Timestamp:
Mar 21, 2002, 4:09:30 PM (22 years ago)
Author:
lmdzadmin
Message:

2 changements pour les fichiers histoire:

  • utilisation de l'entree "rectilineaire" de IOIPSL pour ne plus avoir a lancer ncregular a chaque fois
  • le calendrier des fichiers histoire est maintenant base sur la date d'initialisation de la simulation plutot que sur la date de depart du job en cours

LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r258 r352  
    9999      tab_cntrl(14) = anneeref
    100100      tab_cntrl(13) = day_end
    101       tab_cntrl(14) = anne_ini
    102 c
    103       ierr = NF_REDEF (nid)
     101      tab_cntrl(14) = annee_ref
     102      tab_cntrl(15) = itau_phy
     103c
     104      ierr = NF_REDEF (nid)
     105#ifdef NC_DOUBLE
     106      ierr = NF_DEF_VAR (nid, "controle", NF_DOUBLE, 1, idim1,nvarid)
     107#else
    104108      ierr = NF_DEF_VAR (nid, "controle", NF_FLOAT, 1, idim1,nvarid)
     109#endif
    105110      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 22,
    106111     .                        "Parametres de controle")
    … …  
    113118c
    114119      ierr = NF_REDEF (nid)
     120#ifdef NC_DOUBLE
     121      ierr = NF_DEF_VAR (nid, "longitude", NF_DOUBLE, 1, idim2,nvarid)
     122#else
    115123      ierr = NF_DEF_VAR (nid, "longitude", NF_FLOAT, 1, idim2,nvarid)
     124#endif
    116125      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 32,
    117126     .                        "Longitudes de la grille physique")
    … …  
    124133c
    125134      ierr = NF_REDEF (nid)
     135#ifdef NC_DOUBLE
     136      ierr = NF_DEF_VAR (nid, "latitude", NF_DOUBLE, 1, idim2,nvarid)
     137#else
    126138      ierr = NF_DEF_VAR (nid, "latitude", NF_FLOAT, 1, idim2,nvarid)
     139#endif
    127140      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 31,
    128141     .                        "Latitudes de la grille physique")
    … …  
    137150C
    138151      ierr = NF_REDEF (nid)
     152#ifdef NC_DOUBLE
     153      ierr = NF_DEF_VAR (nid, "masque", NF_DOUBLE, 1, idim2,nvarid)
     154#else
    139155      ierr = NF_DEF_VAR (nid, "masque", NF_FLOAT, 1, idim2,nvarid)
     156#endif
    140157      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 16,
    141158     .                        "masque terre mer")
    … …  
    151168C
    152169      ierr = NF_REDEF (nid)
     170#ifdef NC_DOUBLE
     171      ierr = NF_DEF_VAR (nid, "FTER", NF_DOUBLE, 1, idim2,nvarid)
     172#else
    153173      ierr = NF_DEF_VAR (nid, "FTER", NF_FLOAT, 1, idim2,nvarid)
     174#endif
    154175      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 21,
    155176     .                        "fraction de continent")
    … …  
    164185C
    165186      ierr = NF_REDEF (nid)
     187#ifdef NC_DOUBLE
     188      ierr = NF_DEF_VAR (nid, "FLIC", NF_DOUBLE, 1, idim2,nvarid)
     189#else
    166190      ierr = NF_DEF_VAR (nid, "FLIC", NF_FLOAT, 1, idim2,nvarid)
     191#endif
    167192      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 24,
    168193     .                        "fraction glace de terre")
    … …  
    177202C
    178203      ierr = NF_REDEF (nid)
     204#ifdef NC_DOUBLE
     205      ierr = NF_DEF_VAR (nid, "FOCE", NF_DOUBLE, 1, idim2,nvarid)
     206#else
    179207      ierr = NF_DEF_VAR (nid, "FOCE", NF_FLOAT, 1, idim2,nvarid)
     208#endif
    180209      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 14,
    181210     .                        "fraction ocean")
    … …  
    190219C
    191220      ierr = NF_REDEF (nid)
     221#ifdef NC_DOUBLE
     222      ierr = NF_DEF_VAR (nid, "FSIC", NF_DOUBLE, 1, idim2,nvarid)
     223#else
    192224      ierr = NF_DEF_VAR (nid, "FSIC", NF_FLOAT, 1, idim2,nvarid)
     225#endif
    193226      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 18,
    194227     .                        "fraction glace mer")
    … …  
    206239        WRITE(str2,'(i2.2)') nsrf
    207240        ierr = NF_REDEF (nid)
     241#ifdef NC_DOUBLE
     242        ierr = NF_DEF_VAR (nid, "TS"//str2, NF_DOUBLE, 1, idim2,nvarid)
     243#else
    208244        ierr = NF_DEF_VAR (nid, "TS"//str2, NF_FLOAT, 1, idim2,nvarid)
     245#endif
    209246        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
    210247     .                        "Temperature de surface No."//str2)
    … …  
    226263        WRITE(str7,'(i2.2,"srf",i2.2)') isoil,nsrf
    227264        ierr = NF_REDEF (nid)
     265#ifdef NC_DOUBLE
     266        ierr = NF_DEF_VAR (nid, "Tsoil"//str7,NF_DOUBLE,1,idim2,nvarid)
     267#else
    228268        ierr = NF_DEF_VAR (nid, "Tsoil"//str7,NF_FLOAT,1,idim2,nvarid)
     269#endif
    229270        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 29,
    230271     .                        "Temperature du sol No."//str7)
    … …  
    244285c
    245286      ierr = NF_REDEF (nid)
     287#ifdef NC_DOUBLE
     288      ierr = NF_DEF_VAR (nid, "DELTAT", NF_DOUBLE, 1, idim2,nvarid)
     289#else
    246290      ierr = NF_DEF_VAR (nid, "DELTAT", NF_FLOAT, 1, idim2,nvarid)
     291#endif
    247292      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 33,
    248293     .                        "Ecart de la SST (pour slab-ocean)")
    … …  
    258303        WRITE(str2,'(i2.2)') nsrf
    259304        ierr = NF_REDEF (nid)
     305#ifdef NC_DOUBLE
     306        ierr = NF_DEF_VAR (nid,"QS"//str2,NF_DOUBLE,1,idim2,nvarid)
     307#else
    260308        ierr = NF_DEF_VAR (nid,"QS"//str2,NF_FLOAT,1,idim2,nvarid)
     309#endif
    261310        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 25,
    262311     .                        "Humidite de surface No."//str2)
    … …  
    277326        WRITE(str2,'(i2.2)') nsrf
    278327        ierr = NF_REDEF (nid)
     328#ifdef NC_DOUBLE
     329        ierr = NF_DEF_VAR (nid,"ALBE"//str2,NF_DOUBLE,1,idim2,nvarid)
     330#else
    279331        ierr = NF_DEF_VAR (nid,"ALBE"//str2,NF_FLOAT,1,idim2,nvarid)
     332#endif
    280333        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 23,
    281334     .                        "albedo de surface No."//str2)
    … …  
    296349        WRITE(str2,'(i2.2)') nsrf
    297350        ierr = NF_REDEF (nid)
     351#ifdef NC_DOUBLE
     352        ierr = NF_DEF_VAR (nid,"EVAP"//str2,NF_DOUBLE,1,idim2,nvarid)
     353#else
    298354        ierr = NF_DEF_VAR (nid,"EVAP"//str2,NF_FLOAT,1,idim2,nvarid)
     355#endif
    299356        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
    300357     .                        "Evaporation de surface No."//str2)
    … …  
    316373        WRITE(str2,'(i2.2)') nsrf
    317374        ierr = NF_REDEF (nid)
     375#ifdef NC_DOUBLE
     376        ierr = NF_DEF_VAR (nid,"SNOW"//str2,NF_DOUBLE,1,idim2,nvarid)
     377#else
    318378        ierr = NF_DEF_VAR (nid,"SNOW"//str2,NF_FLOAT,1,idim2,nvarid)
     379#endif
    319380        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 22,
    320381     .                        "Neige de surface No."//str2)
    … …  
    333394c
    334395      ierr = NF_REDEF (nid)
     396#ifdef NC_DOUBLE
     397      ierr = NF_DEF_VAR (nid, "RADS", NF_DOUBLE, 1, idim2,nvarid)
     398#else
    335399      ierr = NF_DEF_VAR (nid, "RADS", NF_FLOAT, 1, idim2,nvarid)
     400#endif
    336401      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
    337402     .                        "Rayonnement net a la surface")
    … …  
    344409c
    345410      ierr = NF_REDEF (nid)
     411#ifdef NC_DOUBLE
     412      ierr = NF_DEF_VAR (nid, "solsw", NF_DOUBLE, 1, idim2,nvarid)
     413#else
    346414      ierr = NF_DEF_VAR (nid, "solsw", NF_FLOAT, 1, idim2,nvarid)
     415#endif
    347416      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 32,
    348417     .                        "Rayonnement solaire a la surface")
    … …  
    355424c
    356425      ierr = NF_REDEF (nid)
     426#ifdef NC_DOUBLE
     427      ierr = NF_DEF_VAR (nid, "sollw", NF_DOUBLE, 1, idim2,nvarid)
     428#else
    357429      ierr = NF_DEF_VAR (nid, "sollw", NF_FLOAT, 1, idim2,nvarid)
     430#endif
    358431      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 27,
    359432     .                        "Rayonnement IF a la surface")
    … …  
    366439c
    367440      ierr = NF_REDEF (nid)
     441#ifdef NC_DOUBLE
     442      ierr = NF_DEF_VAR (nid, "fder", NF_DOUBLE, 1, idim2,nvarid)
     443#else
    368444      ierr = NF_DEF_VAR (nid, "fder", NF_FLOAT, 1, idim2,nvarid)
     445#endif
    369446      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 14,
    370447     .                        "Derive de flux")
    … …  
    377454c
    378455      ierr = NF_REDEF (nid)
     456#ifdef NC_DOUBLE
     457      ierr = NF_DEF_VAR (nid, "rain_f", NF_DOUBLE, 1, idim2,nvarid)
     458#else
    379459      ierr = NF_DEF_VAR (nid, "rain_f", NF_FLOAT, 1, idim2,nvarid)
     460#endif
    380461      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 21,
    381462     .                        "precipitation liquide")
    … …  
    388469c
    389470      ierr = NF_REDEF (nid)
     471#ifdef NC_DOUBLE
     472      ierr = NF_DEF_VAR (nid, "snow_f", NF_DOUBLE, 1, idim2,nvarid)
     473#else
    390474      ierr = NF_DEF_VAR (nid, "snow_f", NF_FLOAT, 1, idim2,nvarid)
     475#endif
    391476      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 20,
    392477     .                        "precipitation solide")
    … …  
    402487        WRITE(str2,'(i2.2)') nsrf
    403488        ierr = NF_REDEF (nid)
     489#ifdef NC_DOUBLE
     490        ierr = NF_DEF_VAR (nid,"RUG"//str2,NF_DOUBLE,1,idim2,nvarid)
     491#else
    404492        ierr = NF_DEF_VAR (nid,"RUG"//str2,NF_FLOAT,1,idim2,nvarid)
     493#endif
    405494        ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 23,
    406495     .                        "rugosite de surface No."//str2)
    … …  
    421510            WRITE(str2,'(i2.2)') nsrf
    422511            ierr = NF_REDEF (nid)
     512#ifdef NC_DOUBLE
     513            ierr = NF_DEF_VAR (nid,"AGESNO"//str2,NF_DOUBLE,1,idim2
     514     $          ,nvarid)
     515#else
    423516            ierr = NF_DEF_VAR (nid,"AGESNO"//str2,NF_FLOAT,1,idim2
    424517     $          ,nvarid)
     518#endif
    425519            ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 15,
    426520     .                        "Age de la neige surface No."//str2)
    … …  
    438532c
    439533      ierr = NF_REDEF (nid)
     534#ifdef NC_DOUBLE
     535      ierr = NF_DEF_VAR (nid, "ZMEA", NF_DOUBLE, 1, idim2,nvarid)
     536#else
    440537      ierr = NF_DEF_VAR (nid, "ZMEA", NF_FLOAT, 1, idim2,nvarid)
     538#endif
    441539      ierr = NF_ENDDEF(nid)
    442540#ifdef NC_DOUBLE
    … …  
    447545c
    448546      ierr = NF_REDEF (nid)
     547#ifdef NC_DOUBLE
     548      ierr = NF_DEF_VAR (nid, "ZSTD", NF_DOUBLE, 1, idim2,nvarid)
     549#else
    449550      ierr = NF_DEF_VAR (nid, "ZSTD", NF_FLOAT, 1, idim2,nvarid)
     551#endif
    450552      ierr = NF_ENDDEF(nid)
    451553#ifdef NC_DOUBLE
    … …  
    454556      ierr = NF_PUT_VAR_REAL (nid,nvarid,zstd)
    455557#endif
    456 c
    457       ierr = NF_REDEF (nid)
     558      ierr = NF_REDEF (nid)
     559#ifdef NC_DOUBLE
     560      ierr = NF_DEF_VAR (nid, "ZSIG", NF_DOUBLE, 1, idim2,nvarid)
     561#else
    458562      ierr = NF_DEF_VAR (nid, "ZSIG", NF_FLOAT, 1, idim2,nvarid)
     563#endif
    459564      ierr = NF_ENDDEF(nid)
    460565#ifdef NC_DOUBLE
    … …  
    463568      ierr = NF_PUT_VAR_REAL (nid,nvarid,zsig)
    464569#endif
    465 c
    466       ierr = NF_REDEF (nid)
     570      ierr = NF_REDEF (nid)
     571#ifdef NC_DOUBLE
     572      ierr = NF_DEF_VAR (nid, "ZGAM", NF_DOUBLE, 1, idim2,nvarid)
     573#else
    467574      ierr = NF_DEF_VAR (nid, "ZGAM", NF_FLOAT, 1, idim2,nvarid)
     575#endif
    468576      ierr = NF_ENDDEF(nid)
    469577#ifdef NC_DOUBLE
    … …  
    472580      ierr = NF_PUT_VAR_REAL (nid,nvarid,zgam)
    473581#endif
    474 c
    475       ierr = NF_REDEF (nid)
     582      ierr = NF_REDEF (nid)
     583#ifdef NC_DOUBLE
     584      ierr = NF_DEF_VAR (nid, "ZTHE", NF_DOUBLE, 1, idim2,nvarid)
     585#else
    476586      ierr = NF_DEF_VAR (nid, "ZTHE", NF_FLOAT, 1, idim2,nvarid)
     587#endif
    477588      ierr = NF_ENDDEF(nid)
    478589#ifdef NC_DOUBLE
    … …  
    481592      ierr = NF_PUT_VAR_REAL (nid,nvarid,zthe)
    482593#endif
    483 c
    484       ierr = NF_REDEF (nid)
     594      ierr = NF_REDEF (nid)
     595#ifdef NC_DOUBLE
     596      ierr = NF_DEF_VAR (nid, "ZPIC", NF_DOUBLE, 1, idim2,nvarid)
     597#else
    485598      ierr = NF_DEF_VAR (nid, "ZPIC", NF_FLOAT, 1, idim2,nvarid)
     599#endif
    486600      ierr = NF_ENDDEF(nid)
    487601#ifdef NC_DOUBLE
    … …  
    490604      ierr = NF_PUT_VAR_REAL (nid,nvarid,zpic)
    491605#endif
    492 c
    493       ierr = NF_REDEF (nid)
     606      ierr = NF_REDEF (nid)
     607#ifdef NC_DOUBLE
     608      ierr = NF_DEF_VAR (nid, "ZVAL", NF_DOUBLE, 1, idim2,nvarid)
     609#else
    494610      ierr = NF_DEF_VAR (nid, "ZVAL", NF_FLOAT, 1, idim2,nvarid)
     611#endif
    495612      ierr = NF_ENDDEF(nid)
    496613#ifdef NC_DOUBLE
    … …  
    499616      ierr = NF_PUT_VAR_REAL (nid,nvarid,zval)
    500617#endif
    501 c
    502       ierr = NF_REDEF (nid)
     618      ierr = NF_REDEF (nid)
     619#ifdef NC_DOUBLE
     620      ierr = NF_DEF_VAR (nid, "RUGSREL", NF_DOUBLE, 1, idim2,nvarid)
     621#else
    503622      ierr = NF_DEF_VAR (nid, "RUGSREL", NF_FLOAT, 1, idim2,nvarid)
     623#endif
    504624      ierr = NF_ENDDEF(nid)
    505625#ifdef NC_DOUBLE
    … …  
    510630c
    511631      ierr = NF_REDEF (nid)
     632#ifdef NC_DOUBLE
     633      ierr = NF_DEF_VAR (nid, "TANCIEN", NF_DOUBLE, 1, idim3,nvarid)
     634#else
    512635      ierr = NF_DEF_VAR (nid, "TANCIEN", NF_FLOAT, 1, idim3,nvarid)
     636#endif
    513637      ierr = NF_ENDDEF(nid)
    514638#ifdef NC_DOUBLE
    … …  
    519643c
    520644      ierr = NF_REDEF (nid)
     645#ifdef NC_DOUBLE
     646      ierr = NF_DEF_VAR (nid, "QANCIEN", NF_DOUBLE, 1, idim3,nvarid)
     647#else
    521648      ierr = NF_DEF_VAR (nid, "QANCIEN", NF_FLOAT, 1, idim3,nvarid)
     649#endif
    522650      ierr = NF_ENDDEF(nid)
    523651#ifdef NC_DOUBLE
    … …  
    528656c
    529657      ierr = NF_REDEF (nid)
     658#ifdef NC_DOUBLE
     659      ierr = NF_DEF_VAR (nid, "RUGMER", NF_DOUBLE, 1, idim2,nvarid)
     660#else
    530661      ierr = NF_DEF_VAR (nid, "RUGMER", NF_FLOAT, 1, idim2,nvarid)
     662#endif
    531663      ierr = NF_PUT_ATT_TEXT (nid,nvarid,"title", 28,
    532664     .                        "Longueur de rugosite sur mer")
Note: See TracChangeset for help on using the changeset viewer.