/[lmdze]/trunk/Sources/dyn3d/etat0.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/etat0.f

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

revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC
# Line 21  contains Line 21  contains
21      use comconst, only: cpp, kappa, iniconst      use comconst, only: cpp, kappa, iniconst
22      use comgeom, only: rlatu, rlonv, rlonu, rlatv, aire_2d, apoln, apols, &      use comgeom, only: rlatu, rlonv, rlonu, rlatv, aire_2d, apoln, apols, &
23           cu_2d, cv_2d, inigeom           cu_2d, cv_2d, inigeom
     use conf_gcm_m, only: dayref, anneeref  
24      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
25      use dimphy, only: zmasq      use dimphy, only: zmasq
26      use dimsoil, only: nsoilmx      use dimsoil, only: nsoilmx
27      use disvert_m, only: ap, bp, preff, pa, disvert      use disvert_m, only: ap, bp, preff, pa, disvert
28        use dynetat0_m, only: day_ref, annee_ref
29      use dynredem0_m, only: dynredem0      use dynredem0_m, only: dynredem0
30      use dynredem1_m, only: dynredem1      use dynredem1_m, only: dynredem1
31      use exner_hyb_m, only: exner_hyb      use exner_hyb_m, only: exner_hyb
# Line 50  contains Line 50  contains
50      USE start_init_orog_m, only: start_init_orog, mask      USE start_init_orog_m, only: start_init_orog, mask
51      use start_init_phys_m, only: start_init_phys      use start_init_phys_m, only: start_init_phys
52      use start_inter_3d_m, only: start_inter_3d      use start_inter_3d_m, only: start_inter_3d
53      use temps, only: itau_phy, annee_ref, day_ref      use temps, only: itau_phy
54      use test_disvert_m, only: test_disvert      use test_disvert_m, only: test_disvert
55        use unit_nml_m, only: unit_nml
56    
57      REAL, intent(out):: phis(:, :) ! (iim + 1, jjm + 1)      REAL, intent(out):: phis(:, :) ! (iim + 1, jjm + 1)
58      ! surface geopotential, in m2 s-2      ! surface geopotential, in m2 s-2
# Line 122  contains Line 123  contains
123      ! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)",      ! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)",
124      ! for interface "l")      ! for interface "l")
125    
126        namelist /etat0_nml/ day_ref, annee_ref
127    
128      !---------------------------------      !---------------------------------
129    
130      print *, "Call sequence information: etat0"      print *, "Call sequence information: etat0"
131    
132        print *, "Enter namelist 'etat0_nml'."
133        read(unit=*, nml=etat0_nml)
134        write(unit_nml, nml=etat0_nml)
135    
136      CALL iniconst      CALL iniconst
137    
138      ! Construct a grid:      ! Construct a grid:
# Line 304  contains Line 311  contains
311      ! Initialisation pour traceurs:      ! Initialisation pour traceurs:
312      call iniadvtrac      call iniadvtrac
313      itau_phy = 0      itau_phy = 0
     day_ref = dayref  
     annee_ref = anneeref  
314    
315      CALL geopot(teta, pk , pks, phis, phi)      CALL geopot(teta, pk , pks, phis, phi)
316      CALL caldyn0(ucov, vcov, teta, ps, masse, pk, phis, phi, w, pbaru, &      CALL caldyn0(ucov, vcov, teta, ps, masse, pk, phis, phi, w, pbaru, &
317           pbarv)           pbarv)
318      CALL dynredem0("start.nc", dayref, phis)      CALL dynredem0("start.nc", day_ref, phis)
319      CALL dynredem1("start.nc", vcov, ucov, teta, q, masse, ps, itau=0)      CALL dynredem1("start.nc", vcov, ucov, teta, q, masse, ps, itau=0)
320    
321      ! Initialisations :      ! Initialisations :
Legend:
Removed from v.113  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21