Changeset 828 for LMDZ4/trunk/libf/phylmd/conf_phys.F90
- Timestamp:
- Aug 28, 2007, 2:20:22 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/conf_phys.F90
r793 r828 5 5 ! 6 6 7 subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan, &7 subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan, ok_hf, & 8 8 & fact_cldcon, facttemps,ok_newmicro,iflag_cldcon, & 9 9 !IM& ratqsbas,ratqshaut,ip_ebil_phy, & … … 19 19 include "fisrtilp.h" 20 20 include "nuage.h" 21 21 include "YOMCST.h" 22 22 !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12 23 23 include "clesphys.h" … … 35 35 ! ok_veget: type de modele de vegetation 36 36 ! ok_journe: sorties journalieres 37 ! ok_hf: sorties haute frequence 37 38 ! ok_mensuel: sorties mensuelles 38 39 ! ok_instan: sorties instantanees … … 45 46 character (len = 6) :: ocean 46 47 logical :: ok_veget, ok_newmicro 47 logical :: ok_journe, ok_mensuel, ok_instan 48 logical :: ok_journe, ok_mensuel, ok_instan, ok_hf 48 49 LOGICAL :: ok_ade, ok_aie 49 50 REAL :: bl95_b0, bl95_b1 … … 53 54 character (len = 6),SAVE :: ocean_omp 54 55 logical,SAVE :: ok_veget_omp, ok_newmicro_omp 55 logical,SAVE :: ok_journe_omp, ok_mensuel_omp, ok_instan_omp 56 logical,SAVE :: ok_journe_omp, ok_mensuel_omp, ok_instan_omp, ok_hf_omp 56 57 LOGICAL,SAVE :: ok_ade_omp, ok_aie_omp 57 58 REAL,SAVE :: bl95_b0_omp, bl95_b1_omp 59 REAL,SAVE :: freq_ISCCP_omp, ecrit_ISCCP_omp 58 60 real,SAVE :: fact_cldcon_omp, facttemps_omp,ratqsbas_omp 59 61 real,SAVE :: ratqshaut_omp … … 79 81 INTEGER,SAVE :: top_height_omp,overlap_omp 80 82 REAL,SAVE :: cdmmax_omp,cdhmax_omp,ksta_omp,ksta_ter_omp 81 LOGICAL,SAVE :: ok_kzmin_omp 83 LOGICAL,SAVE :: ok_kzmin_omp, fmagic_omp 82 84 INTEGER,SAVE :: iflag_pbl_omp,lev_histhf_omp,lev_histday_omp,lev_histmth_omp 83 85 CHARACTER*4, SAVE :: type_run_omp … … 110 112 call getin('VEGET', ok_veget_omp) 111 113 ! 112 !Config Key = OK_journe114 !Config Key = ok_journe 113 115 !Config Desc = Pour des sorties journalieres 114 116 !Config Def = .false. … … 117 119 ! 118 120 ok_journe_omp = .false. 119 call getin('OK_journe', ok_journe_omp) 121 call getin('ok_journe', ok_journe_omp) 122 ! 123 !Config Key = ok_hf 124 !Config Desc = Pour des sorties haute frequence 125 !Config Def = .false. 126 !Config Help = Pour creer le fichier histhf contenant les sorties 127 ! haute frequence ( 3h ou 6h) 128 ! 129 ok_hf_omp = .false. 130 call getin('ok_hf', ok_hf_omp) 120 131 ! 121 132 !Config Key = OK_mensuel … … 171 182 call getin('bl95_b1', bl95_b1_omp) 172 183 173 ! 184 !Config Key = freq_ISCCP 185 !Config Desc = Frequence d'appel du simulateur ISCCP en secondes; 186 ! par defaut 10800, i.e. 3 heures 187 !Config Def = 10800. 188 !Config Help = Used in ini_histISCCP.h 189 ! 190 freq_ISCCP_omp = 10800. 191 call getin('freq_ISCCP', freq_ISCCP_omp) 192 ! 193 !Config Key = ecrit_ISCCP 194 !Config Desc = Frequence d'ecriture des resultats du simulateur ISCCP en nombre de jours; 195 ! par defaut 1., i.e. 1 jour 196 !Config Def = 1. 197 !Config Help = Used in ini_histISCCP.h 198 ! 199 ! 200 ecrit_ISCCP_omp = 1. 201 call getin('ecrit_ISCCP', ecrit_ISCCP_omp) 174 202 ! 175 203 !Config Key = ip_ebil_phy … … 562 590 call getin('ok_kzmin',ok_kzmin_omp) 563 591 592 ! 593 !Config Key = fmagic 594 !Config Desc = 595 !Config Def = 1. 596 !Config Help = Used in albedo.F 597 ! 598 fmagic_omp = 1. 599 call getin('fmagic',fmagic_omp) 600 564 601 !Config Key = ok_lic_melt 565 602 !Config Desc = Prise en compte de la fonte de la calotte dans le bilan d'eau … … 636 673 call getin('type_run',type_run_omp) 637 674 638 675 ! 639 676 !Config Key = ok_isccp 640 677 !Config Desc = … … 693 730 !Config Desc = 694 731 !Config Def = 1.0 !tous les jours 695 !Config Help = 732 !Config Help = nombre de jours pour ecriture fichier histday.nc 696 733 ! 697 734 ecrit_day_omp = 1.0 … … 773 810 ksta_ter = ksta_ter_omp 774 811 ok_kzmin = ok_kzmin_omp 812 fmagic = fmagic_omp 775 813 iflag_pbl = iflag_pbl_omp 776 814 lev_histhf = lev_histhf_omp … … 782 820 ok_newmicro = ok_newmicro_omp 783 821 ok_journe = ok_journe_omp 822 ok_hf = ok_hf_omp 784 823 ok_mensuel = ok_mensuel_omp 785 824 ok_instan = ok_instan_omp 825 freq_ISCCP = freq_ISCCP_omp 826 ecrit_ISCCP = ecrit_ISCCP_omp 786 827 ok_ade = ok_ade_omp 787 828 ok_aie = ok_aie_omp … … 818 859 write(numout,*)' Config veget = ', ok_veget 819 860 write(numout,*)' Sortie journaliere = ', ok_journe 861 write(numout,*)' Sortie haute frequence = ', ok_hf 820 862 write(numout,*)' Sortie mensuelle = ', ok_mensuel 821 863 write(numout,*)' Sortie instantanee = ', ok_instan 864 write(numout,*)' Frequence appel simulateur ISCCP, freq_ISCCP =', freq_ISCCP 865 write(numout,*)' Frequence appel simulateur ISCCP, ecrit_ISCCP =', ecrit_ISCCP 822 866 write(numout,*)' Sortie bilan d''energie, ip_ebil_phy =', ip_ebil_phy 823 867 write(numout,*)' Excentricite = ',R_ecc … … 858 902 write(numout,*)' ksta_ter = ',ksta_ter 859 903 write(numout,*)' ok_kzmin = ',ok_kzmin 904 write(numout,*)' fmagic = ',fmagic 860 905 write(numout,*)' ok_ade = ',ok_ade 861 906 write(numout,*)' ok_aie = ',ok_aie … … 871 916 write(numout,*)' lonmin lonmax latmin latmax bilKP_ins =',& 872 917 & lonmin_ins, lonmax_ins, latmin_ins, latmax_ins 873 write(numout,*)' ecrit_ hf, day, mth, reg ',&874 & ecrit_hf, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra 918 write(numout,*)' ecrit_ hf, day, mth, reg, tra, ISCCP',& 919 & ecrit_hf, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra, ecrit_ISCCP 875 920 876 921 !$OMP END MASTER
Note: See TracChangeset
for help on using the changeset viewer.