/[lmdze]/trunk/libf/phylmd/conf_phys.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/conf_phys.f90

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

revision 16 by guez, Mon Jul 21 16:05:07 2008 UTC revision 17 by guez, Tue Aug 5 13:31:32 2008 UTC
# Line 48  contains Line 48  contains
48      logical              :: ok_journe, ok_mensuel, ok_instan              logical              :: ok_journe, ok_mensuel, ok_instan        
49      LOGICAL              :: ok_ade, ok_aie      LOGICAL              :: ok_ade, ok_aie
50      REAL                 :: bl95_b0, bl95_b1      REAL                 :: bl95_b0, bl95_b1
51      real                 :: fact_cldcon, facttemps,ratqsbas,ratqshaut      real, intent(out):: fact_cldcon
52        real, intent(out):: facttemps
53        real ratqsbas,ratqshaut
54      integer              :: iflag_cldcon, if_ebil      integer              :: iflag_cldcon, if_ebil
55    
56      ! Local      ! Local
     integer              :: numout = 6  
57      real                 :: zzz      real                 :: zzz
58    
59      integer :: iflag_thermals,nsplit_thermals      integer :: iflag_thermals,nsplit_thermals
# Line 698  contains Line 699  contains
699      bug_ozone = .false.      bug_ozone = .false.
700      call getin('bug_ozone',bug_ozone)      call getin('bug_ozone',bug_ozone)
701    
702      write(numout,*)' *********'      print *, ' *********'
703      write(numout,*)' Configuration des parametres de la physique: '      print *, ' Configuration des parametres de la physique: '
704      write(numout,*)' Config ocean = ', ocean      print *, ' Config ocean = ', ocean
705      write(numout,*)' Config veget = ', ok_veget      print *, ' Config veget = ', ok_veget
706      write(numout,*)' Sortie journaliere = ', ok_journe      print *, ' Sortie journaliere = ', ok_journe
707      write(numout,*)' Sortie mensuelle = ', ok_mensuel      print *, ' Sortie mensuelle = ', ok_mensuel
708      write(numout,*)' Sortie instantanee = ', ok_instan      print *, ' Sortie instantanee = ', ok_instan
709      write(numout,*)' Sortie bilan d''energie, if_ebil =', if_ebil      print *, ' Sortie bilan d''energie, if_ebil =', if_ebil
710      write(numout,*)' Excentricite = ',R_ecc      print *, ' Excentricite = ',R_ecc
711      write(numout,*)' Equinoxe = ',R_peri      print *, ' Equinoxe = ',R_peri
712      write(numout,*)' Inclinaison =',R_incl      print *, ' Inclinaison =',R_incl
713      write(numout,*)' Constante solaire =',solaire      print *, ' Constante solaire =',solaire
714      write(numout,*)' co2_ppm =',co2_ppm      print *, ' co2_ppm =',co2_ppm
715      write(numout,*)' RCO2 = ',RCO2      print *, ' RCO2 = ',RCO2
716      write(numout,*)' CH4_ppb =',CH4_ppb,' RCH4 = ',RCH4      print *, ' CH4_ppb =',CH4_ppb,' RCH4 = ',RCH4
717      write(numout,*)' N2O_ppb =',N2O_ppb,' RN2O =  ',RN2O      print *, ' N2O_ppb =',N2O_ppb,' RN2O =  ',RN2O
718      write(numout,*)' CFC11_ppt=',CFC11_ppt,' RCFC11 =  ',RCFC11      print *, ' CFC11_ppt=',CFC11_ppt,' RCFC11 =  ',RCFC11
719      write(numout,*)' CFC12_ppt=',CFC12_ppt,' RCFC12 =  ',RCFC12      print *, ' CFC12_ppt=',CFC12_ppt,' RCFC12 =  ',RCFC12
720      write(numout,*)' epmax = ', epmax      print *, ' epmax = ', epmax
721      write(numout,*)' ok_adj_ema = ', ok_adj_ema      print *, ' ok_adj_ema = ', ok_adj_ema
722      write(numout,*)' iflag_clw = ', iflag_clw      print *, ' iflag_clw = ', iflag_clw
723      write(numout,*)' cld_lc_lsc = ', cld_lc_lsc      print *, ' cld_lc_lsc = ', cld_lc_lsc
724      write(numout,*)' cld_lc_con = ', cld_lc_con      print *, ' cld_lc_con = ', cld_lc_con
725      write(numout,*)' cld_tau_lsc = ', cld_tau_lsc      print *, ' cld_tau_lsc = ', cld_tau_lsc
726      write(numout,*)' cld_tau_con = ', cld_tau_con      print *, ' cld_tau_con = ', cld_tau_con
727      write(numout,*)' ffallv_lsc = ', ffallv_lsc      print *, ' ffallv_lsc = ', ffallv_lsc
728      write(numout,*)' ffallv_con = ', ffallv_con      print *, ' ffallv_con = ', ffallv_con
729      write(numout,*)' coef_eva = ', coef_eva      print *, ' coef_eva = ', coef_eva
730      write(numout,*)' reevap_ice = ', reevap_ice      print *, ' reevap_ice = ', reevap_ice
731      write(numout,*)' iflag_pdf = ', iflag_pdf      print *, ' iflag_pdf = ', iflag_pdf
732      write(numout,*)' iflag_cldcon = ', iflag_cldcon      print *, ' iflag_cldcon = ', iflag_cldcon
733      write(numout,*)' fact_cldcon = ', fact_cldcon      print *, ' fact_cldcon = ', fact_cldcon
734      write(numout,*)' facttemps = ', facttemps      print *, ' facttemps = ', facttemps
735      write(numout,*)' ok_newmicro = ',ok_newmicro      print *, ' ok_newmicro = ',ok_newmicro
736      write(numout,*)' ratqsbas = ',ratqsbas      print *, ' ratqsbas = ',ratqsbas
737      write(numout,*)' ratqshaut = ',ratqshaut      print *, ' ratqshaut = ',ratqshaut
738      write(numout,*)' top_height = ',top_height      print *, ' top_height = ',top_height
739      write(numout,*)' overlap = ',overlap      print *, ' overlap = ',overlap
740      write(numout,*)' cdmmax = ',cdmmax      print *, ' cdmmax = ',cdmmax
741      write(numout,*)' cdhmax = ',cdhmax      print *, ' cdhmax = ',cdhmax
742      write(numout,*)' ksta = ',ksta      print *, ' ksta = ',ksta
743      write(numout,*)' ksta_ter = ',ksta_ter      print *, ' ksta_ter = ',ksta_ter
744      write(numout,*)' ok_kzmin = ',ok_kzmin      print *, ' ok_kzmin = ',ok_kzmin
745      write(numout,*)' ok_ade = ',ok_ade      print *, ' ok_ade = ',ok_ade
746      write(numout,*)' ok_aie = ',ok_aie      print *, ' ok_aie = ',ok_aie
747      write(numout,*)' bl95_b0 = ',bl95_b0      print *, ' bl95_b0 = ',bl95_b0
748      write(numout,*)' bl95_b1 = ',bl95_b1      print *, ' bl95_b1 = ',bl95_b1
749      write(numout,*)' lev_histhf = ',lev_histhf      print *, ' lev_histhf = ',lev_histhf
750      write(numout,*)' lev_histday = ',lev_histday      print *, ' lev_histday = ',lev_histday
751      write(numout,*)' lev_histmth = ',lev_histmth      print *, ' lev_histmth = ',lev_histmth
752      write(numout,*)' iflag_pbl = ', iflag_pbl      print *, ' iflag_pbl = ', iflag_pbl
753      write(numout,*)' iflag_thermals = ', iflag_thermals      print *, ' iflag_thermals = ', iflag_thermals
754      write(numout,*)' type_run = ',type_run      print *, ' type_run = ',type_run
755      write(numout,*)' ok_isccp = ',ok_isccp      print *, ' ok_isccp = ',ok_isccp
756      write(numout,*)' ok_regdyn = ',ok_regdyn      print *, ' ok_regdyn = ',ok_regdyn
757      write(numout,*)' lonmin lonmax latmin latmax bilKP_ins =',&      print *, ' lonmin lonmax latmin latmax bilKP_ins =',&
758           lonmin_ins, lonmax_ins, latmin_ins, latmax_ins           lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
759      write(numout,*) 'ecrit_ ins, hf, hf2mth, day, mth, reg, tra', ecrit_ins, &      print *,  'ecrit_ ins, hf, hf2mth, day, mth, reg, tra', ecrit_ins, &
760           ecrit_hf, ecrit_hf2mth, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra           ecrit_hf, ecrit_hf2mth, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra
761      write(numout,*)' bug_ozone = ', bug_ozone      print *, ' bug_ozone = ', bug_ozone
762    
763    end subroutine conf_phys    end subroutine conf_phys
764    
Legend:
Removed from v.16  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.21