/[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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 1  Line 1 
1  module conf_phys_m  module conf_phys_m
2    
   ! This module is clean: no C preprocessor directive, no include line.  
   
3    implicit none    implicit none
4    
5    integer iflag_pbl    integer iflag_pbl
# Line 17  contains Line 15  contains
15    
16      ! From phylmd/conf_phys.F90,v 1.7 2005/07/05 07:21:23      ! From phylmd/conf_phys.F90,v 1.7 2005/07/05 07:21:23
17    
18      use IOIPSL, only: getin      use getincom, only: getin
19      use clesphys, only: solaire, co2_ppm, rco2, ch4_ppb, rch4, n2o_ppb, rn2o, &      use clesphys, only: solaire, co2_ppm, rco2, ch4_ppb, rch4, n2o_ppb, rn2o, &
20           cfc11_ppt, rcfc11, cfc12_ppt, rcfc12, top_height, overlap, cdmmax, &           cfc11_ppt, rcfc11, cfc12_ppt, rcfc12, top_height, overlap, cdmmax, &
21           cdhmax, ksta, ksta_ter, ok_kzmin, lev_histhf, lev_histday, &           cdhmax, ksta, ksta_ter, ok_kzmin, lev_histhf, lev_histday, &
22           lev_histmth, type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins, &           lev_histmth, type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins, &
23           latmin_ins, latmax_ins, ecrit_ins, ecrit_hf, ecrit_hf2mth, &           latmin_ins, latmax_ins, ecrit_ins, ecrit_hf, ecrit_hf2mth, &
24           ecrit_day, ecrit_mth, ecrit_tra, ecrit_reg, bug_ozone           ecrit_day, ecrit_mth, ecrit_tra, ecrit_reg, bug_ozone
25      use YOMCST      use yomcst
26      use conema3_m      use conema3_m
27      use comfisrtilp      use comfisrtilp
28      use nuagecom      use nuagecom
# Line 43  contains Line 41  contains
41      ! bl95_b*: parameters in the formula to link CDNC to aerosol mass conc      ! bl95_b*: parameters in the formula to link CDNC to aerosol mass conc
42    
43      ! Sortie:      ! Sortie:
44      character (len = 6)  :: ocean      character(len=*), intent(out):: ocean
45      logical              :: ok_veget, ok_newmicro      logical              :: ok_veget, ok_newmicro
46      logical              :: ok_journe, ok_mensuel, ok_instan              logical              :: ok_journe, ok_mensuel, ok_instan        
47      LOGICAL              :: ok_ade, ok_aie      LOGICAL              :: ok_ade, ok_aie
48      REAL                 :: bl95_b0, bl95_b1      REAL                 :: bl95_b0, bl95_b1
49      real                 :: fact_cldcon, facttemps,ratqsbas,ratqshaut      real, intent(out):: fact_cldcon
50        real, intent(out):: facttemps
51        real ratqsbas,ratqshaut
52      integer              :: iflag_cldcon, if_ebil      integer              :: iflag_cldcon, if_ebil
53    
54      ! Local      ! Local
     integer              :: numout = 6  
55      real                 :: zzz      real                 :: zzz
56    
57      integer :: iflag_thermals,nsplit_thermals      integer :: iflag_thermals,nsplit_thermals
# Line 64  contains Line 63  contains
63      !Config Key  = OCEAN      !Config Key  = OCEAN
64      !Config Desc = Type d'ocean      !Config Desc = Type d'ocean
65      !Config Def  = force      !Config Def  = force
66      !Config Help = Type d'ocean utilise: force, slab,couple      !Config Help = Type d'ocean utilise: force ou slab mais pas couple
67      !      !
68      ocean = 'force '      ocean = 'force '
69      call getin('OCEAN', ocean)      call getin('OCEAN', ocean)
# Line 698  contains Line 697  contains
697      bug_ozone = .false.      bug_ozone = .false.
698      call getin('bug_ozone',bug_ozone)      call getin('bug_ozone',bug_ozone)
699    
700        print *, ' *********'
701      write(numout,*)' *********'      print *, ' Configuration des parametres de la physique: '
702      write(numout,*)' Configuration des parametres de la physique: '      print *, ' Config ocean = ', ocean
703      write(numout,*)' Config ocean = ', ocean      print *, ' Config veget = ', ok_veget
704      write(numout,*)' Config veget = ', ok_veget      print *, ' Sortie journaliere = ', ok_journe
705      write(numout,*)' Sortie journaliere = ', ok_journe      print *, ' Sortie mensuelle = ', ok_mensuel
706      write(numout,*)' Sortie mensuelle = ', ok_mensuel      print *, ' Sortie instantanee = ', ok_instan
707      write(numout,*)' Sortie instantanee = ', ok_instan      print *, ' Sortie bilan d''energie, if_ebil =', if_ebil
708      write(numout,*)' Sortie bilan d''energie, if_ebil =', if_ebil      print *, ' Excentricite = ',R_ecc
709      write(numout,*)' Excentricite = ',R_ecc      print *, ' Equinoxe = ',R_peri
710      write(numout,*)' Equinoxe = ',R_peri      print *, ' Inclinaison =',R_incl
711      write(numout,*)' Inclinaison =',R_incl      print *, ' Constante solaire =',solaire
712      write(numout,*)' Constante solaire =',solaire      print *, ' co2_ppm =',co2_ppm
713      write(numout,*)' co2_ppm =',co2_ppm      print *, ' RCO2 = ',RCO2
714      write(numout,*)' RCO2 = ',RCO2      print *, ' CH4_ppb =',CH4_ppb,' RCH4 = ',RCH4
715      write(numout,*)' CH4_ppb =',CH4_ppb,' RCH4 = ',RCH4      print *, ' N2O_ppb =',N2O_ppb,' RN2O =  ',RN2O
716      write(numout,*)' N2O_ppb =',N2O_ppb,' RN2O =  ',RN2O      print *, ' CFC11_ppt=',CFC11_ppt,' RCFC11 =  ',RCFC11
717      write(numout,*)' CFC11_ppt=',CFC11_ppt,' RCFC11 =  ',RCFC11      print *, ' CFC12_ppt=',CFC12_ppt,' RCFC12 =  ',RCFC12
718      write(numout,*)' CFC12_ppt=',CFC12_ppt,' RCFC12 =  ',RCFC12      print *, ' epmax = ', epmax
719      write(numout,*)' epmax = ', epmax      print *, ' ok_adj_ema = ', ok_adj_ema
720      write(numout,*)' ok_adj_ema = ', ok_adj_ema      print *, ' iflag_clw = ', iflag_clw
721      write(numout,*)' iflag_clw = ', iflag_clw      print *, ' cld_lc_lsc = ', cld_lc_lsc
722      write(numout,*)' cld_lc_lsc = ', cld_lc_lsc      print *, ' cld_lc_con = ', cld_lc_con
723      write(numout,*)' cld_lc_con = ', cld_lc_con      print *, ' cld_tau_lsc = ', cld_tau_lsc
724      write(numout,*)' cld_tau_lsc = ', cld_tau_lsc      print *, ' cld_tau_con = ', cld_tau_con
725      write(numout,*)' cld_tau_con = ', cld_tau_con      print *, ' ffallv_lsc = ', ffallv_lsc
726      write(numout,*)' ffallv_lsc = ', ffallv_lsc      print *, ' ffallv_con = ', ffallv_con
727      write(numout,*)' ffallv_con = ', ffallv_con      print *, ' coef_eva = ', coef_eva
728      write(numout,*)' coef_eva = ', coef_eva      print *, ' reevap_ice = ', reevap_ice
729      write(numout,*)' reevap_ice = ', reevap_ice      print *, ' iflag_pdf = ', iflag_pdf
730      write(numout,*)' iflag_pdf = ', iflag_pdf      print *, ' iflag_cldcon = ', iflag_cldcon
731      write(numout,*)' iflag_cldcon = ', iflag_cldcon      print *, ' fact_cldcon = ', fact_cldcon
732      write(numout,*)' fact_cldcon = ', fact_cldcon      print *, ' facttemps = ', facttemps
733      write(numout,*)' facttemps = ', facttemps      print *, ' ok_newmicro = ',ok_newmicro
734      write(numout,*)' ok_newmicro = ',ok_newmicro      print *, ' ratqsbas = ',ratqsbas
735      write(numout,*)' ratqsbas = ',ratqsbas      print *, ' ratqshaut = ',ratqshaut
736      write(numout,*)' ratqshaut = ',ratqshaut      print *, ' top_height = ',top_height
737      write(numout,*)' top_height = ',top_height      print *, ' overlap = ',overlap
738      write(numout,*)' overlap = ',overlap      print *, ' cdmmax = ',cdmmax
739      write(numout,*)' cdmmax = ',cdmmax      print *, ' cdhmax = ',cdhmax
740      write(numout,*)' cdhmax = ',cdhmax      print *, ' ksta = ',ksta
741      write(numout,*)' ksta = ',ksta      print *, ' ksta_ter = ',ksta_ter
742      write(numout,*)' ksta_ter = ',ksta_ter      print *, ' ok_kzmin = ',ok_kzmin
743      write(numout,*)' ok_kzmin = ',ok_kzmin      print *, ' ok_ade = ',ok_ade
744      write(numout,*)' ok_ade = ',ok_ade      print *, ' ok_aie = ',ok_aie
745      write(numout,*)' ok_aie = ',ok_aie      print *, ' bl95_b0 = ',bl95_b0
746      write(numout,*)' bl95_b0 = ',bl95_b0      print *, ' bl95_b1 = ',bl95_b1
747      write(numout,*)' bl95_b1 = ',bl95_b1      print *, ' lev_histhf = ',lev_histhf
748      write(numout,*)' lev_histhf = ',lev_histhf      print *, ' lev_histday = ',lev_histday
749      write(numout,*)' lev_histday = ',lev_histday      print *, ' lev_histmth = ',lev_histmth
750      write(numout,*)' lev_histmth = ',lev_histmth      print *, ' iflag_pbl = ', iflag_pbl
751      write(numout,*)' iflag_pbl = ', iflag_pbl      print *, ' iflag_thermals = ', iflag_thermals
752      write(numout,*)' iflag_thermals = ', iflag_thermals      print *, ' type_run = ',type_run
753      write(numout,*)' type_run = ',type_run      print *, ' ok_isccp = ',ok_isccp
754      write(numout,*)' ok_isccp = ',ok_isccp      print *, ' ok_regdyn = ',ok_regdyn
755      write(numout,*)' ok_regdyn = ',ok_regdyn      print *, ' lonmin lonmax latmin latmax bilKP_ins =',&
     write(numout,*)' lonmin lonmax latmin latmax bilKP_ins =',&  
756           lonmin_ins, lonmax_ins, latmin_ins, latmax_ins           lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
757      write(numout,*) 'ecrit_ ins, hf, hf2mth, day, mth, reg, tra', ecrit_ins, &      print *,  'ecrit_ ins, hf, hf2mth, day, mth, reg, tra', ecrit_ins, &
758           ecrit_hf, ecrit_hf2mth, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra           ecrit_hf, ecrit_hf2mth, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra
759      write(numout,*)' bug_ozone = ', bug_ozone      print *, ' bug_ozone = ', bug_ozone
760    
761    end subroutine conf_phys    end subroutine conf_phys
762    
Legend:
Removed from v.3  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21