Ignore:
Timestamp:
Mar 20, 2001, 4:14:30 PM (24 years ago)
Author:
lmdzadmin
Message:

Synchronisation avec version MAFO:

ajout sortie netcdf des champs echanges avec le coupleur
quelques save sur les variables (pb stack/static sur le nec)

LF

Location:
LMDZ.3.3/branches/rel-LF/libf/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/dynredem.F

    r79 r179  
     1c $Header$
     2c
    13      SUBROUTINE dynredem0(fichnom,idayref,anneeref,phis,nq)
    24      USE IOIPSL
    … …  
    132134c
    133135      ierr = NF_REDEF (nid)
    134 #ifdef NC_DOUBLE
    135       ierr = NF_DEF_VAR (nid,"controle",NF_DOUBLE,1,idim_index,nvarid)
    136 #else
    137136      ierr = NF_DEF_VAR (nid,"controle",NF_FLOAT,1,idim_index,nvarid)
    138 #endif
    139137      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    140138     .                       "Parametres de controle")
    … …  
    147145c
    148146      ierr = NF_REDEF (nid)
    149 #ifdef NC_DOUBLE
    150       ierr = NF_DEF_VAR (nid,"rlonu",NF_DOUBLE,1,idim_rlonu,nvarid)
    151 #else
    152147      ierr = NF_DEF_VAR (nid,"rlonu",NF_FLOAT,1,idim_rlonu,nvarid)
    153 #endif
    154148      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
    155149     .                       "Longitudes des points U")
    … …  
    162156c
    163157      ierr = NF_REDEF (nid)
    164 #ifdef NC_DOUBLE
    165       ierr = NF_DEF_VAR (nid,"rlatu",NF_DOUBLE,1,idim_rlatu,nvarid)
    166 #else
    167158      ierr = NF_DEF_VAR (nid,"rlatu",NF_FLOAT,1,idim_rlatu,nvarid)
    168 #endif
    169159      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    170160     .                       "Latitudes des points U")
    … …  
    177167c
    178168      ierr = NF_REDEF (nid)
    179 #ifdef NC_DOUBLE
    180       ierr = NF_DEF_VAR (nid,"rlonv",NF_DOUBLE,1,idim_rlonv,nvarid)
    181 #else
    182169      ierr = NF_DEF_VAR (nid,"rlonv",NF_FLOAT,1,idim_rlonv,nvarid)
    183 #endif
    184170      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
    185171     .                       "Longitudes des points V")
    … …  
    192178c
    193179      ierr = NF_REDEF (nid)
    194 #ifdef NC_DOUBLE
    195       ierr = NF_DEF_VAR (nid,"rlatv",NF_DOUBLE,1,idim_rlatv,nvarid)
    196 #else
    197180      ierr = NF_DEF_VAR (nid,"rlatv",NF_FLOAT,1,idim_rlatv,nvarid)
    198 #endif
    199181      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    200182     .                       "Latitudes des points V")
    … …  
    207189c
    208190      ierr = NF_REDEF (nid)
    209 #ifdef NC_DOUBLE
    210       ierr = NF_DEF_VAR (nid,"nivsigs",NF_DOUBLE,1,idim_s,nvarid)
    211 #else
    212191      ierr = NF_DEF_VAR (nid,"nivsigs",NF_FLOAT,1,idim_s,nvarid)
    213 #endif
    214192      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28,
    215193     .                       "Numero naturel des couches s")
    … …  
    222200c
    223201      ierr = NF_REDEF (nid)
    224 #ifdef NC_DOUBLE
    225       ierr = NF_DEF_VAR (nid,"nivsig",NF_DOUBLE,1,idim_sig,nvarid)
    226 #else
    227202      ierr = NF_DEF_VAR (nid,"nivsig",NF_FLOAT,1,idim_sig,nvarid)
    228 #endif
    229203      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 32,
    230204     .                       "Numero naturel des couches sigma")
    … …  
    237211c
    238212      ierr = NF_REDEF (nid)
    239 #ifdef NC_DOUBLE
    240       ierr = NF_DEF_VAR (nid,"ap",NF_DOUBLE,1,idim_sig,nvarid)
    241 #else
    242213      ierr = NF_DEF_VAR (nid,"ap",NF_FLOAT,1,idim_sig,nvarid)
    243 #endif
    244214      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
    245215     .                       "Coefficient A pour hybride")
    … …  
    252222c
    253223      ierr = NF_REDEF (nid)
    254 #ifdef NC_DOUBLE
    255       ierr = NF_DEF_VAR (nid,"bp",NF_DOUBLE,1,idim_sig,nvarid)
    256 #else
    257224      ierr = NF_DEF_VAR (nid,"bp",NF_FLOAT,1,idim_sig,nvarid)
    258 #endif
    259225      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
    260226     .                       "Coefficient B pour hybride")
    … …  
    267233c
    268234      ierr = NF_REDEF (nid)
    269 #ifdef NC_DOUBLE
    270       ierr = NF_DEF_VAR (nid,"presnivs",NF_DOUBLE,1,idim_s,nvarid)
    271 #else
    272235      ierr = NF_DEF_VAR (nid,"presnivs",NF_FLOAT,1,idim_s,nvarid)
    273 #endif
    274236      ierr = NF_ENDDEF(nid)
    275237#ifdef NC_DOUBLE
    … …  
    284246      dims2(1) = idim_rlonu
    285247      dims2(2) = idim_rlatu
    286 #ifdef NC_DOUBLE
    287       ierr = NF_DEF_VAR (nid,"cu",NF_DOUBLE,2,dims2,nvarid)
    288 #else
    289248      ierr = NF_DEF_VAR (nid,"cu",NF_FLOAT,2,dims2,nvarid)
    290 #endif
    291249      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
    292250     .                       "Coefficient de passage pour U")
    … …  
    301259      dims2(1) = idim_rlonv
    302260      dims2(2) = idim_rlatv
    303 #ifdef NC_DOUBLE
    304       ierr = NF_DEF_VAR (nid,"cv",NF_DOUBLE,2,dims2,nvarid)
    305 #else
    306261      ierr = NF_DEF_VAR (nid,"cv",NF_FLOAT,2,dims2,nvarid)
    307 #endif
    308262      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
    309263     .                       "Coefficient de passage pour V")
    … …  
    320274      dims2(1) = idim_rlonv
    321275      dims2(2) = idim_rlatu
    322 #ifdef NC_DOUBLE
    323       ierr = NF_DEF_VAR (nid,"aire",NF_DOUBLE,2,dims2,nvarid)
    324 #else
    325276      ierr = NF_DEF_VAR (nid,"aire",NF_FLOAT,2,dims2,nvarid)
    326 #endif
    327277      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    328278     .                       "Aires de chaque maille")
    … …  
    339289      dims2(1) = idim_rlonv
    340290      dims2(2) = idim_rlatu
    341 #ifdef NC_DOUBLE
    342       ierr = NF_DEF_VAR (nid,"phisinit",NF_DOUBLE,2,dims2,nvarid)
    343 #else
    344291      ierr = NF_DEF_VAR (nid,"phisinit",NF_FLOAT,2,dims2,nvarid)
    345 #endif
    346292      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
    347293     .                       "Geopotentiel au sol")
    … …  
    357303      ierr = NF_REDEF (nid) ! entrer dans le mode de definition
    358304c
    359 #ifdef NC_DOUBLE
    360       ierr = NF_DEF_VAR (nid,"temps",NF_DOUBLE,1,idim_tim,nvarid)
    361 #else
    362305      ierr = NF_DEF_VAR (nid,"temps",NF_FLOAT,1,idim_tim,nvarid)
    363 #endif
    364306      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
    365307     .                       "Temps de simulation")
    … …  
    374316      dims4(3) = idim_s
    375317      dims4(4) = idim_tim
    376 #ifdef NC_DOUBLE
    377       ierr = NF_DEF_VAR (nid,"ucov",NF_DOUBLE,4,dims4,nvarid)
    378 #else
    379318      ierr = NF_DEF_VAR (nid,"ucov",NF_FLOAT,4,dims4,nvarid)
    380 #endif
    381319      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
    382320     .                       "Vitesse U")
    … …  
    386324      dims4(3) = idim_s
    387325      dims4(4) = idim_tim
    388 #ifdef NC_DOUBLE
    389       ierr = NF_DEF_VAR (nid,"vcov",NF_DOUBLE,4,dims4,nvarid)
    390 #else
    391326      ierr = NF_DEF_VAR (nid,"vcov",NF_FLOAT,4,dims4,nvarid)
    392 #endif
    393327      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
    394328     .                       "Vitesse V")
    … …  
    398332      dims4(3) = idim_s
    399333      dims4(4) = idim_tim
    400 #ifdef NC_DOUBLE
    401       ierr = NF_DEF_VAR (nid,"teta",NF_DOUBLE,4,dims4,nvarid)
    402 #else
    403334      ierr = NF_DEF_VAR (nid,"teta",NF_FLOAT,4,dims4,nvarid)
    404 #endif
    405335      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 11,
    406336     .                       "Temperature")
    … …  
    418348         str3(1:1)='q'
    419349         WRITE(str3(2:3),'(i2.2)') iq
    420 #ifdef NC_DOUBLE
    421          ierr = NF_DEF_VAR (nid,str3,NF_DOUBLE,4,dims4,nvarid)
    422 #else
    423350         ierr = NF_DEF_VAR (nid,str3,NF_FLOAT,4,dims4,nvarid)
    424 #endif
    425351      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,
    426352     .                       "Traceurs "//str3)
    … …  
    433359      dims4(3) = idim_s
    434360      dims4(4) = idim_tim
    435 #ifdef NC_DOUBLE
    436       ierr = NF_DEF_VAR (nid,"masse",NF_DOUBLE,4,dims4,nvarid)
    437 #else
    438361      ierr = NF_DEF_VAR (nid,"masse",NF_FLOAT,4,dims4,nvarid)
    439 #endif
    440362      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,
    441363     .                       "C est quoi ?")
    … …  
    444366      dims3(2) = idim_rlatu
    445367      dims3(3) = idim_tim
    446 #ifdef NC_DOUBLE
    447       ierr = NF_DEF_VAR (nid,"ps",NF_DOUBLE,3,dims3,nvarid)
    448 #else
    449368      ierr = NF_DEF_VAR (nid,"ps",NF_FLOAT,3,dims3,nvarid)
    450 #endif
    451369      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 15,
    452370     .                       "Pression au sol")

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/temps.h

    r99 r179  
     1! $Header$
     2!
    13!-----------------------------------------------------------------------
    24! INCLUDE 'temps.h'
    35
    4       COMMON/temps/itaufin,dt,
    5      s  day_ini,day_end,anne_ini
     6      COMMON/temps/itaufin,dt, day_ini,day_end,anne_ini
    67
    78      INTEGER  itaufin
Note: See TracChangeset for help on using the changeset viewer.