/[lmdze]/trunk/libf/dyn3d/etat0.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/etat0.f90

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

revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 19  contains Line 19  contains
19    
20      ! This subroutine creates "mask".      ! This subroutine creates "mask".
21    
22      USE ioipsl, only: flinget, flinclo, flinopen_nozoom, flininfo, histclo      use caldyn0_m, only: caldyn0
   
     USE start_init_orog_m, only: start_init_orog, mask, phis  
     use start_init_phys_m, only: qsol_2d  
     use startdyn, only: start_inter_3d, start_init_dyn  
     use dimens_m, only: iim, jjm, llm, nqmx  
     use paramet_m, only: ip1jm, ip1jmp1  
23      use comconst, only: dtvr, daysec, cpp, kappa, pi      use comconst, only: dtvr, daysec, cpp, kappa, pi
     use comdissnew, only: lstardis, nitergdiv, nitergrot, niterh, &  
          tetagdiv, tetagrot, tetatemp  
     use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra  
     use comvert, only: ap, bp, preff, pa  
     use dimphy, only: zmasq  
     use conf_gcm_m, only: day_step, iphysiq, dayref, anneeref  
24      use comgeom, only: rlatu, rlonv, rlonu, rlatv, aire_2d, apoln, apols, &      use comgeom, only: rlatu, rlonv, rlonu, rlatv, aire_2d, apoln, apols, &
25           cu_2d, cv_2d           cu_2d, cv_2d
26      use serre, only: alphax      use comvert, only: ap, bp, preff, pa
27        use conf_gcm_m, only: day_step, iphysiq, dayref, anneeref
28        use dimens_m, only: iim, jjm, llm, nqmx
29        use dimphy, only: zmasq
30      use dimsoil, only: nsoilmx      use dimsoil, only: nsoilmx
31      use temps, only: itau_dyn, itau_phy, annee_ref, day_ref, dt      use dynredem0_m, only: dynredem0
32        use dynredem1_m, only: dynredem1
33        use exner_hyb_m, only: exner_hyb
34      use grid_atob, only: grille_m      use grid_atob, only: grille_m
35      use grid_change, only: init_dyn_phy, dyn_phy      use grid_change, only: init_dyn_phy, dyn_phy
36      use q_sat_m, only: q_sat      use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra
     use exner_hyb_m, only: exner_hyb  
37      use iniadvtrac_m, only: iniadvtrac      use iniadvtrac_m, only: iniadvtrac
38        use inidissip_m, only: inidissip
39        use inigeom_m, only: inigeom
40        USE ioipsl, only: flinget, flinclo, flinopen_nozoom, flininfo, histclo
41        use paramet_m, only: ip1jm, ip1jmp1
42        use phyredem_m, only: phyredem
43      use pressure_var, only: pls, p3d      use pressure_var, only: pls, p3d
44      use dynredem0_m, only: dynredem0      use q_sat_m, only: q_sat
45      use regr_lat_time_coefoz_m, only: regr_lat_time_coefoz      use regr_lat_time_coefoz_m, only: regr_lat_time_coefoz
46      use regr_pr_o3_m, only: regr_pr_o3      use regr_pr_o3_m, only: regr_pr_o3
47      use phyredem_m, only: phyredem      use serre, only: alphax
48      use caldyn0_m, only: caldyn0      USE start_init_orog_m, only: start_init_orog, mask, phis
49      use inigeom_m, only: inigeom      use start_init_phys_m, only: qsol_2d
50      use inidissip_m, only: inidissip      use startdyn, only: start_inter_3d, start_init_dyn
51        use temps, only: itau_phy, annee_ref, day_ref, dt
52    
53      ! Variables local to the procedure:      ! Variables local to the procedure:
54    
# Line 292  contains Line 290  contains
290    
291      ! Initialisation pour traceurs:      ! Initialisation pour traceurs:
292      call iniadvtrac      call iniadvtrac
293      CALL inidissip(lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &      CALL inidissip
          tetagrot, tetatemp)  
     itau_dyn = 0  
294      itau_phy = 0      itau_phy = 0
295      day_ref = dayref      day_ref = dayref
296      annee_ref = anneeref      annee_ref = anneeref
# Line 303  contains Line 299  contains
299      CALL caldyn0(uvent, vvent, tpot, psol, masse, pk, phis, phi, w, pbaru, &      CALL caldyn0(uvent, vvent, tpot, psol, masse, pk, phis, phi, w, pbaru, &
300           pbarv)           pbarv)
301      CALL dynredem0("start.nc", dayref, phis)      CALL dynredem0("start.nc", dayref, phis)
302      CALL dynredem1("start.nc", vvent, uvent, tpot, q3d, masse, psol)      CALL dynredem1("start.nc", vvent, uvent, tpot, q3d, masse, psol, itau=0)
303    
304      ! Ecriture état initial physique:      ! Ecriture état initial physique:
305      print *, "iphysiq = ", iphysiq      print *, "iphysiq = ", iphysiq
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21