Changeset 1638 for LMDZ5/trunk/libf/phylmd/conf_phys.F90
- Timestamp:
- Jul 23, 2012, 1:11:05 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/conf_phys.F90
r1575 r1638 110 110 integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp 111 111 real,save :: tau_thermals_omp,alp_bl_k_omp 112 !!! nrlmd le 10/04/2012 113 integer,SAVE :: iflag_trig_bl_omp,iflag_clos_bl_omp 114 integer,SAVE :: tau_trig_shallow_omp,tau_trig_deep_omp 115 real,SAVE :: s_trig_omp 116 !!! fin nrlmd le 10/04/2012 112 117 real :: alp_offset 113 118 REAL, SAVE :: alp_offset_omp … … 1083 1088 alp_bl_k_omp = 1. 1084 1089 call getin('alp_bl_k',alp_bl_k_omp) 1090 1091 !!! nrlmd le 10/04/2012 1092 1093 !Config Key = iflag_trig_bl 1094 !Config Desc = 1095 !Config Def = 0 1096 !Config Help = 1097 ! 1098 iflag_trig_bl_omp = 0 1099 call getin('iflag_trig_bl',iflag_trig_bl_omp) 1100 1101 !Config Key = s_trig_bl 1102 !Config Desc = 1103 !Config Def = 0 1104 !Config Help = 1105 ! 1106 s_trig_omp = 2e7 1107 call getin('s_trig',s_trig_omp) 1108 1109 !Config Key = tau_trig_shallow 1110 !Config Desc = 1111 !Config Def = 0 1112 !Config Help = 1113 ! 1114 tau_trig_shallow_omp = 600 1115 call getin('tau_trig_shallow',tau_trig_shallow_omp) 1116 1117 !Config Key = tau_trig_deep 1118 !Config Desc = 1119 !Config Def = 0 1120 !Config Help = 1121 ! 1122 tau_trig_deep_omp = 1800 1123 call getin('tau_trig_deep',tau_trig_deep_omp) 1124 1125 !Config Key = iflag_clos_bl 1126 !Config Desc = 1127 !Config Def = 0 1128 !Config Help = 1129 ! 1130 iflag_clos_bl_omp = 0 1131 call getin('iflag_clos_bl',iflag_clos_bl_omp) 1132 1133 !!! fin nrlmd le 10/04/2012 1085 1134 1086 1135 ! … … 1650 1699 tau_thermals = tau_thermals_omp 1651 1700 alp_bl_k = alp_bl_k_omp 1701 !!! nrlmd le 10/04/2012 1702 iflag_trig_bl = iflag_trig_bl_omp 1703 s_trig = s_trig_omp 1704 tau_trig_shallow = tau_trig_shallow_omp 1705 tau_trig_deep = tau_trig_deep_omp 1706 iflag_clos_bl = iflag_clos_bl_omp 1707 !!! fin nrlmd le 10/04/2012 1652 1708 iflag_coupl = iflag_coupl_omp 1653 1709 iflag_clos = iflag_clos_omp … … 1839 1895 write(lunout,*)' iflag_wake = ', iflag_wake 1840 1896 write(lunout,*)' alp_offset = ', alp_offset 1897 !!! nrlmd le 10/04/2012 1898 write(lunout,*)' iflag_trig_bl = ', iflag_trig_bl 1899 write(lunout,*)' s_trig = ', s_trig 1900 write(lunout,*)' tau_trig_shallow = ', tau_trig_shallow 1901 write(lunout,*)' tau_trig_deep = ', tau_trig_deep 1902 write(lunout,*)' iflag_clos_bl = ', iflag_clos_bl 1903 !!! fin nrlmd le 10/04/2012 1841 1904 1842 1905 write(lunout,*)' lonmin lonmax latmin latmax bilKP_ins =',&
Note: See TracChangeset
for help on using the changeset viewer.