/[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 112 by guez, Thu Mar 6 17:35:22 2014 UTC revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC
# Line 14  contains Line 14  contains
14    
15      use comconst, only: dtvr      use comconst, only: dtvr
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
     use conf_gcm_m, only: fxyhypb, ysinus  
17      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
18      use disvert_m, only: pa      use disvert_m, only: pa
19      use ener, only: etot0, ang0, ptot0, stot0, ztot0      use ener, only: etot0, ang0, ptot0, stot0, ztot0
# Line 23  contains Line 22  contains
22      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, &
23           NF95_Gw_VAR           NF95_Gw_VAR
24      use nr_util, only: assert      use nr_util, only: assert
25      use serre, only: clon, clat, grossismy, grossismx      use serre, only: clon, clat, grossismy, grossismx, dzoomx, dzoomy, taux, &
26             tauy
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)
# Line 80  contains Line 80  contains
80      stot0 = tab_cntrl(16)      stot0 = tab_cntrl(16)
81      ang0 = tab_cntrl(17)      ang0 = tab_cntrl(17)
82      pa = tab_cntrl(18)      pa = tab_cntrl(18)
83    
84      clon = tab_cntrl(20)      clon = tab_cntrl(20)
85      clat = tab_cntrl(21)      clat = tab_cntrl(21)
86      grossismx = tab_cntrl(22)      grossismx = tab_cntrl(22)
87      grossismy = tab_cntrl(23)      grossismy = tab_cntrl(23)
88      fxyhypb = tab_cntrl(24) == 1.      dzoomx = tab_cntrl(25)
89      if (.not. fxyhypb) ysinus = tab_cntrl(27) == 1.      dzoomy = tab_cntrl(26)
90        taux = tab_cntrl(28)
91        tauy = tab_cntrl(29)
92    
93      itau_dyn = tab_cntrl(31)      itau_dyn = tab_cntrl(31)
94    
95      call NF95_INQ_VARID (ncid, "rlonu", varid)      call NF95_INQ_VARID (ncid, "rlonu", varid)
Legend:
Removed from v.112  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.21