/[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 66 by guez, Thu Sep 20 13:00:41 2012 UTC revision 67 by guez, Tue Oct 2 15:50:56 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
     use disvert_m, only: pa  
16      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
17        use conf_gcm_m, only: fxyhypb, ysinus
18      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
19        use disvert_m, only: pa
20      use ener, only: etot0, ang0, ptot0, stot0, ztot0      use ener, only: etot0, ang0, ptot0, stot0, ztot0
21      use iniadvtrac_m, only: tname      use iniadvtrac_m, only: tname
22      use conf_gcm_m, only: fxyhypb, ysinus      use netcdf, only: NF90_NOWRITE, NF90_NOERR
     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
     use netcdf, only: NF90_NOWRITE, NF90_NOERR  
25      use nr_util, only: assert      use nr_util, only: assert
26        use serre, only: clon, clat, grossismy, grossismx
27      use temps, only: day_ref, itau_dyn, annee_ref      use temps, only: day_ref, itau_dyn, annee_ref
28    
29      REAL, intent(out):: vcov(: , :, :) ! (iim + 1, jjm, llm)      REAL, intent(out):: vcov(: , :, :) ! (iim + 1, jjm, llm)
Legend:
Removed from v.66  
changed lines
  Added in v.67
  ViewVC Help
Powered by ViewVC 1.1.21