/[lmdze]/trunk/Sources/phylmd/clmain.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/clmain.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 141  cIM cf JLD Line 141  cIM cf JLD
141        REAL run_off_lic_0(klon), y_run_off_lic_0(klon)        REAL run_off_lic_0(klon), y_run_off_lic_0(klon)
142    
143        REAL flux_u(klon,klev, nbsrf), flux_v(klon,klev, nbsrf)        REAL flux_u(klon,klev, nbsrf), flux_v(klon,klev, nbsrf)
144        REAL rugmer(klon), agesno(klon,nbsrf),rugoro(klon)        REAL rugmer(klon), agesno(klon,nbsrf)
145          real, intent(in):: rugoro(klon)
146        REAL cdragh(klon), cdragm(klon)        REAL cdragh(klon), cdragm(klon)
147        integer jour            ! jour de l'annee en cours        integer jour            ! jour de l'annee en cours
148        real rmu0(klon)         ! cosinus de l'angle solaire zenithal        real rmu0(klon)         ! cosinus de l'angle solaire zenithal
# Line 253  c Line 254  c
254        LOGICAL first_appel        LOGICAL first_appel
255        SAVE first_appel        SAVE first_appel
256        DATA first_appel/.true./        DATA first_appel/.true./
257        LOGICAL debugindex        LOGICAL:: debugindex = .false.
       SAVE debugindex  
       DATA debugindex/.false./  
258        integer idayref        integer idayref
259        REAL t2m(klon,nbsrf), q2m(klon,nbsrf)        REAL t2m(klon,nbsrf), q2m(klon,nbsrf)
260        REAL u10m(klon,nbsrf), v10m(klon,nbsrf)        REAL u10m(klon,nbsrf), v10m(klon,nbsrf)
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21