Ignore:
Timestamp:
Mar 29, 2001, 10:31:57 AM (24 years ago)
Author:
lmdz
Message:

Pb d'ecriture des champs relies au relief. FH
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/physdem.F

    r85 r183  
    5656      REAL solaire
    5757      REAL latfi(klon), lonfi(klon)
    58       REAL champhys(klon)
    5958      REAL ts(klon)
    6059      REAL deltat(klon)
    … …  
    288287      ierr = NF_ENDDEF(nid)
    289288#ifdef NC_DOUBLE
    290       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,champhys)
    291 #else
    292       ierr = NF_PUT_VAR_REAL (nid,nvarid,champhys)
     289      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zmea)
     290#else
     291      ierr = NF_PUT_VAR_REAL (nid,nvarid,zmea)
    293292#endif
    294293c
    … …  
    301300      ierr = NF_ENDDEF(nid)
    302301#ifdef NC_DOUBLE
    303       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,champhys)
    304 #else
    305       ierr = NF_PUT_VAR_REAL (nid,nvarid,champhys)
     302      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zstd)
     303#else
     304      ierr = NF_PUT_VAR_REAL (nid,nvarid,zstd)
    306305#endif
    307306
    … …  
    314313      ierr = NF_ENDDEF(nid)
    315314#ifdef NC_DOUBLE
    316       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,champhys)
    317 #else
    318       ierr = NF_PUT_VAR_REAL (nid,nvarid,champhys)
     315      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zsig)
     316#else
     317      ierr = NF_PUT_VAR_REAL (nid,nvarid,zsig)
    319318#endif
    320319
    … …  
    327326      ierr = NF_ENDDEF(nid)
    328327#ifdef NC_DOUBLE
    329       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,champhys)
    330 #else
    331       ierr = NF_PUT_VAR_REAL (nid,nvarid,champhys)
     328      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zgam)
     329#else
     330      ierr = NF_PUT_VAR_REAL (nid,nvarid,zgam)
    332331#endif
    333332
    … …  
    340339      ierr = NF_ENDDEF(nid)
    341340#ifdef NC_DOUBLE
    342       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,champhys)
    343 #else
    344       ierr = NF_PUT_VAR_REAL (nid,nvarid,champhys)
     341      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zthe)
     342#else
     343      ierr = NF_PUT_VAR_REAL (nid,nvarid,zthe)
    345344#endif
    346345
    … …  
    353352      ierr = NF_ENDDEF(nid)
    354353#ifdef NC_DOUBLE
    355       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,champhys)
    356 #else
    357       ierr = NF_PUT_VAR_REAL (nid,nvarid,champhys)
     354      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zpic)
     355#else
     356      ierr = NF_PUT_VAR_REAL (nid,nvarid,zpic)
    358357#endif
    359358
    … …  
    366365      ierr = NF_ENDDEF(nid)
    367366#ifdef NC_DOUBLE
    368       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,champhys)
    369 #else
    370       ierr = NF_PUT_VAR_REAL (nid,nvarid,champhys)
     367      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,zval)
     368#else
     369      ierr = NF_PUT_VAR_REAL (nid,nvarid,zval)
    371370#endif
    372371
    … …  
    379378      ierr = NF_ENDDEF(nid)
    380379#ifdef NC_DOUBLE
    381       ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,champhys)
    382 #else
    383       ierr = NF_PUT_VAR_REAL (nid,nvarid,champhys)
     380      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,rugsrel)
     381#else
     382      ierr = NF_PUT_VAR_REAL (nid,nvarid,rugsrel)
    384383#endif
    385384c
Note: See TracChangeset for help on using the changeset viewer.