Changeset 1027
- Timestamp:
- Oct 24, 2008, 5:14:34 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/conf_phys.F90
r1013 r1027 14 14 & bl95_b0, bl95_b1,& 15 15 & iflag_thermals,nsplit_thermals,tau_thermals, & 16 & iflag_thermals_ed,iflag_thermals_optflux, & 16 17 & iflag_coupl,iflag_clos,iflag_wake ) 17 18 … … 83 84 84 85 integer :: iflag_thermals,nsplit_thermals 86 integer,SAVE :: iflag_thermals_ed_omp,iflag_thermals_optflux_omp 87 integer :: iflag_thermals_ed,iflag_thermals_optflux 85 88 integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp 86 89 real :: tau_thermals … … 861 864 iflag_thermals_omp = 0 862 865 call getin('iflag_thermals',iflag_thermals_omp) 866 ! 867 ! 868 !Config Key = iflag_thermals_ed 869 !Config Desc = 870 !Config Def = 0 871 !Config Help = 872 ! 873 iflag_thermals_ed_omp = 0 874 call getin('iflag_thermals_ed',iflag_thermals_ed_omp) 875 ! 876 ! 877 !Config Key = iflag_thermals_optflux 878 !Config Desc = 879 !Config Def = 0 880 !Config Help = 881 ! 882 iflag_thermals_optflux_omp = 0 883 call getin('iflag_thermals_optflux',iflag_thermals_optflux_omp) 863 884 ! 864 885 ! … … 1226 1247 ip_ebil_phy = ip_ebil_phy_omp 1227 1248 iflag_thermals = iflag_thermals_omp 1249 iflag_thermals_ed = iflag_thermals_ed_omp 1250 iflag_thermals_optflux = iflag_thermals_optflux_omp 1228 1251 nsplit_thermals = nsplit_thermals_omp 1229 1252 tau_thermals = tau_thermals_omp … … 1346 1369 write(numout,*)' iflag_pbl = ', iflag_pbl 1347 1370 write(numout,*)' iflag_thermals = ', iflag_thermals 1371 write(numout,*)' iflag_thermals_ed = ', iflag_thermals_ed 1372 write(numout,*)' iflag_thermals_optflux = ', iflag_thermals_optflux 1348 1373 write(numout,*)' type_run = ',type_run 1349 1374 write(numout,*)' ok_isccp = ',ok_isccp
Note: See TracChangeset
for help on using the changeset viewer.