/[lmdze]/trunk/phylmd/conf_phys.f
ViewVC logotype

Diff of /trunk/phylmd/conf_phys.f

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

trunk/libf/phylmd/conf_phys.f90 revision 68 by guez, Wed Nov 14 16:59:30 2012 UTC trunk/phylmd/conf_phys.f revision 118 by guez, Thu Dec 18 17:30:24 2014 UTC
# Line 2  module conf_phys_m Line 2  module conf_phys_m
2    
3    implicit none    implicit none
4    
5    integer iflag_pbl ! parameter for the planetary boundary layer    integer:: iflag_pbl = 1 ! for the planetary boundary layer
6      REAL:: rad_chau1 = 13., rad_chau2 = 9.
7    
8  contains  contains
9    
# Line 12  contains Line 13  contains
13    
14      ! Configuration de la "physique" de LMDZ.      ! Configuration de la "physique" de LMDZ.
15    
16      USE clesphys, ONLY: bug_ozone, cdhmax, cdmmax, cfc11_ppt, cfc12_ppt, &      USE clesphys, ONLY: cdhmax, cdmmax, cfc11_ppt, cfc12_ppt, ch4_ppb, &
17           ch4_ppb, co2_ppm, ecrit_day, ecrit_hf, ecrit_hf2mth, ecrit_ins, &           co2_ppm, ecrit_day, ecrit_hf, ecrit_hf2mth, ecrit_ins, ecrit_mth, &
18           ecrit_mth, ecrit_reg, ecrit_tra, ksta, ksta_ter, latmax_ins, &           ecrit_reg, ecrit_tra, ksta, ksta_ter, latmax_ins, latmin_ins, &
19           latmin_ins, lev_histday, lev_histhf, lev_histmth, lonmax_ins, &           lev_histday, lev_histhf, lev_histmth, lonmax_ins, lonmin_ins, &
20           lonmin_ins, n2o_ppb, ok_isccp, ok_kzmin, ok_regdyn, overlap, rcfc11, &           n2o_ppb, ok_isccp, ok_kzmin, ok_regdyn, overlap, rcfc11, rcfc12, &
21           rcfc12, rch4, rco2, rn2o, solaire, top_height, type_run           rch4, rco2, rn2o, solaire, top_height, type_run
22        use clesphys2, only: read_clesphys2
23      USE comfisrtilp, ONLY: cld_lc_con, cld_lc_lsc, cld_tau_con, &      USE comfisrtilp, ONLY: cld_lc_con, cld_lc_lsc, cld_tau_con, &
24           cld_tau_lsc, coef_eva, ffallv_con, ffallv_lsc, iflag_pdf, reevap_ice           cld_tau_lsc, coef_eva, ffallv_con, ffallv_lsc, iflag_pdf, reevap_ice
25      USE conema3_m, ONLY: epmax, iflag_clw, ok_adj_ema      USE conema3_m, ONLY: epmax, iflag_clw, ok_adj_ema
     USE nuagecom, ONLY: rad_chau1, rad_chau2, rad_froid  
26      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
27      USE yomcst, ONLY: r_ecc, r_incl, r_peri      USE yomcst, ONLY: r_ecc, r_incl, r_peri
28    
# Line 29  contains Line 30  contains
30           CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt, epmax, ok_adj_ema, &           CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt, epmax, ok_adj_ema, &
31           iflag_clw, cld_lc_lsc, cld_lc_con, cld_tau_lsc, cld_tau_con, &           iflag_clw, cld_lc_lsc, cld_lc_con, cld_tau_lsc, cld_tau_con, &
32           ffallv_lsc, ffallv_con, coef_eva, reevap_ice, iflag_pdf, &           ffallv_lsc, ffallv_con, coef_eva, reevap_ice, iflag_pdf, &
33           rad_froid, rad_chau1, rad_chau2, top_height, overlap, cdmmax, &           top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter, &
34           cdhmax, ksta, ksta_ter, ok_kzmin, iflag_pbl, lev_histhf, &           ok_kzmin, iflag_pbl, lev_histhf, lev_histday, lev_histmth, &
35           lev_histday, lev_histmth, type_run, ok_isccp, ok_regdyn, &           type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins, &
36           lonmin_ins, lonmax_ins, latmin_ins, latmax_ins, ecrit_ins, &           latmin_ins, latmax_ins, ecrit_ins, ecrit_hf, ecrit_hf2mth, &
37           ecrit_hf, ecrit_hf2mth, ecrit_day, ecrit_mth, ecrit_tra, &           ecrit_day, ecrit_mth, ecrit_tra, ecrit_reg
38           ecrit_reg, bug_ozone  
39        namelist /nuagecom/ rad_chau1, rad_chau2
40    
41      !-----------------------------------------------------------      !-----------------------------------------------------------
42    
43      print *, "Call sequence information: conf_phys"      print *, "Call sequence information: conf_phys"
44        call read_clesphys2
45    
46      R_ecc = 0.016715 ! AMIP II      R_ecc = 0.016715 ! AMIP II
47      R_peri = 102.7 ! AMIP II      R_peri = 102.7 ! AMIP II
# Line 61  contains Line 64  contains
64      coef_eva = 2.e-5      coef_eva = 2.e-5
65      reevap_ice = .false.      reevap_ice = .false.
66      iflag_pdf = 0      iflag_pdf = 0
     rad_froid = 35.0  
     rad_chau1 = 13.0  
     rad_chau2 = 9.0  
67      top_height = 3      top_height = 3
68      overlap = 3      overlap = 3
69      cdmmax = 1.3E-3      cdmmax = 1.3E-3
# Line 71  contains Line 71  contains
71      ksta = 1.0e-10      ksta = 1.0e-10
72      ksta_ter = 1.0e-10      ksta_ter = 1.0e-10
73      ok_kzmin = .true.      ok_kzmin = .true.
     iflag_pbl = 1  
74      lev_histhf = 0      lev_histhf = 0
75      lev_histday = 1      lev_histday = 1
76      lev_histmth = 2      lev_histmth = 2
# Line 89  contains Line 88  contains
88      ecrit_mth = 86400      ecrit_mth = 86400
89      ecrit_tra = 1      ecrit_tra = 1
90      ecrit_reg = NINT(86400. *0.25) ! 4 fois par jour      ecrit_reg = NINT(86400. *0.25) ! 4 fois par jour
     bug_ozone = .false.  
91    
92      print *, "Enter namelist 'conf_phys_nml'."      print *, "Enter namelist 'conf_phys_nml'."
93      read(unit=*, nml=conf_phys_nml)      read(unit=*, nml=conf_phys_nml)
# Line 107  contains Line 105  contains
105      print *, ' RCFC11 = ', RCFC11      print *, ' RCFC11 = ', RCFC11
106      print *, ' RCFC12 = ', RCFC12      print *, ' RCFC12 = ', RCFC12
107    
108        print *, "Enter namelist 'nuagecom'."
109        read(unit=*, nml=nuagecom)
110        write(unit_nml, nml=nuagecom)
111    
112    end subroutine conf_phys    end subroutine conf_phys
113    
114  end module conf_phys_m  end module conf_phys_m
Legend:
Removed from v.68  
changed lines
  Added in v.118
  ViewVC Help
Powered by ViewVC 1.1.21