Changeset 690


Ignore:
Timestamp:
Apr 4, 2006, 5:04:47 PM (19 years ago)
Author:
lmdzadmin
Message:

Correction bogue : on ecrit dorenavant en DOUBLE precision dans le restart.nc
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/dynredem.F

    r541 r690  
    144144c
    145145      ierr = NF_REDEF (nid)
     146cIM 220306 BEG
     147#ifdef NC_DOUBLE
     148      ierr = NF_DEF_VAR (nid,"controle",NF_DOUBLE,1,idim_index,nvarid)
     149#else
    146150      ierr = NF_DEF_VAR (nid,"controle",NF_FLOAT,1,idim_index,nvarid)
     151#endif
     152cIM 220306 END
    147153      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    148154     .                       "Parametres de controle")
    … …  
    155161c
    156162      ierr = NF_REDEF (nid)
     163cIM 220306 BEG
     164#ifdef NC_DOUBLE
     165      ierr = NF_DEF_VAR (nid,"rlonu",NF_DOUBLE,1,idim_rlonu,nvarid)
     166#else
    157167      ierr = NF_DEF_VAR (nid,"rlonu",NF_FLOAT,1,idim_rlonu,nvarid)
     168#endif
     169cIM 220306 END
    158170      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
    159171     .                       "Longitudes des points U")
    … …  
    166178c
    167179      ierr = NF_REDEF (nid)
     180cIM 220306 BEG
     181#ifdef NC_DOUBLE
     182      ierr = NF_DEF_VAR (nid,"rlatu",NF_DOUBLE,1,idim_rlatu,nvarid)
     183#else
    168184      ierr = NF_DEF_VAR (nid,"rlatu",NF_FLOAT,1,idim_rlatu,nvarid)
     185#endif
     186cIM 220306 END
    169187      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    170188     .                       "Latitudes des points U")
    … …  
    177195c
    178196      ierr = NF_REDEF (nid)
     197cIM 220306 BEG
     198#ifdef NC_DOUBLE
     199      ierr = NF_DEF_VAR (nid,"rlonv",NF_DOUBLE,1,idim_rlonv,nvarid)
     200#else
    179201      ierr = NF_DEF_VAR (nid,"rlonv",NF_FLOAT,1,idim_rlonv,nvarid)
     202#endif
     203cIM 220306 END
    180204      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
    181205     .                       "Longitudes des points V")
    … …  
    188212c
    189213      ierr = NF_REDEF (nid)
     214cIM 220306 BEG
     215#ifdef NC_DOUBLE
     216      ierr = NF_DEF_VAR (nid,"rlatv",NF_DOUBLE,1,idim_rlatv,nvarid)
     217#else
    190218      ierr = NF_DEF_VAR (nid,"rlatv",NF_FLOAT,1,idim_rlatv,nvarid)
     219#endif
     220cIM 220306 END
    191221      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    192222     .                       "Latitudes des points V")
    … …  
    199229c
    200230      ierr = NF_REDEF (nid)
     231cIM 220306 BEG
     232#ifdef NC_DOUBLE
     233      ierr = NF_DEF_VAR (nid,"nivsigs",NF_DOUBLE,1,idim_s,nvarid)
     234#else
    201235      ierr = NF_DEF_VAR (nid,"nivsigs",NF_FLOAT,1,idim_s,nvarid)
     236#endif
     237cIM 220306 END
    202238      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28,
    203239     .                       "Numero naturel des couches s")
    … …  
    210246c
    211247      ierr = NF_REDEF (nid)
     248cIM 220306 BEG
     249#ifdef NC_DOUBLE
     250      ierr = NF_DEF_VAR (nid,"nivsig",NF_DOUBLE,1,idim_sig,nvarid)
     251#else
    212252      ierr = NF_DEF_VAR (nid,"nivsig",NF_FLOAT,1,idim_sig,nvarid)
     253#endif
     254cIM 220306 END
    213255      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 32,
    214256     .                       "Numero naturel des couches sigma")
    … …  
    221263c
    222264      ierr = NF_REDEF (nid)
     265cIM 220306 BEG
     266#ifdef NC_DOUBLE
     267      ierr = NF_DEF_VAR (nid,"ap",NF_DOUBLE,1,idim_sig,nvarid)
     268#else
    223269      ierr = NF_DEF_VAR (nid,"ap",NF_FLOAT,1,idim_sig,nvarid)
     270#endif
     271cIM 220306 END
    224272      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
    225273     .                       "Coefficient A pour hybride")
    … …  
    232280c
    233281      ierr = NF_REDEF (nid)
     282cIM 220306 BEG
     283#ifdef NC_DOUBLE
     284      ierr = NF_DEF_VAR (nid,"bp",NF_DOUBLE,1,idim_sig,nvarid)
     285#else
    234286      ierr = NF_DEF_VAR (nid,"bp",NF_FLOAT,1,idim_sig,nvarid)
     287#endif
     288cIM 220306 END
    235289      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
    236290     .                       "Coefficient B pour hybride")
    … …  
    243297c
    244298      ierr = NF_REDEF (nid)
     299cIM 220306 BEG
     300#ifdef NC_DOUBLE
     301      ierr = NF_DEF_VAR (nid,"presnivs",NF_DOUBLE,1,idim_s,nvarid)
     302#else
    245303      ierr = NF_DEF_VAR (nid,"presnivs",NF_FLOAT,1,idim_s,nvarid)
     304#endif
     305cIM 220306 END
    246306      ierr = NF_ENDDEF(nid)
    247307#ifdef NC_DOUBLE
    … …  
    256316      dims2(1) = idim_rlonu
    257317      dims2(2) = idim_rlatu
     318cIM 220306 BEG
     319#ifdef NC_DOUBLE
     320      ierr = NF_DEF_VAR (nid,"cu",NF_DOUBLE,2,dims2,nvarid)
     321#else
    258322      ierr = NF_DEF_VAR (nid,"cu",NF_FLOAT,2,dims2,nvarid)
     323#endif
     324cIM 220306 END
    259325      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
    260326     .                       "Coefficient de passage pour U")
    … …  
    269335      dims2(1) = idim_rlonv
    270336      dims2(2) = idim_rlatv
     337cIM 220306 BEG
     338#ifdef NC_DOUBLE
     339      ierr = NF_DEF_VAR (nid,"cv",NF_DOUBLE,2,dims2,nvarid)
     340#else
    271341      ierr = NF_DEF_VAR (nid,"cv",NF_FLOAT,2,dims2,nvarid)
     342#endif
     343cIM 220306 END
    272344      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
    273345     .                       "Coefficient de passage pour V")
    … …  
    284356      dims2(1) = idim_rlonv
    285357      dims2(2) = idim_rlatu
     358cIM 220306 BEG
     359#ifdef NC_DOUBLE
     360      ierr = NF_DEF_VAR (nid,"aire",NF_DOUBLE,2,dims2,nvarid)
     361#else
    286362      ierr = NF_DEF_VAR (nid,"aire",NF_FLOAT,2,dims2,nvarid)
     363#endif
     364cIM 220306 END
    287365      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
    288366     .                       "Aires de chaque maille")
    … …  
    299377      dims2(1) = idim_rlonv
    300378      dims2(2) = idim_rlatu
     379cIM 220306 BEG
     380#ifdef NC_DOUBLE
     381      ierr = NF_DEF_VAR (nid,"phisinit",NF_DOUBLE,2,dims2,nvarid)
     382#else
    301383      ierr = NF_DEF_VAR (nid,"phisinit",NF_FLOAT,2,dims2,nvarid)
     384#endif
     385cIM 220306 END
    302386      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
    303387     .                       "Geopotentiel au sol")
    … …  
    313397      ierr = NF_REDEF (nid) ! entrer dans le mode de definition
    314398c
     399cIM 220306 BEG
     400#ifdef NC_DOUBLE
     401      ierr = NF_DEF_VAR (nid,"temps",NF_DOUBLE,1,idim_tim,nvarid)
     402#else
    315403      ierr = NF_DEF_VAR (nid,"temps",NF_FLOAT,1,idim_tim,nvarid)
     404#endif
     405cIM 220306 END
    316406      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
    317407     .                       "Temps de simulation")
    … …  
    326416      dims4(3) = idim_s
    327417      dims4(4) = idim_tim
     418cIM 220306 BEG
     419#ifdef NC_DOUBLE
     420      ierr = NF_DEF_VAR (nid,"ucov",NF_DOUBLE,4,dims4,nvarid)
     421#else
    328422      ierr = NF_DEF_VAR (nid,"ucov",NF_FLOAT,4,dims4,nvarid)
     423#endif
     424cIM 220306 END
    329425      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
    330426     .                       "Vitesse U")
    … …  
    334430      dims4(3) = idim_s
    335431      dims4(4) = idim_tim
     432cIM 220306 BEG
     433#ifdef NC_DOUBLE
     434      ierr = NF_DEF_VAR (nid,"vcov",NF_DOUBLE,4,dims4,nvarid)
     435#else
    336436      ierr = NF_DEF_VAR (nid,"vcov",NF_FLOAT,4,dims4,nvarid)
     437#endif
     438cIM 220306 END
    337439      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
    338440     .                       "Vitesse V")
    … …  
    342444      dims4(3) = idim_s
    343445      dims4(4) = idim_tim
     446cIM 220306 BEG
     447#ifdef NC_DOUBLE
     448      ierr = NF_DEF_VAR (nid,"teta",NF_DOUBLE,4,dims4,nvarid)
     449#else
    344450      ierr = NF_DEF_VAR (nid,"teta",NF_FLOAT,4,dims4,nvarid)
     451#endif
     452cIM 220306 END
    345453      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 11,
    346454     .                       "Temperature")
    … …  
    352460      IF(nq.GE.1) THEN
    353461      DO iq=1,nq
     462cIM 220306 BEG
     463#ifdef NC_DOUBLE
     464      ierr = NF_DEF_VAR (nid,tname(iq),NF_DOUBLE,4,dims4,nvarid)
     465#else
    354466      ierr = NF_DEF_VAR (nid,tname(iq),NF_FLOAT,4,dims4,nvarid)
     467#endif
     468cIM 220306 END
    355469      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,ttext(iq))
    356470      ENDDO
    … …  
    361475      dims4(3) = idim_s
    362476      dims4(4) = idim_tim
     477cIM 220306 BEG
     478#ifdef NC_DOUBLE
     479      ierr = NF_DEF_VAR (nid,"masse",NF_DOUBLE,4,dims4,nvarid)
     480#else
    363481      ierr = NF_DEF_VAR (nid,"masse",NF_FLOAT,4,dims4,nvarid)
     482#endif
     483cIM 220306 END
    364484      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,
    365485     .                       "C est quoi ?")
    … …  
    368488      dims3(2) = idim_rlatu
    369489      dims3(3) = idim_tim
     490cIM 220306 BEG
     491#ifdef NC_DOUBLE
     492      ierr = NF_DEF_VAR (nid,"ps",NF_DOUBLE,3,dims3,nvarid)
     493#else
    370494      ierr = NF_DEF_VAR (nid,"ps",NF_FLOAT,3,dims3,nvarid)
     495#endif
     496cIM 220306 END
    371497      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 15,
    372498     .                       "Pression au sol")
Note: See TracChangeset for help on using the changeset viewer.