Changeset 110


Ignore:
Timestamp:
Jul 26, 2000, 6:16:48 PM (24 years ago)
Author:
lmdzadmin
Message:

update /version de reference

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/physdem.F

    r2 r110  
    4141c Ajout de quelques parametres orographiques (F. LOTT janvier 1995)
    4242
    43       REAL zmea(iip1,jjp1),zstd(iip1,jjp1)
    44       REAL zsig(iip1,jjp1),zgam(iip1,jjp1),zthe(iip1,jjp1)
    45       REAL zpic(iip1,jjp1),zval(iip1,jjp1)
    46       REAL rugsrel(iip1,jjp1)
     43      REAL zmea(klon),zstd(klon)
     44      REAL zsig(klon),zgam(klon),zthe(klon)
     45      REAL zpic(klon),zval(klon)
     46      REAL rugsrel(klon)
    4747      INTEGER idayref,anneeref
    4848
     
    280280#endif
    281281c
    282       CALL gr_dyn_fi(1, iip1, jjp1, klon, zmea, champhys)
    283282      ierr = NF_REDEF (nid)
    284283#ifdef NC_DOUBLE
     
    294293#endif
    295294c
    296       CALL gr_dyn_fi(1, iip1, jjp1, klon, zstd, champhys)
    297295      ierr = NF_REDEF (nid)
    298296#ifdef NC_DOUBLE
     
    308306#endif
    309307
    310       CALL gr_dyn_fi(1, iip1, jjp1, klon, zsig, champhys)
    311308      ierr = NF_REDEF (nid)
    312309#ifdef NC_DOUBLE
     
    322319#endif
    323320
    324       CALL gr_dyn_fi(1, iip1, jjp1, klon, zgam, champhys)
    325321      ierr = NF_REDEF (nid)
    326322#ifdef NC_DOUBLE
     
    336332#endif
    337333
    338       CALL gr_dyn_fi(1, iip1, jjp1, klon, zthe, champhys)
    339334      ierr = NF_REDEF (nid)
    340335#ifdef NC_DOUBLE
     
    350345#endif
    351346
    352       CALL gr_dyn_fi(1, iip1, jjp1, klon, zpic, champhys)
    353347      ierr = NF_REDEF (nid)
    354348#ifdef NC_DOUBLE
     
    364358#endif
    365359
    366       CALL gr_dyn_fi(1, iip1, jjp1, klon, zval, champhys)
    367360      ierr = NF_REDEF (nid)
    368361#ifdef NC_DOUBLE
     
    378371#endif
    379372
    380       CALL gr_dyn_fi(1, iip1, jjp1, klon, rugsrel, champhys)
    381373      ierr = NF_REDEF (nid)
    382374#ifdef NC_DOUBLE
Note: See TracChangeset for help on using the changeset viewer.