24 | | ######## Abderrahmane le 20 11 08 ######################## |
25 | | # Niveaux de sorties et nom pour chaque variable dans les# |
26 | | # fichiers histmth histday histhf histins histLES # |
27 | | ################################################# |
28 | | # Surface geop.height |
29 | | flag_phis = 1, 1, 10, 1, 1 |
30 | | name_phis = phis |
31 | | # Grid area |
32 | | flag_aire = 1, 1, 10, 1, 1 |
33 | | name_aire = aire |
34 | | # Surfac ter+lic |
35 | | flag_contfracATM = 10, 1, 1, 10, 10 |
36 | | name_contfracATM = contfracATM |
37 | | # Surface terre OR |
38 | | flag_contfracOR = 10, 1, 1, 10, 10 |
39 | | name_contfracOR = contfracOR |
40 | | # Grid area CONT |
41 | | flag_aireTER = 10, 10, 1, 10, 10 |
42 | | name_aireTER = aireTER |
43 | | # Latent heat flux |
44 | | flag_flat = 10, 1, 10, 10, 1 |
45 | | name_flat = flat |
46 | | # Sea Level Pressure |
47 | | flag_slp = 1, 1, 1, 10, 1 |
48 | | name_slp = slp |
49 | | # Surface Temperature |
50 | | flag_tsol = 1, 1, 1, 1, 1 |
| 24 | !!! 2D |
| 25 | TYPE(ctrl_out), SAVE :: o_flat = ctrl_out((/ 5, 1, 10, 10, 5, 10 /), & |
| 26 | 'flat', 'Latent heat flux', 'W/m2', (/ ('', i=1, 6) /)) |
| 27 | TYPE(ctrl_out), SAVE :: o_slp = ctrl_out((/ 1, 1, 1, 10, 10, 10 /), & |
| 28 | 'slp', 'Sea Level Pressure', 'Pa', (/ ('', i=1, 6) /)) |
| 29 | TYPE(ctrl_out), SAVE :: o_tsol = ctrl_out((/ 1, 1, 1, 5, 10, 10 /), & |
| 30 | 'tsol', 'Surface Temperature', 'K', (/ ('', i=1, 6) /)) |
| 31 | TYPE(ctrl_out), SAVE :: o_t2m = ctrl_out((/ 1, 1, 1, 5, 10, 10 /), & |
| 32 | 't2m', 'Temperature 2m', 'K', (/ ('', i=1, 6) /)) |
| 33 | TYPE(ctrl_out), SAVE :: o_t2m_min = ctrl_out((/ 1, 1, 10, 10, 10, 10 /), & |
| 34 | 't2m_min', 'Temp 2m min', 'K', & |
| 35 | (/ "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)" /)) |
| 36 | TYPE(ctrl_out), SAVE :: o_t2m_max = ctrl_out((/ 1, 1, 10, 10, 10, 10 /), & |
| 37 | |