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

Diff of /trunk/dyn3d/dynetat0.f

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

trunk/Sources/dyn3d/dynetat0.f revision 228 by guez, Fri Nov 3 12:38:47 2017 UTC trunk/dyn3d/dynetat0.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 1  Line 1 
1  module dynetat0_m  module dynetat0_m
2    
3    use dimens_m, only: iim, jjm    use dimensions, only: iim, jjm
4    
5    IMPLICIT NONE    IMPLICIT NONE
6    
# Line 45  module dynetat0_m Line 45  module dynetat0_m
45    
46    REAL xprimm025(iim + 1), xprimp025(iim + 1)    REAL xprimm025(iim + 1), xprimp025(iim + 1)
47    REAL rlatu1(jjm), rlatu2(jjm), yprimu1(jjm), yprimu2(jjm)    REAL rlatu1(jjm), rlatu2(jjm), yprimu1(jjm), yprimu2(jjm)
48      REAL ang0, etot0, ptot0, ztot0, stot0
49    
50    save    save
51    
# Line 58  contains Line 59  contains
59    
60      use comconst, only: dtvr      use comconst, only: dtvr
61      use conf_gcm_m, only: raz_date      use conf_gcm_m, only: raz_date
62      use dimens_m, only: iim, jjm, llm, nqmx      use dimensions, only: iim, jjm, llm, nqmx
63      use disvert_m, only: pa      use disvert_m, only: pa
     use ener, only: etot0, ang0, ptot0, stot0, ztot0  
64      use iniadvtrac_m, only: tname      use iniadvtrac_m, only: tname
65      use netcdf, only: NF90_NOWRITE, NF90_NOERR      use netcdf, only: NF90_NOWRITE, NF90_NOERR
66      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, &
Legend:
Removed from v.228  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21