/[lmdze]/trunk/dyn3d/dynetat0.f
ViewVC logotype

Diff of /trunk/dyn3d/dynetat0.f

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

revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC
# Line 13  contains Line 13  contains
13      ! This procedure reads the initial state of the atmosphere.      ! This procedure reads the initial state of the atmosphere.
14    
15      use comconst, only: im, dtvr, jm, lllm      use comconst, only: im, dtvr, jm, lllm
16      use comvert, only: pa      use disvert_m, only: pa
17      use comgeom, only: rlonu, rlatu, rlonv, rlatv, cu_2d, cv_2d, aire_2d      use comgeom, only: rlonu, rlatu, rlonv, rlatv, cu_2d, cv_2d, aire_2d
18      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
19      use ener, only: etot0, ang0, ptot0, stot0, ztot0      use ener, only: etot0, ang0, ptot0, stot0, ztot0
20      use iniadvtrac_m, only: tname      use iniadvtrac_m, only: tname
21      use logic, only: fxyhypb, ysinus      use conf_gcm_m, only: fxyhypb, ysinus
22      use serre, only: clon, clat, grossismy, grossismx      use serre, only: clon, clat, grossismy, grossismx
23      use netcdf95, only: NF95_GET_VAR, nf95_open, nf95_inq_varid, NF95_CLOSE, &      use netcdf95, only: NF95_GET_VAR, nf95_open, nf95_inq_varid, NF95_CLOSE, &
24           NF95_Gw_VAR           NF95_Gw_VAR
Legend:
Removed from v.55  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.21