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