Changeset 2752 for LMDZ5/trunk
- Timestamp:
- Jan 8, 2017, 4:44:10 PM (8 years ago)
- Location:
- LMDZ5/trunk/libf/phylmd
- Files:
-
- 15 edited
-
Dust/spla_output_dat.h (modified) (1 diff)
-
Dust/spla_output_write.h (modified) (7 diffs)
-
StratAer/aer_sedimnt.F90 (modified) (2 diffs)
-
StratAer/aerophys.F90 (modified) (1 diff)
-
StratAer/interp_sulf_input.F90 (modified) (4 diffs)
-
StratAer/micphy_tstep.F90 (modified) (4 diffs)
-
StratAer/ocs_to_so2.F90 (modified) (5 diffs)
-
StratAer/so2_to_h2so4.F90 (modified) (5 diffs)
-
StratAer/traccoag_mod.F90 (modified) (10 diffs)
-
phys_local_var_mod.F90 (modified) (8 diffs)
-
phys_output_ctrlout_mod.F90 (modified) (4 diffs)
-
phys_output_mod.F90 (modified) (16 diffs)
-
phys_output_var_mod.F90 (modified) (1 diff)
-
phys_output_write_mod.F90 (modified) (6 diffs)
-
phytrac_mod.F90 (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/Dust/spla_output_dat.h
r2630 r2752 3 3 4 4 !Dust emission module 5 type(ctrl_out),save :: o_m1dflux = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &6 'm1dflux','m1dflux','', (/ ('', i=1, 9) /))7 type(ctrl_out),save :: o_m2dflux = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &8 'm2dflux','m2dflux','', (/ ('', i=1, 9) /))9 type(ctrl_out),save :: o_m3dflux = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &10 'm3dflux','m3dflux','', (/ ('', i=1, 9) /))5 type(ctrl_out),save :: o_m1dflux = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 6 'm1dflux','m1dflux','', (/ ('', i=1, 10) /)) 7 type(ctrl_out),save :: o_m2dflux = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 8 'm2dflux','m2dflux','', (/ ('', i=1, 10) /)) 9 type(ctrl_out),save :: o_m3dflux = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 10 'm3dflux','m3dflux','', (/ ('', i=1, 10) /)) 11 11 12 12 ! traceur_spl 13 type(ctrl_out),save :: o_taue550 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 14 'taue550','Tau ext 550','', (/ ('', i=1, 9) /)) 15 type(ctrl_out),save :: o_taue670 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 16 'taue670','Tau ext 670','', (/ ('', i=1, 9) /)) 17 type(ctrl_out),save :: o_taue865 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 18 'taue865','Tau ext 865','', (/ ('', i=1, 9) /)) 19 type(ctrl_out),save :: o_taue550_tr2 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 20 'taue550_tr2','Tau ext 550tr2','', (/ ('', i=1, 9) /)) 21 type(ctrl_out),save :: o_taue670_tr2 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 22 'taue670_tr2','Tau ext 670tr2','', (/ ('', i=1, 9) /)) 23 type(ctrl_out),save :: o_taue865_tr2 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 24 'taue865_tr2','Tau ext 865tr2','', (/ ('', i=1, 9) /)) 25 type(ctrl_out),save :: o_taue550_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 26 'taue550_ss','Tau ext 550ss','', (/ ('', i=1, 9) /)) 27 type(ctrl_out),save :: o_taue670_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 28 'taue670_ss','Tau ext 670ss','', (/ ('', i=1, 9) /)) 29 type(ctrl_out),save :: o_taue865_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 30 'taue865_ss','Tau ext 865ss','', (/ ('', i=1, 9) /)) 31 type(ctrl_out),save :: o_taue550_dust = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 32 'taue550_dust','Tau ext 550dust','', (/ ('', i=1, 9) /)) 33 type(ctrl_out),save :: o_taue670_dust = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 34 'taue670_dust','Tau ext 670dust','', (/ ('', i=1, 9) /)) 35 type(ctrl_out),save :: o_taue865_dust = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 36 'taue865_dust','Tau ext 865dust','', (/ ('', i=1, 9) /)) 37 type(ctrl_out),save :: o_taue550_dustsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 38 'taue550_dustsco','Tau ext 550dustsco','', (/ ('', i=1, 9) /)) 39 type(ctrl_out),save :: o_taue670_dustsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 40 'taue670_dustsco','Tau ext 670dustsco','', (/ ('', i=1, 9) /)) 41 type(ctrl_out),save :: o_taue865_dustsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 42 'taue865_dustsco','Tau ext 865dustsco','', (/ ('', i=1, 9) /)) 43 44 45 type(ctrl_out),save :: o_taue550_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 13 type(ctrl_out),save :: o_taue550 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 14 'taue550','Tau ext 550','', (/ ('', i=1, 10) /)) 15 type(ctrl_out),save :: o_taue670 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 16 'taue670','Tau ext 670','', (/ ('', i=1, 10) /)) 17 type(ctrl_out),save :: o_taue865 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 18 'taue865','Tau ext 865','', (/ ('', i=1, 10) /)) 19 type(ctrl_out),save :: o_taue550_tr2 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 20 'taue550_tr2','Tau ext 550tr2','', (/ ('', i=1, 10) /)) 21 type(ctrl_out),save :: o_taue670_tr2 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 22 'taue670_tr2','Tau ext 670tr2','', (/ ('', i=1, 10) /)) 23 type(ctrl_out),save :: o_taue865_tr2 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 24 'taue865_tr2','Tau ext 865tr2','', (/ ('', i=1, 10) /)) 25 type(ctrl_out),save :: o_taue550_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 26 'taue550_ss','Tau ext 550ss','', (/ ('', i=1, 10) /)) 27 type(ctrl_out),save :: o_taue670_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 28 'taue670_ss','Tau ext 670ss','', (/ ('', i=1, 10) /)) 29 type(ctrl_out),save :: o_taue865_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 30 'taue865_ss','Tau ext 865ss','', (/ ('', i=1, 10) /)) 31 type(ctrl_out),save :: o_taue550_dust = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 32 'taue550_dust','Tau ext 550dust','', (/ ('', i=1, 10) /)) 33 type(ctrl_out),save :: o_taue670_dust = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 34 'taue670_dust','Tau ext 670dust','', (/ ('', i=1, 10) /)) 35 type(ctrl_out),save :: o_taue865_dust = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 36 'taue865_dust','Tau ext 865dust','', (/ ('', i=1, 10) /)) 37 type(ctrl_out),save :: o_taue550_dustsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 38 'taue550_dustsco','Tau ext 550dustsco','', (/ ('', i=1, 10) /)) 39 type(ctrl_out),save :: o_taue670_dustsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 40 'taue670_dustsco','Tau ext 670dustsco','', (/ ('', i=1, 10) /)) 41 type(ctrl_out),save :: o_taue865_dustsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 42 'taue865_dustsco','Tau ext 865dustsco','', (/ ('', i=1, 10) /)) 43 44 type(ctrl_out),save :: o_taue550_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 46 45 'taue550_terra','Tau ext 550 terra','', & 47 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &48 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 49 type(ctrl_out),save :: o_taue550_fine_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &46 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 47 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 48 type(ctrl_out),save :: o_taue550_fine_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 50 49 'taue550_fine_terra','Tau ext fine 550 terra','', & 51 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &52 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 53 type(ctrl_out),save :: o_taue550_coss_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &50 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 51 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 52 type(ctrl_out),save :: o_taue550_coss_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 54 53 'taue550_coss_terra','Tau ext coss 550 terra','', & 55 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &56 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 57 type(ctrl_out),save :: o_taue550_codu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &54 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 55 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 56 type(ctrl_out),save :: o_taue550_codu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 58 57 'taue550_codu_terra','Tau ext codu 550 terra','', & 59 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &60 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 61 type(ctrl_out),save :: o_taue550_scdu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &58 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 59 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 60 type(ctrl_out),save :: o_taue550_scdu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 62 61 'taue550_scdu_terra','Tau ext scdu 550 terra','', & 63 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &64 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 65 66 type(ctrl_out),save :: o_taue670_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &62 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 63 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 64 65 type(ctrl_out),save :: o_taue670_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 67 66 'taue670_terra','Tau ext 670 terra','', & 68 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &69 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 70 type(ctrl_out),save :: o_taue670_fine_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &67 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 68 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 69 type(ctrl_out),save :: o_taue670_fine_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 71 70 'taue670_fine_terra','Tau ext fine 670 terra','', & 72 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &73 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 74 type(ctrl_out),save :: o_taue670_coss_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &71 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 72 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 73 type(ctrl_out),save :: o_taue670_coss_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 75 74 'taue670_coss_terra','Tau ext coss 670 terra','', & 76 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &77 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 78 type(ctrl_out),save :: o_taue670_codu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &75 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 76 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 77 type(ctrl_out),save :: o_taue670_codu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 79 78 'taue670_codu_terra','Tau ext codu 670 terra','', & 80 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &81 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 82 type(ctrl_out),save :: o_taue670_scdu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &79 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 80 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 81 type(ctrl_out),save :: o_taue670_scdu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 83 82 'taue670_scdu_terra','Tau ext scdu 670 terra','', & 84 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &85 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 86 87 type(ctrl_out),save :: o_taue865_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &83 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 84 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 85 86 type(ctrl_out),save :: o_taue865_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 88 87 'taue865_terra','Tau ext 865 terra','', & 89 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &90 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 91 type(ctrl_out),save :: o_taue865_fine_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &88 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 89 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 90 type(ctrl_out),save :: o_taue865_fine_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 92 91 'taue865_fine_terra','Tau ext fine 865 terra','', & 93 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &94 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 95 type(ctrl_out),save :: o_taue865_coss_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &92 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 93 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 94 type(ctrl_out),save :: o_taue865_coss_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 96 95 'taue865_coss_terra','Tau ext coss 865 terra','', & 97 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &98 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 99 type(ctrl_out),save :: o_taue865_codu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &96 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 97 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 98 type(ctrl_out),save :: o_taue865_codu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 100 99 'taue865_codu_terra','Tau ext codu 865 terra','', & 101 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &102 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 103 type(ctrl_out),save :: o_taue865_scdu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &100 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 101 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 102 type(ctrl_out),save :: o_taue865_scdu_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 104 103 'taue865_scdu_terra','Tau ext scdu 865 terra','', & 105 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &106 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 107 108 type(ctrl_out),save :: o_taue550_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &104 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 105 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 106 107 type(ctrl_out),save :: o_taue550_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 109 108 'taue550_aqua','Tau ext 550 aqua','', & 110 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &111 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 112 type(ctrl_out),save :: o_taue550_fine_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &109 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 110 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 111 type(ctrl_out),save :: o_taue550_fine_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 113 112 'taue550_fine_aqua','Tau ext fine 550 aqua','', & 114 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &115 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 116 type(ctrl_out),save :: o_taue550_coss_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &113 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 114 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 115 type(ctrl_out),save :: o_taue550_coss_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 117 116 'taue550_coss_aqua','Tau ext coss 550 aqua','', & 118 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &119 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 120 type(ctrl_out),save :: o_taue550_codu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &117 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 118 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 119 type(ctrl_out),save :: o_taue550_codu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 121 120 'taue550_codu_aqua','Tau ext codu 550 aqua','', & 122 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &123 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 124 type(ctrl_out),save :: o_taue550_scdu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &121 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 122 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 123 type(ctrl_out),save :: o_taue550_scdu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 125 124 'taue550_scdu_aqua','Tau ext scdu 550 aqua','', & 126 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &127 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 128 129 type(ctrl_out),save :: o_taue670_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &125 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 126 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 127 128 type(ctrl_out),save :: o_taue670_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 130 129 'taue670_aqua','Tau ext 670 aqua','', & 131 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &132 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 133 type(ctrl_out),save :: o_taue670_fine_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &130 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 131 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 132 type(ctrl_out),save :: o_taue670_fine_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 134 133 'taue670_fine_aqua','Tau ext fine 670 aqua','', & 135 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &136 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 137 type(ctrl_out),save :: o_taue670_coss_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &134 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 135 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 136 type(ctrl_out),save :: o_taue670_coss_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 138 137 'taue670_coss_aqua','Tau ext coss 670 aqua','', & 139 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &140 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 141 type(ctrl_out),save :: o_taue670_codu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &138 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 139 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 140 type(ctrl_out),save :: o_taue670_codu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 142 141 'taue670_codu_aqua','Tau ext codu 670 aqua','', & 143 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &144 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 145 type(ctrl_out),save :: o_taue670_scdu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &142 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 143 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 144 type(ctrl_out),save :: o_taue670_scdu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 146 145 'taue670_scdu_aqua','Tau ext scdu 670 aqua','', & 147 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &148 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 149 150 type(ctrl_out),save :: o_taue865_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &146 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 147 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 148 149 type(ctrl_out),save :: o_taue865_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 151 150 'taue865_aqua','Tau ext 865 aqua','', & 152 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &153 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 154 type(ctrl_out),save :: o_taue865_fine_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &151 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 152 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 153 type(ctrl_out),save :: o_taue865_fine_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 155 154 'taue865_fine_aqua','Tau ext fine 865 aqua','', & 156 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &157 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 158 type(ctrl_out),save :: o_taue865_coss_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &155 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 156 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 157 type(ctrl_out),save :: o_taue865_coss_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 159 158 'taue865_coss_aqua','Tau ext coss 865 aqua','', & 160 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &161 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 162 type(ctrl_out),save :: o_taue865_codu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &159 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 160 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 161 type(ctrl_out),save :: o_taue865_codu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 163 162 'taue865_codu_aqua','Tau ext codu 865 aqua','', & 164 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &165 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 166 type(ctrl_out),save :: o_taue865_scdu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &163 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 164 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 165 type(ctrl_out),save :: o_taue865_scdu_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 167 166 'taue865_scdu_aqua','Tau ext scdu 865 aqua','', & 168 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 169 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 170 171 172 173 ! type(ctrl_out),save :: o_taue550_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 167 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 168 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 169 170 ! type(ctrl_out),save :: o_taue550_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 174 171 ! 'taue550_terra','Tau ext 550 terra','', & 175 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &172 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 176 173 ! 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 177 174 ! 178 ! type(ctrl_out),save :: o_taue670_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &175 ! type(ctrl_out),save :: o_taue670_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 179 176 ! 'taue670_aqua','Tau ext 670 aqua','', & 180 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &177 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 181 178 ! 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 182 179 ! 183 ! type(ctrl_out),save :: o_taue670_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &180 ! type(ctrl_out),save :: o_taue670_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 184 181 ! 'taue670_terra','Tau ext 670 terra','', & 185 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &182 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 186 183 ! 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 187 184 ! 188 ! type(ctrl_out),save :: o_taue865_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &185 ! type(ctrl_out),save :: o_taue865_aqua = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 189 186 ! 'taue865_aqua','Tau ext 865 aqua','', & 190 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &187 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 191 188 ! 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 192 189 ! 193 ! type(ctrl_out),save :: o_taue865_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &190 ! type(ctrl_out),save :: o_taue865_terra = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 194 191 ! 'taue865_terra','Tau ext 865 terra','', & 195 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', &192 ! (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 196 193 ! 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 197 198 194 199 type(ctrl_out),save :: o_trm01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 200 'trm01','Burden PREC','', (/ ('', i=1, 9) /)) 201 type(ctrl_out),save :: o_trm02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 202 'trm02','Burden FINE','', (/ ('', i=1, 9) /)) 203 type(ctrl_out),save :: o_trm03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 204 'trm03','Burden COSS','', (/ ('', i=1, 9) /)) 205 type(ctrl_out),save :: o_trm04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 206 'trm04','Burden CODU','', (/ ('', i=1, 9) /)) 207 type(ctrl_out),save :: o_trm05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 208 'trm05','Burden SCDU','', (/ ('', i=1, 9) /)) 209 210 type(ctrl_out),save :: o_sconc01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 211 'sconc01','Surf. Conc. PREC','', (/ ('', i=1, 9) /)) 212 type(ctrl_out),save :: o_sconc02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 213 'sconc02','Surf. Conc. FINE','', (/ ('', i=1, 9) /)) 214 type(ctrl_out),save :: o_sconc03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 215 'sconc03','Surf. Conc. COSS','', (/ ('', i=1, 9) /)) 216 type(ctrl_out),save :: o_sconc04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 217 'sconc04','Surf. Conc. CODU','', (/ ('', i=1, 9) /)) 218 type(ctrl_out),save :: o_sconc05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 219 'sconc05','Surf. Conc. SCDU','', (/ ('', i=1, 9) /)) 220 221 222 195 type(ctrl_out),save :: o_trm01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 196 'trm01','Burden PREC','', (/ ('', i=1, 10) /)) 197 type(ctrl_out),save :: o_trm02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 198 'trm02','Burden FINE','', (/ ('', i=1, 10) /)) 199 type(ctrl_out),save :: o_trm03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 200 'trm03','Burden COSS','', (/ ('', i=1, 10) /)) 201 type(ctrl_out),save :: o_trm04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 202 'trm04','Burden CODU','', (/ ('', i=1, 10) /)) 203 type(ctrl_out),save :: o_trm05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 204 'trm05','Burden SCDU','', (/ ('', i=1, 10) /)) 205 206 type(ctrl_out),save :: o_sconc01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 207 'sconc01','Surf. Conc. PREC','', (/ ('', i=1, 10) /)) 208 type(ctrl_out),save :: o_sconc02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 209 'sconc02','Surf. Conc. FINE','', (/ ('', i=1, 10) /)) 210 type(ctrl_out),save :: o_sconc03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 211 'sconc03','Surf. Conc. COSS','', (/ ('', i=1, 10) /)) 212 type(ctrl_out),save :: o_sconc04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 213 'sconc04','Surf. Conc. CODU','', (/ ('', i=1, 10) /)) 214 type(ctrl_out),save :: o_sconc05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 215 'sconc05','Surf. Conc. SCDU','', (/ ('', i=1, 10) /)) 223 216 224 217 !lessivage 225 218 226 type(ctrl_out),save :: o_flux01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 227 'flux01','emission PREC','', (/ ('', i=1, 9) /)) 228 type(ctrl_out),save :: o_flux02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 229 'flux02','emission FINE','', (/ ('', i=1, 9) /)) 230 type(ctrl_out),save :: o_flux03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 231 'flux03','emission COSS','', (/ ('', i=1, 9) /)) 232 type(ctrl_out),save :: o_flux04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 233 'flux04','emission CODU','', (/ ('', i=1, 9) /)) 234 type(ctrl_out),save :: o_flux05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 235 'flux05','emission SCDU','', (/ ('', i=1, 9) /)) 236 237 238 type(ctrl_out),save :: o_ds01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 239 'ds01','Depot sec PREC','', (/ ('', i=1, 9) /)) 240 type(ctrl_out),save :: o_ds02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 241 'ds02','Depot sec FINE','', (/ ('', i=1, 9) /)) 242 type(ctrl_out),save :: o_ds03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 243 'ds03','Depot sec COSS','', (/ ('', i=1, 9) /)) 244 type(ctrl_out),save :: o_ds04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 245 'ds04','Depot sec CODU','', (/ ('', i=1, 9) /)) 246 type(ctrl_out),save :: o_ds05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 247 'ds05','Depot sec SCDU','', (/ ('', i=1, 9) /)) 248 249 type(ctrl_out),save :: o_dh01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 250 'dh01','Depot hum PREC','', (/ ('', i=1, 9) /)) 251 type(ctrl_out),save :: o_dh02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 252 'dh02','Depot hum FINE','', (/ ('', i=1, 9) /)) 253 type(ctrl_out),save :: o_dh03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 254 'dh03','Depot hum COSS','', (/ ('', i=1, 9) /)) 255 type(ctrl_out),save :: o_dh04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 256 'dh04','Depot hum CODU','', (/ ('', i=1, 9) /)) 257 type(ctrl_out),save :: o_dh05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 258 'dh05','Depot hum SCDU','', (/ ('', i=1, 9) /)) 259 260 type(ctrl_out),save :: o_dtrconv01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 261 'dtrconv01','Tiedke convective PREC','', (/ ('', i=1, 9) /)) 262 type(ctrl_out),save :: o_dtrconv02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 263 'dtrconv02','Tiedke convective FINE','', (/ ('', i=1, 9) /)) 264 type(ctrl_out),save :: o_dtrconv03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 265 'dtrconv03','Tiedke convective COSS','', (/ ('', i=1, 9) /)) 266 type(ctrl_out),save :: o_dtrconv04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 267 'dtrconv04','Tiedke convective CODU','', (/ ('', i=1, 9) /)) 268 type(ctrl_out),save :: o_dtrconv05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 269 'dtrconv05','Tiedke convective SCDU','', (/ ('', i=1, 9) /)) 270 271 type(ctrl_out),save :: o_dtherm01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 272 'dtherm01','Thermals dtracer PREC','', (/ ('', i=1, 9) /)) 273 type(ctrl_out),save :: o_dtherm02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 274 'dtherm02','Thermals dtracer FINE','', (/ ('', i=1, 9) /)) 275 type(ctrl_out),save :: o_dtherm03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 276 'dtherm03','Thermals dtracer COSS','', (/ ('', i=1, 9) /)) 277 type(ctrl_out),save :: o_dtherm04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 278 'dtherm04','Thermals dtracer CODU','', (/ ('', i=1, 9) /)) 279 type(ctrl_out),save :: o_dtherm05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 280 'dtherm05','Thermals dtracer SCDU','', (/ ('', i=1, 9) /)) 281 282 type(ctrl_out),save :: o_dhkecv01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 283 'dhkecv01','KE dep hum convective PREC','', (/ ('', i=1, 9) /)) 284 type(ctrl_out),save :: o_dhkecv02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 285 'dhkecv02','KE dep hum convective FINE','', (/ ('', i=1, 9) /)) 286 type(ctrl_out),save :: o_dhkecv03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 287 'dhkecv03','KE dep hum convective COSS','', (/ ('', i=1, 9) /)) 288 type(ctrl_out),save :: o_dhkecv04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 289 'dhkecv04','KE dep hum convective CODU','', (/ ('', i=1, 9) /)) 290 type(ctrl_out),save :: o_dhkecv05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 291 'dhkecv05','KE dep hum convective SCDU','', (/ ('', i=1, 9) /)) 219 type(ctrl_out),save :: o_flux01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 220 'flux01','emission PREC','', (/ ('', i=1, 10) /)) 221 type(ctrl_out),save :: o_flux02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 222 'flux02','emission FINE','', (/ ('', i=1, 10) /)) 223 type(ctrl_out),save :: o_flux03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 224 'flux03','emission COSS','', (/ ('', i=1, 10) /)) 225 type(ctrl_out),save :: o_flux04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 226 'flux04','emission CODU','', (/ ('', i=1, 10) /)) 227 type(ctrl_out),save :: o_flux05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 228 'flux05','emission SCDU','', (/ ('', i=1, 10) /)) 229 230 type(ctrl_out),save :: o_ds01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 231 'ds01','Depot sec PREC','', (/ ('', i=1, 10) /)) 232 type(ctrl_out),save :: o_ds02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 233 'ds02','Depot sec FINE','', (/ ('', i=1, 10) /)) 234 type(ctrl_out),save :: o_ds03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 235 'ds03','Depot sec COSS','', (/ ('', i=1, 10) /)) 236 type(ctrl_out),save :: o_ds04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 237 'ds04','Depot sec CODU','', (/ ('', i=1, 10) /)) 238 type(ctrl_out),save :: o_ds05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 239 'ds05','Depot sec SCDU','', (/ ('', i=1, 10) /)) 240 241 type(ctrl_out),save :: o_dh01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 242 'dh01','Depot hum PREC','', (/ ('', i=1, 10) /)) 243 type(ctrl_out),save :: o_dh02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 244 'dh02','Depot hum FINE','', (/ ('', i=1, 10) /)) 245 type(ctrl_out),save :: o_dh03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 246 'dh03','Depot hum COSS','', (/ ('', i=1, 10) /)) 247 type(ctrl_out),save :: o_dh04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 248 'dh04','Depot hum CODU','', (/ ('', i=1, 10) /)) 249 type(ctrl_out),save :: o_dh05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 250 'dh05','Depot hum SCDU','', (/ ('', i=1, 10) /)) 251 252 type(ctrl_out),save :: o_dtrconv01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 253 'dtrconv01','Tiedke convective PREC','', (/ ('', i=1, 10) /)) 254 type(ctrl_out),save :: o_dtrconv02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 255 'dtrconv02','Tiedke convective FINE','', (/ ('', i=1, 10) /)) 256 type(ctrl_out),save :: o_dtrconv03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 257 'dtrconv03','Tiedke convective COSS','', (/ ('', i=1, 10) /)) 258 type(ctrl_out),save :: o_dtrconv04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 259 'dtrconv04','Tiedke convective CODU','', (/ ('', i=1, 10) /)) 260 type(ctrl_out),save :: o_dtrconv05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 261 'dtrconv05','Tiedke convective SCDU','', (/ ('', i=1, 10) /)) 262 263 type(ctrl_out),save :: o_dtherm01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 264 'dtherm01','Thermals dtracer PREC','', (/ ('', i=1, 10) /)) 265 type(ctrl_out),save :: o_dtherm02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 266 'dtherm02','Thermals dtracer FINE','', (/ ('', i=1, 10) /)) 267 type(ctrl_out),save :: o_dtherm03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 268 'dtherm03','Thermals dtracer COSS','', (/ ('', i=1, 10) /)) 269 type(ctrl_out),save :: o_dtherm04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 270 'dtherm04','Thermals dtracer CODU','', (/ ('', i=1, 10) /)) 271 type(ctrl_out),save :: o_dtherm05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 272 'dtherm05','Thermals dtracer SCDU','', (/ ('', i=1, 10) /)) 273 274 type(ctrl_out),save :: o_dhkecv01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 275 'dhkecv01','KE dep hum convective PREC','', (/ ('', i=1, 10) /)) 276 type(ctrl_out),save :: o_dhkecv02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 277 'dhkecv02','KE dep hum convective FINE','', (/ ('', i=1, 10) /)) 278 type(ctrl_out),save :: o_dhkecv03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 279 'dhkecv03','KE dep hum convective COSS','', (/ ('', i=1, 10) /)) 280 type(ctrl_out),save :: o_dhkecv04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 281 'dhkecv04','KE dep hum convective CODU','', (/ ('', i=1, 10) /)) 282 type(ctrl_out),save :: o_dhkecv05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 283 'dhkecv05','KE dep hum convective SCDU','', (/ ('', i=1, 10) /)) 292 284 293 285 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 294 type(ctrl_out),save :: o_d_tr_ds01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &295 'd_tr_ds01','Tendance dep sec PREC','', (/ ('', i=1, 9) /))296 type(ctrl_out),save :: o_d_tr_ds02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &297 'd_tr_ds02','Tendance dep sec FINE','', (/ ('', i=1, 9) /))298 type(ctrl_out),save :: o_d_tr_ds03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &299 'd_tr_ds03','Tendance dep sec COSS','', (/ ('', i=1, 9) /))300 type(ctrl_out),save :: o_d_tr_ds04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &301 'd_tr_ds04','Tendance depot sec CODU','', (/ ('', i=1, 9) /))302 type(ctrl_out),save :: o_d_tr_ds05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &303 'd_tr_ds05','Tendance dep sec SCDU','', (/ ('', i=1, 9) /))286 type(ctrl_out),save :: o_d_tr_ds01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 287 'd_tr_ds01','Tendance dep sec PREC','', (/ ('', i=1, 10) /)) 288 type(ctrl_out),save :: o_d_tr_ds02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 289 'd_tr_ds02','Tendance dep sec FINE','', (/ ('', i=1, 10) /)) 290 type(ctrl_out),save :: o_d_tr_ds03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 291 'd_tr_ds03','Tendance dep sec COSS','', (/ ('', i=1, 10) /)) 292 type(ctrl_out),save :: o_d_tr_ds04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 293 'd_tr_ds04','Tendance depot sec CODU','', (/ ('', i=1, 10) /)) 294 type(ctrl_out),save :: o_d_tr_ds05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 295 'd_tr_ds05','Tendance dep sec SCDU','', (/ ('', i=1, 10) /)) 304 296 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 305 297 306 type(ctrl_out),save :: o_dhkelsc01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 307 'dhkelsc01','KE dep hum large scale PREC','', (/ ('', i=1, 9) /)) 308 type(ctrl_out),save :: o_dhkelsc02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 309 'dhkelsc02','KE dep hum large scale FINE','', (/ ('', i=1, 9) /)) 310 type(ctrl_out),save :: o_dhkelsc03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 311 'dhkelsc03','KE dep hum large scale COSS','', (/ ('', i=1, 9) /)) 312 type(ctrl_out),save :: o_dhkelsc04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 313 'dhkelsc04','KE dep hum large scale CODU','', (/ ('', i=1, 9) /)) 314 type(ctrl_out),save :: o_dhkelsc05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 315 'dhkelsc05','KE dep hum large scale SCDU','', (/ ('', i=1, 9) /)) 316 317 318 type(ctrl_out),save :: o_d_tr_cv01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 319 'd_tr_cv01','cvltr d_tr_cv PREC','', (/ ('', i=1, 9) /)) 320 type(ctrl_out),save :: o_d_tr_cv02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 321 'd_tr_cv02','cvltr d_tr_cv FINE','', (/ ('', i=1, 9) /)) 322 type(ctrl_out),save :: o_d_tr_cv03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 323 'd_tr_cv03','cvltr d_tr_cv COSS','', (/ ('', i=1, 9) /)) 324 type(ctrl_out),save :: o_d_tr_cv04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 325 'd_tr_cv04','cvltr d_tr_cv CODU','', (/ ('', i=1, 9) /)) 326 type(ctrl_out),save :: o_d_tr_cv05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 327 'd_tr_cv05','cvltr d_tr_cv SCDU','', (/ ('', i=1, 9) /)) 328 329 330 type(ctrl_out),save :: o_d_tr_trsp01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 331 'd_tr_trsp01','cvltr d_tr_trsp PREC','', (/ ('', i=1, 9) /)) 332 type(ctrl_out),save :: o_d_tr_trsp02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 333 'd_tr_trsp02','cvltr d_tr_trsp FINE','', (/ ('', i=1, 9) /)) 334 type(ctrl_out),save :: o_d_tr_trsp03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 335 'd_tr_trsp03','cvltr d_tr_trsp COSS','', (/ ('', i=1, 9) /)) 336 type(ctrl_out),save :: o_d_tr_trsp04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 337 'd_tr_trsp04','cvltr d_tr_trsp CODU','', (/ ('', i=1, 9) /)) 338 type(ctrl_out),save :: o_d_tr_trsp05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 339 'd_tr_trsp05','cvltr d_tr_trsp SCDU','', (/ ('', i=1, 9) /)) 340 341 342 type(ctrl_out),save :: o_d_tr_sscav01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 343 'd_tr_sscav01','cvltr d_tr_sscav PREC','', (/ ('', i=1, 9) /)) 344 type(ctrl_out),save :: o_d_tr_sscav02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 345 'd_tr_sscav02','cvltr d_tr_sscav FINE','', (/ ('', i=1, 9) /)) 346 type(ctrl_out),save :: o_d_tr_sscav03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 347 'd_tr_sscav03','cvltr d_tr_sscav COSS','', (/ ('', i=1, 9) /)) 348 type(ctrl_out),save :: o_d_tr_sscav04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 349 'd_tr_sscav04','cvltr d_tr_sscav CODU','', (/ ('', i=1, 9) /)) 350 type(ctrl_out),save :: o_d_tr_sscav05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 351 'd_tr_sscav05','cvltr d_tr_sscav SCDU','', (/ ('', i=1, 9) /)) 352 353 type(ctrl_out),save :: o_d_tr_sat01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 354 'd_tr_sat01','cvltr d_tr_sat PREC','', (/ ('', i=1, 9) /)) 355 type(ctrl_out),save :: o_d_tr_sat02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 356 'd_tr_sat02','cvltr d_tr_sat FINE','', (/ ('', i=1, 9) /)) 357 type(ctrl_out),save :: o_d_tr_sat03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 358 'd_tr_sat03','cvltr d_tr_sat COSS','', (/ ('', i=1, 9) /)) 359 type(ctrl_out),save :: o_d_tr_sat04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 360 'd_tr_sat04','cvltr d_tr_sat CODU','', (/ ('', i=1, 9) /)) 361 type(ctrl_out),save :: o_d_tr_sat05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 362 'd_tr_sat05','cvltr d_tr_sat SCDU','', (/ ('', i=1, 9) /)) 363 364 type(ctrl_out),save :: o_d_tr_uscav01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 365 'd_tr_uscav01','cvltr d_tr_uscav PREC','', (/ ('', i=1, 9) /)) 366 type(ctrl_out),save :: o_d_tr_uscav02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 367 'd_tr_uscav02','cvltr d_tr_uscav FINE','', (/ ('', i=1, 9) /)) 368 type(ctrl_out),save :: o_d_tr_uscav03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 369 'd_tr_uscav03','cvltr d_tr_uscav COSS','', (/ ('', i=1, 9) /)) 370 type(ctrl_out),save :: o_d_tr_uscav04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 371 'd_tr_uscav04','cvltr d_tr_uscav CODU','', (/ ('', i=1, 9) /)) 372 type(ctrl_out),save :: o_d_tr_uscav05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 373 'd_tr_uscav05','cvltr d_tr_uscav SCDU','', (/ ('', i=1, 9) /)) 298 type(ctrl_out),save :: o_dhkelsc01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 299 'dhkelsc01','KE dep hum large scale PREC','', (/ ('', i=1, 10) /)) 300 type(ctrl_out),save :: o_dhkelsc02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 301 'dhkelsc02','KE dep hum large scale FINE','', (/ ('', i=1, 10) /)) 302 type(ctrl_out),save :: o_dhkelsc03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 303 'dhkelsc03','KE dep hum large scale COSS','', (/ ('', i=1, 10) /)) 304 type(ctrl_out),save :: o_dhkelsc04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 305 'dhkelsc04','KE dep hum large scale CODU','', (/ ('', i=1, 10) /)) 306 type(ctrl_out),save :: o_dhkelsc05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 307 'dhkelsc05','KE dep hum large scale SCDU','', (/ ('', i=1, 10) /)) 308 309 type(ctrl_out),save :: o_d_tr_cv01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 310 'd_tr_cv01','cvltr d_tr_cv PREC','', (/ ('', i=1, 10) /)) 311 type(ctrl_out),save :: o_d_tr_cv02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 312 'd_tr_cv02','cvltr d_tr_cv FINE','', (/ ('', i=1, 10) /)) 313 type(ctrl_out),save :: o_d_tr_cv03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 314 'd_tr_cv03','cvltr d_tr_cv COSS','', (/ ('', i=1, 10) /)) 315 type(ctrl_out),save :: o_d_tr_cv04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 316 'd_tr_cv04','cvltr d_tr_cv CODU','', (/ ('', i=1, 10) /)) 317 type(ctrl_out),save :: o_d_tr_cv05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 318 'd_tr_cv05','cvltr d_tr_cv SCDU','', (/ ('', i=1, 10) /)) 319 320 type(ctrl_out),save :: o_d_tr_trsp01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 321 'd_tr_trsp01','cvltr d_tr_trsp PREC','', (/ ('', i=1, 10) /)) 322 type(ctrl_out),save :: o_d_tr_trsp02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 323 'd_tr_trsp02','cvltr d_tr_trsp FINE','', (/ ('', i=1, 10) /)) 324 type(ctrl_out),save :: o_d_tr_trsp03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 325 'd_tr_trsp03','cvltr d_tr_trsp COSS','', (/ ('', i=1, 10) /)) 326 type(ctrl_out),save :: o_d_tr_trsp04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 327 'd_tr_trsp04','cvltr d_tr_trsp CODU','', (/ ('', i=1, 10) /)) 328 type(ctrl_out),save :: o_d_tr_trsp05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 329 'd_tr_trsp05','cvltr d_tr_trsp SCDU','', (/ ('', i=1, 10) /)) 330 331 type(ctrl_out),save :: o_d_tr_sscav01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 332 'd_tr_sscav01','cvltr d_tr_sscav PREC','', (/ ('', i=1, 10) /)) 333 type(ctrl_out),save :: o_d_tr_sscav02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 334 'd_tr_sscav02','cvltr d_tr_sscav FINE','', (/ ('', i=1, 10) /)) 335 type(ctrl_out),save :: o_d_tr_sscav03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 336 'd_tr_sscav03','cvltr d_tr_sscav COSS','', (/ ('', i=1, 10) /)) 337 type(ctrl_out),save :: o_d_tr_sscav04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 338 'd_tr_sscav04','cvltr d_tr_sscav CODU','', (/ ('', i=1, 10) /)) 339 type(ctrl_out),save :: o_d_tr_sscav05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 340 'd_tr_sscav05','cvltr d_tr_sscav SCDU','', (/ ('', i=1, 10) /)) 341 342 type(ctrl_out),save :: o_d_tr_sat01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 343 'd_tr_sat01','cvltr d_tr_sat PREC','', (/ ('', i=1, 10) /)) 344 type(ctrl_out),save :: o_d_tr_sat02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 345 'd_tr_sat02','cvltr d_tr_sat FINE','', (/ ('', i=1, 10) /)) 346 type(ctrl_out),save :: o_d_tr_sat03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 347 'd_tr_sat03','cvltr d_tr_sat COSS','', (/ ('', i=1, 10) /)) 348 type(ctrl_out),save :: o_d_tr_sat04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 349 'd_tr_sat04','cvltr d_tr_sat CODU','', (/ ('', i=1, 10) /)) 350 type(ctrl_out),save :: o_d_tr_sat05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 351 'd_tr_sat05','cvltr d_tr_sat SCDU','', (/ ('', i=1, 10) /)) 352 353 type(ctrl_out),save :: o_d_tr_uscav01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 354 'd_tr_uscav01','cvltr d_tr_uscav PREC','', (/ ('', i=1, 10) /)) 355 type(ctrl_out),save :: o_d_tr_uscav02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 356 'd_tr_uscav02','cvltr d_tr_uscav FINE','', (/ ('', i=1, 10) /)) 357 type(ctrl_out),save :: o_d_tr_uscav03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 358 'd_tr_uscav03','cvltr d_tr_uscav COSS','', (/ ('', i=1, 10) /)) 359 type(ctrl_out),save :: o_d_tr_uscav04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 360 'd_tr_uscav04','cvltr d_tr_uscav CODU','', (/ ('', i=1, 10) /)) 361 type(ctrl_out),save :: o_d_tr_uscav05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 362 'd_tr_uscav05','cvltr d_tr_uscav SCDU','', (/ ('', i=1, 10) /)) 374 363 375 364 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 365 type(ctrl_out),save :: o_d_tr_insc01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 366 'd_tr_insc01','large-scale d_tr_insc PREC','', (/ ('', i=1, 10) /)) 367 type(ctrl_out),save :: o_d_tr_insc02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 368 'd_tr_insc02','large-scale d_tr_insc FINE','', (/ ('', i=1, 10) /)) 369 type(ctrl_out),save :: o_d_tr_insc03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 370 'd_tr_insc03','large-scale d_tr_insc COSS','', (/ ('', i=1, 10) /)) 371 type(ctrl_out),save :: o_d_tr_insc04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 372 'd_tr_insc04','large-scale d_tr_insc CODU','', (/ ('', i=1, 10) /)) 373 type(ctrl_out),save :: o_d_tr_insc05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 374 'd_tr_insc05','large-scale d_tr_insc SCDU','', (/ ('', i=1, 10) /)) 376 375 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 377 type(ctrl_out),save :: o_d_tr_ insc01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &378 'd_tr_ insc01','large-scale d_tr_insc PREC','', (/ ('', i=1, 9) /))379 type(ctrl_out),save :: o_d_tr_ insc02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &380 'd_tr_ insc02','large-scale d_tr_insc FINE','', (/ ('', i=1, 9) /))381 type(ctrl_out),save :: o_d_tr_ insc03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &382 'd_tr_ insc03','large-scale d_tr_insc COSS','', (/ ('', i=1, 9) /))383 type(ctrl_out),save :: o_d_tr_ insc04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &384 'd_tr_ insc04','large-scale d_tr_insc CODU','', (/ ('', i=1, 9) /))385 type(ctrl_out),save :: o_d_tr_ insc05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &386 'd_tr_ insc05','large-scale d_tr_insc SCDU','', (/ ('', i=1, 9) /))376 type(ctrl_out),save :: o_d_tr_bcscav01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 377 'd_tr_bcscav01','large-scale d_tr_bcscav PREC','', (/ ('', i=1, 10) /)) 378 type(ctrl_out),save :: o_d_tr_bcscav02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 379 'd_tr_bcscav02','large-scale d_tr_bcscav FINE','', (/ ('', i=1, 10) /)) 380 type(ctrl_out),save :: o_d_tr_bcscav03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 381 'd_tr_bcscav03','large-scale d_tr_bcscav COSS','', (/ ('', i=1, 10) /)) 382 type(ctrl_out),save :: o_d_tr_bcscav04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 383 'd_tr_bcscav04','large-scale d_tr_bcscav CODU','', (/ ('', i=1, 10) /)) 384 type(ctrl_out),save :: o_d_tr_bcscav05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 385 'd_tr_bcscav05','large-scale d_tr_bcscav SCDU','', (/ ('', i=1, 10) /)) 387 386 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 388 type(ctrl_out),save :: o_d_tr_ bcscav01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &389 'd_tr_ bcscav01','large-scale d_tr_bcscav PREC','', (/ ('', i=1, 9) /))390 type(ctrl_out),save :: o_d_tr_ bcscav02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &391 'd_tr_ bcscav02','large-scale d_tr_bcscav FINE','', (/ ('', i=1, 9) /))392 type(ctrl_out),save :: o_d_tr_ bcscav03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &393 'd_tr_ bcscav03','large-scale d_tr_bcscav COSS','', (/ ('', i=1, 9) /))394 type(ctrl_out),save :: o_d_tr_ bcscav04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &395 'd_tr_ bcscav04','large-scale d_tr_bcscav CODU','', (/ ('', i=1, 9) /))396 type(ctrl_out),save :: o_d_tr_ bcscav05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &397 'd_tr_ bcscav05','large-scale d_tr_bcscav SCDU','', (/ ('', i=1, 9) /))387 type(ctrl_out),save :: o_d_tr_evapls01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 388 'd_tr_evapls01','large-scale d_tr_evapls PREC','', (/ ('', i=1, 10) /)) 389 type(ctrl_out),save :: o_d_tr_evapls02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 390 'd_tr_evapls02','large-scale d_tr_evapls FINE','', (/ ('', i=1, 10) /)) 391 type(ctrl_out),save :: o_d_tr_evapls03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 392 'd_tr_evapls03','large-scale d_tr_evapls COSS','', (/ ('', i=1, 10) /)) 393 type(ctrl_out),save :: o_d_tr_evapls04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 394 'd_tr_evapls04','large-scale d_tr_evapls CODU','', (/ ('', i=1, 10) /)) 395 type(ctrl_out),save :: o_d_tr_evapls05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 396 'd_tr_evapls05','large-scale d_tr_evapls SCDU','', (/ ('', i=1, 10) /)) 398 397 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 399 type(ctrl_out),save :: o_d_tr_ evapls01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &400 'd_tr_ evapls01','large-scale d_tr_evapls PREC','', (/ ('', i=1, 9) /))401 type(ctrl_out),save :: o_d_tr_ evapls02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &402 'd_tr_ evapls02','large-scale d_tr_evapls FINE','', (/ ('', i=1, 9) /))403 type(ctrl_out),save :: o_d_tr_ evapls03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &404 'd_tr_ evapls03','large-scale d_tr_evapls COSS','', (/ ('', i=1, 9) /))405 type(ctrl_out),save :: o_d_tr_ evapls04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &406 'd_tr_ evapls04','large-scale d_tr_evapls CODU','', (/ ('', i=1, 9) /))407 type(ctrl_out),save :: o_d_tr_ evapls05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &408 'd_tr_ evapls05','large-scale d_tr_evapls SCDU','', (/ ('', i=1, 9) /))398 type(ctrl_out),save :: o_d_tr_ls01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 399 'd_tr_ls01','large-scale d_tr_ls PREC','', (/ ('', i=1, 10) /)) 400 type(ctrl_out),save :: o_d_tr_ls02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 401 'd_tr_ls02','large-scale d_tr_ls FINE','', (/ ('', i=1, 10) /)) 402 type(ctrl_out),save :: o_d_tr_ls03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 403 'd_tr_ls03','large-scale d_tr_ls COSS','', (/ ('', i=1, 10) /)) 404 type(ctrl_out),save :: o_d_tr_ls04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 405 'd_tr_ls04','large-scale d_tr_ls CODU','', (/ ('', i=1, 10) /)) 406 type(ctrl_out),save :: o_d_tr_ls05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 407 'd_tr_ls05','large-scale d_tr_ls SCDU','', (/ ('', i=1, 10) /)) 409 408 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 410 type(ctrl_out),save :: o_d_tr_ ls01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &411 'd_tr_ ls01','large-scale d_tr_ls PREC','', (/ ('', i=1, 9) /))412 type(ctrl_out),save :: o_d_tr_ ls02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &413 'd_tr_ ls02','large-scale d_tr_ls FINE','', (/ ('', i=1, 9) /))414 type(ctrl_out),save :: o_d_tr_ ls03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &415 'd_tr_ ls03','large-scale d_tr_ls COSS','', (/ ('', i=1, 9) /))416 type(ctrl_out),save :: o_d_tr_ ls04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &417 'd_tr_ ls04','large-scale d_tr_ls CODU','', (/ ('', i=1, 9) /))418 type(ctrl_out),save :: o_d_tr_ ls05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &419 'd_tr_ ls05','large-scale d_tr_ls SCDU','', (/ ('', i=1, 9) /))409 type(ctrl_out),save :: o_d_tr_dyn01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 410 'd_tr_dyn01','cvltr d_tr_dyn PREC','', (/ ('', i=1, 10) /)) 411 type(ctrl_out),save :: o_d_tr_dyn02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 412 'd_tr_dyn02','cvltr d_tr_dyn FINE','', (/ ('', i=1, 10) /)) 413 type(ctrl_out),save :: o_d_tr_dyn03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 414 'd_tr_dyn03','cvltr d_tr_dyn COSS','', (/ ('', i=1, 10) /)) 415 type(ctrl_out),save :: o_d_tr_dyn04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 416 'd_tr_dyn04','cvltr d_tr_dyn CODU','', (/ ('', i=1, 10) /)) 417 type(ctrl_out),save :: o_d_tr_dyn05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 418 'd_tr_dyn05','cvltr d_tr_dyn SCDU','', (/ ('', i=1, 10) /)) 420 419 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 421 422 420 type(ctrl_out),save :: o_d_tr_cl01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 421 'd_tr_cl01','cvltr d_tr_cl PREC','', (/ ('', i=1, 10) /)) 422 type(ctrl_out),save :: o_d_tr_cl02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 423 'd_tr_cl02','cvltr d_tr_cl FINE','', (/ ('', i=1, 10) /)) 424 type(ctrl_out),save :: o_d_tr_cl03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 425 'd_tr_cl03','cvltr d_tr_cl COSS','', (/ ('', i=1, 10) /)) 426 type(ctrl_out),save :: o_d_tr_cl04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 427 'd_tr_cl04','cvltr d_tr_cl CODU','', (/ ('', i=1, 10) /)) 428 type(ctrl_out),save :: o_d_tr_cl05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 429 'd_tr_cl05','cvltr d_tr_cl SCDU','', (/ ('', i=1, 10) /)) 423 430 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 424 type(ctrl_out),save :: o_d_tr_dyn01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 425 'd_tr_dyn01','cvltr d_tr_dyn PREC','', (/ ('', i=1, 9) /)) 426 type(ctrl_out),save :: o_d_tr_dyn02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 427 'd_tr_dyn02','cvltr d_tr_dyn FINE','', (/ ('', i=1, 9) /)) 428 type(ctrl_out),save :: o_d_tr_dyn03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 429 'd_tr_dyn03','cvltr d_tr_dyn COSS','', (/ ('', i=1, 9) /)) 430 type(ctrl_out),save :: o_d_tr_dyn04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 431 'd_tr_dyn04','cvltr d_tr_dyn CODU','', (/ ('', i=1, 9) /)) 432 type(ctrl_out),save :: o_d_tr_dyn05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 433 'd_tr_dyn05','cvltr d_tr_dyn SCDU','', (/ ('', i=1, 9) /)) 434 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 435 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 436 type(ctrl_out),save :: o_d_tr_cl01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 437 'd_tr_cl01','cvltr d_tr_cl PREC','', (/ ('', i=1, 9) /)) 438 type(ctrl_out),save :: o_d_tr_cl02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 439 'd_tr_cl02','cvltr d_tr_cl FINE','', (/ ('', i=1, 9) /)) 440 type(ctrl_out),save :: o_d_tr_cl03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 441 'd_tr_cl03','cvltr d_tr_cl COSS','', (/ ('', i=1, 9) /)) 442 type(ctrl_out),save :: o_d_tr_cl04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 443 'd_tr_cl04','cvltr d_tr_cl CODU','', (/ ('', i=1, 9) /)) 444 type(ctrl_out),save :: o_d_tr_cl05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 445 'd_tr_cl05','cvltr d_tr_cl SCDU','', (/ ('', i=1, 9) /)) 446 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 447 type(ctrl_out),save :: o_d_tr_th01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 448 'd_tr_th01','cvltr d_tr_th PREC','', (/ ('', i=1, 9) /)) 449 type(ctrl_out),save :: o_d_tr_th02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 450 'd_tr_th02','cvltr d_tr_th FINE','', (/ ('', i=1, 9) /)) 451 type(ctrl_out),save :: o_d_tr_th03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 452 'd_tr_th03','cvltr d_tr_th COSS','', (/ ('', i=1, 9) /)) 453 type(ctrl_out),save :: o_d_tr_th04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 454 'd_tr_th04','cvltr d_tr_th CODU','', (/ ('', i=1, 9) /)) 455 type(ctrl_out),save :: o_d_tr_th05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 456 'd_tr_th05','cvltr d_tr_th SCDU','', (/ ('', i=1, 9) /)) 457 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 458 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 431 type(ctrl_out),save :: o_d_tr_th01 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 432 'd_tr_th01','cvltr d_tr_th PREC','', (/ ('', i=1, 10) /)) 433 type(ctrl_out),save :: o_d_tr_th02 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 434 'd_tr_th02','cvltr d_tr_th FINE','', (/ ('', i=1, 10) /)) 435 type(ctrl_out),save :: o_d_tr_th03 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 436 'd_tr_th03','cvltr d_tr_th COSS','', (/ ('', i=1, 10) /)) 437 type(ctrl_out),save :: o_d_tr_th04 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 438 'd_tr_th04','cvltr d_tr_th CODU','', (/ ('', i=1, 10) /)) 439 type(ctrl_out),save :: o_d_tr_th05 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 440 'd_tr_th05','cvltr d_tr_th SCDU','', (/ ('', i=1, 10) /)) 459 441 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 460 type(ctrl_out),save :: o_sed_ss3D = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &461 'sed_ss3D','Tendance Sedmet. COSS','', (/ ('', i=1, 9) /))462 type(ctrl_out),save :: o_sed_dust3D = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &463 'sed_dust3D','Tendance Sedmet. CODU','', (/ ('', i=1, 9) /))464 type(ctrl_out),save :: o_sed_dustsco3D = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), &465 'sed_dustsco3D','Tendance Sedmet. SCDU','', (/ ('', i=1, 9) /))442 type(ctrl_out),save :: o_sed_ss3D = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 443 'sed_ss3D','Tendance Sedmet. COSS','', (/ ('', i=1, 10) /)) 444 type(ctrl_out),save :: o_sed_dust3D = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 445 'sed_dust3D','Tendance Sedmet. CODU','', (/ ('', i=1, 10) /)) 446 type(ctrl_out),save :: o_sed_dustsco3D = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 447 'sed_dustsco3D','Tendance Sedmet. SCDU','', (/ ('', i=1, 10) /)) 466 448 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 467 468 type(ctrl_out),save :: o_sed_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 469 'sed_ss','Sedmet. COSS','', (/ ('', i=1, 9) /)) 470 type(ctrl_out),save :: o_sed_dust = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 471 'sed_dust','Sedmet. CODU','', (/ ('', i=1, 9) /)) 472 type(ctrl_out),save :: o_sed_dustsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 473 'sed_dustsco','Sedmet. SCDU','', (/ ('', i=1, 9) /)) 474 type(ctrl_out),save :: o_g2p_gas = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 475 'g2p_gas','Gas2particle gas sink','', (/ ('', i=1, 9) /)) 476 type(ctrl_out),save :: o_g2p_aer = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 477 'g2p_aer','Gas2particle tr2 src','', (/ ('', i=1, 9) /)) 478 449 type(ctrl_out),save :: o_sed_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 450 'sed_ss','Sedmet. COSS','', (/ ('', i=1, 10) /)) 451 type(ctrl_out),save :: o_sed_dust = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 452 'sed_dust','Sedmet. CODU','', (/ ('', i=1, 10) /)) 453 type(ctrl_out),save :: o_sed_dustsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 454 'sed_dustsco','Sedmet. SCDU','', (/ ('', i=1, 10) /)) 455 type(ctrl_out),save :: o_g2p_gas = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 456 'g2p_gas','Gas2particle gas sink','', (/ ('', i=1, 10) /)) 457 type(ctrl_out),save :: o_g2p_aer = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 458 'g2p_aer','Gas2particle tr2 src','', (/ ('', i=1, 10) /)) 479 459 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 480 460 ! histrac 481 461 482 type(ctrl_out),save :: o_fluxbb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 483 'fluxbb','Flux BB','mg/m2/s', (/ ('', i=1, 9) /)) 484 485 type(ctrl_out),save :: o_fluxff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 486 'fluxff','Flux FF','mg/m2/s', (/ ('', i=1, 9) /)) 487 488 type(ctrl_out),save :: o_fluxbcbb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 489 'fluxbcbb','Flux BC-BB','mg/m2/s', (/ ('', i=1, 9) /)) 490 491 type(ctrl_out),save :: o_fluxbcff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 492 'fluxbcff','Flux BC-FF','mg/m2/s', (/ ('', i=1, 9) /)) 493 494 type(ctrl_out),save :: o_fluxbcnff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 495 'fluxbcnff','Flux BC-NFF','mg/m2/s', (/ ('', i=1, 9) /)) 496 497 type(ctrl_out),save :: o_fluxbcba = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 498 'fluxbcba','Flux BC-BA','mg/m2/s', (/ ('', i=1, 9) /)) 499 500 type(ctrl_out),save :: o_fluxbc = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 501 'fluxbc','Flux BC','mg/m2/s', (/ ('', i=1, 9) /)) 502 503 type(ctrl_out),save :: o_fluxombb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 504 'fluxombb','Flux OM-BB','mg/m2/s', (/ ('', i=1, 9) /)) 505 506 type(ctrl_out),save :: o_fluxomff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 507 'fluxomff','Flux OM-FF','mg/m2/s', (/ ('', i=1, 9) /)) 508 509 type(ctrl_out),save :: o_fluxomnff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 510 'fluxomnff','Flux OM-NFF','mg/m2/s', (/ ('', i=1, 9) /)) 511 512 type(ctrl_out),save :: o_fluxomba = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 513 'fluxomba','Flux OM-BA','mg/m2/s', (/ ('', i=1, 9) /)) 514 515 type(ctrl_out),save :: o_fluxomnat = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 516 'fluxomnat','Flux OM-NT','mg/m2/s', (/ ('', i=1, 9) /)) 517 518 type(ctrl_out),save :: o_fluxom = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 519 'fluxom','Flux OM','mg/m2/s', (/ ('', i=1, 9) /)) 520 521 type(ctrl_out),save :: o_fluxh2sff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 522 'fluxh2sff','Flux H2S FF','mgS/m2/s', (/ ('', i=1, 9) /)) 523 524 type(ctrl_out),save :: o_fluxh2snff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 525 'fluxh2snff','Flux H2S non-FF','mgS/m2/s', (/ ('', i=1, 9) /)) 526 527 type(ctrl_out),save :: o_fluxso2ff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 528 'fluxso2ff','Flux SO2 FF','mgS/m2/s', (/ ('', i=1, 9) /)) 529 530 type(ctrl_out),save :: o_fluxso2nff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 531 'fluxso2nff','Flux SO2 non-FF','mgS/m2/s', (/ ('', i=1, 9) /)) 532 533 type(ctrl_out),save :: o_fluxso2bb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 534 'fluxso2bb','Flux SO2 BB','mgS/m2/s', (/ ('', i=1, 9) /)) 535 536 type(ctrl_out),save :: o_fluxso2vol = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 537 'fluxso2vol','Flux SO2 Vol','mgS/m2/s', (/ ('', i=1, 9) /)) 538 539 type(ctrl_out),save :: o_fluxso2ba = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 540 'fluxso2ba','Flux SO2 Ba','mgS/m2/s', (/ ('', i=1, 9) /)) 541 542 type(ctrl_out),save :: o_fluxso2 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 543 'fluxso2','Flux SO2','mgS/m2/s', (/ ('', i=1, 9) /)) 544 545 type(ctrl_out),save :: o_fluxso4ff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 546 'fluxso4ff','Flux SO4 FF','mgS/m2/s', (/ ('', i=1, 9) /)) 547 548 type(ctrl_out),save :: o_fluxso4nff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 549 'fluxso4nff','Flux SO4 non-FF','mgS/m2/s', (/ ('', i=1, 9) /)) 550 551 type(ctrl_out),save :: o_fluxso4bb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 552 'fluxso4bb','Flux SO4 BB','mgS/m2/s', (/ ('', i=1, 9) /)) 553 554 type(ctrl_out),save :: o_fluxso4ba = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 555 'fluxso4ba','Flux SO4 Ba','mgS/m2/s', (/ ('', i=1, 9) /)) 556 557 type(ctrl_out),save :: o_fluxso4 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 558 'fluxso4','Flux SO4','mgS/m2/s', (/ ('', i=1, 9) /)) 559 560 type(ctrl_out),save :: o_fluxdms = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 561 'fluxdms','Flux DMS','mgS/m2/s', (/ ('', i=1, 9) /)) 562 563 type(ctrl_out),save :: o_fluxh2sbio = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 564 'fluxh2sbio','Flux H2S Bio','mgS/m2/s', (/ ('', i=1, 9) /)) 565 566 type(ctrl_out),save :: o_fluxdustec = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 567 'fluxdustec','Flux Dust EC','mg/m2/s', (/ ('', i=1, 9) /)) 568 569 type(ctrl_out),save :: o_fluxddfine = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 570 'fluxddfine','DD Fine Mode','mg/m2/s', (/ ('', i=1, 9) /)) 571 572 type(ctrl_out),save :: o_fluxddcoa = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 573 'fluxddcoa','DD Coarse Mode','mg/m2/s', (/ ('', i=1, 9) /)) 574 575 type(ctrl_out),save :: o_fluxddsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 576 'fluxddsco','DD SCoarse Mode','mg/m2/s', (/ ('', i=1, 9) /)) 577 578 type(ctrl_out),save :: o_fluxdd = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 579 'fluxdd','Flux DD','mg/m2/s', (/ ('', i=1, 9) /)) 580 581 type(ctrl_out),save :: o_fluxssfine = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 582 'fluxssfine','SS Fine Mode','mg/m2/s', (/ ('', i=1, 9) /)) 583 584 type(ctrl_out),save :: o_fluxsscoa = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 585 'fluxsscoa','SS Coarse Mode','mg/m2/s', (/ ('', i=1, 9) /)) 586 587 type(ctrl_out),save :: o_fluxss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 588 'fluxss','Flux SS','mg/m2/s', (/ ('', i=1, 9) /)) 589 590 type(ctrl_out),save :: o_flux_sparam_ind = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 591 'flux_sparam_ind','Ind emiss','mg/m2/s', (/ ('', i=1, 9) /)) 592 593 type(ctrl_out),save :: o_flux_sparam_bb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 594 'flux_sparam_bb','BB emiss','mg/m2/s', (/ ('', i=1, 9) /)) 595 596 type(ctrl_out),save :: o_flux_sparam_ff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 597 'flux_sparam_ff','FF emiss','mg/m2/s', (/ ('', i=1, 9) /)) 598 599 type(ctrl_out),save :: o_flux_sparam_ddfine = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 600 'flux_sparam_ddfine','DD fine emiss','mg/m2/s', (/ ('', i=1, 9) /)) 601 602 type(ctrl_out),save :: o_flux_sparam_ddcoa = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 603 'flux_sparam_ddcoa','DD coarse emiss','mg/m2/s', (/ ('', i=1, 9) /)) 604 605 type(ctrl_out),save :: o_flux_sparam_ddsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 606 'flux_sparam_ddsco','DD Scoarse emiss','mg/m2/s', (/ ('', i=1, 9) /)) 607 608 type(ctrl_out),save :: o_flux_sparam_ssfine = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 609 'flux_sparam_ssfine','SS fine emiss','mg/m2/s', (/ ('', i=1, 9) /)) 610 611 612 type(ctrl_out),save :: o_flux_sparam_sscoa = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 613 'flux_sparam_sscoa','SS coarse emiss','mg/m2/s', (/ ('', i=1, 9) /)) 614 615 type(ctrl_out),save :: o_u10m_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 616 'u10m_ss','Zonal wind at 10 m SS','m/s', (/ ('', i=1, 9) /)) 617 618 type(ctrl_out),save :: o_v10m_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 619 'v10m_ss','Meridional wind at 10 m SS','m/s', (/ ('', i=1, 9) /)) 620 621 622 ! type(ctrl_out),save :: o_ = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10 /), & 623 ! '','','', (/ ('', i=1, 9) /)) 624 625 626 627 !example TYPE(ctrl_out), SAVE :: o_psbg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), & 462 type(ctrl_out),save :: o_fluxbb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 463 'fluxbb','Flux BB','mg/m2/s', (/ ('', i=1, 10) /)) 464 465 type(ctrl_out),save :: o_fluxff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 466 'fluxff','Flux FF','mg/m2/s', (/ ('', i=1, 10) /)) 467 468 type(ctrl_out),save :: o_fluxbcbb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 469 'fluxbcbb','Flux BC-BB','mg/m2/s', (/ ('', i=1, 10) /)) 470 471 type(ctrl_out),save :: o_fluxbcff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 472 'fluxbcff','Flux BC-FF','mg/m2/s', (/ ('', i=1, 10) /)) 473 474 type(ctrl_out),save :: o_fluxbcnff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 475 'fluxbcnff','Flux BC-NFF','mg/m2/s', (/ ('', i=1, 10) /)) 476 477 type(ctrl_out),save :: o_fluxbcba = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 478 'fluxbcba','Flux BC-BA','mg/m2/s', (/ ('', i=1, 10) /)) 479 480 type(ctrl_out),save :: o_fluxbc = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 481 'fluxbc','Flux BC','mg/m2/s', (/ ('', i=1, 10) /)) 482 483 type(ctrl_out),save :: o_fluxombb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 484 'fluxombb','Flux OM-BB','mg/m2/s', (/ ('', i=1, 10) /)) 485 486 type(ctrl_out),save :: o_fluxomff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 487 'fluxomff','Flux OM-FF','mg/m2/s', (/ ('', i=1, 10) /)) 488 489 type(ctrl_out),save :: o_fluxomnff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 490 'fluxomnff','Flux OM-NFF','mg/m2/s', (/ ('', i=1, 10) /)) 491 492 type(ctrl_out),save :: o_fluxomba = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 493 'fluxomba','Flux OM-BA','mg/m2/s', (/ ('', i=1, 10) /)) 494 495 type(ctrl_out),save :: o_fluxomnat = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 496 'fluxomnat','Flux OM-NT','mg/m2/s', (/ ('', i=1, 10) /)) 497 498 type(ctrl_out),save :: o_fluxom = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 499 'fluxom','Flux OM','mg/m2/s', (/ ('', i=1, 10) /)) 500 501 type(ctrl_out),save :: o_fluxh2sff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 502 'fluxh2sff','Flux H2S FF','mgS/m2/s', (/ ('', i=1, 10) /)) 503 504 type(ctrl_out),save :: o_fluxh2snff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 505 'fluxh2snff','Flux H2S non-FF','mgS/m2/s', (/ ('', i=1, 10) /)) 506 507 type(ctrl_out),save :: o_fluxso2ff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 508 'fluxso2ff','Flux SO2 FF','mgS/m2/s', (/ ('', i=1, 10) /)) 509 510 type(ctrl_out),save :: o_fluxso2nff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 511 'fluxso2nff','Flux SO2 non-FF','mgS/m2/s', (/ ('', i=1, 10) /)) 512 513 type(ctrl_out),save :: o_fluxso2bb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 514 'fluxso2bb','Flux SO2 BB','mgS/m2/s', (/ ('', i=1, 10) /)) 515 516 type(ctrl_out),save :: o_fluxso2vol = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 517 'fluxso2vol','Flux SO2 Vol','mgS/m2/s', (/ ('', i=1, 10) /)) 518 519 type(ctrl_out),save :: o_fluxso2ba = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 520 'fluxso2ba','Flux SO2 Ba','mgS/m2/s', (/ ('', i=1, 10) /)) 521 522 type(ctrl_out),save :: o_fluxso2 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 523 'fluxso2','Flux SO2','mgS/m2/s', (/ ('', i=1, 10) /)) 524 525 type(ctrl_out),save :: o_fluxso4ff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 526 'fluxso4ff','Flux SO4 FF','mgS/m2/s', (/ ('', i=1, 10) /)) 527 528 type(ctrl_out),save :: o_fluxso4nff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 529 'fluxso4nff','Flux SO4 non-FF','mgS/m2/s', (/ ('', i=1, 10) /)) 530 531 type(ctrl_out),save :: o_fluxso4bb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 532 'fluxso4bb','Flux SO4 BB','mgS/m2/s', (/ ('', i=1, 10) /)) 533 534 type(ctrl_out),save :: o_fluxso4ba = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 535 'fluxso4ba','Flux SO4 Ba','mgS/m2/s', (/ ('', i=1, 10) /)) 536 537 type(ctrl_out),save :: o_fluxso4 = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 538 'fluxso4','Flux SO4','mgS/m2/s', (/ ('', i=1, 10) /)) 539 540 type(ctrl_out),save :: o_fluxdms = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 541 'fluxdms','Flux DMS','mgS/m2/s', (/ ('', i=1, 10) /)) 542 543 type(ctrl_out),save :: o_fluxh2sbio = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 544 'fluxh2sbio','Flux H2S Bio','mgS/m2/s', (/ ('', i=1, 10) /)) 545 546 type(ctrl_out),save :: o_fluxdustec = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 547 'fluxdustec','Flux Dust EC','mg/m2/s', (/ ('', i=1, 10) /)) 548 549 type(ctrl_out),save :: o_fluxddfine = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 550 'fluxddfine','DD Fine Mode','mg/m2/s', (/ ('', i=1, 10) /)) 551 552 type(ctrl_out),save :: o_fluxddcoa = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 553 'fluxddcoa','DD Coarse Mode','mg/m2/s', (/ ('', i=1, 10) /)) 554 555 type(ctrl_out),save :: o_fluxddsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 556 'fluxddsco','DD SCoarse Mode','mg/m2/s', (/ ('', i=1, 10) /)) 557 558 type(ctrl_out),save :: o_fluxdd = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 559 'fluxdd','Flux DD','mg/m2/s', (/ ('', i=1, 10) /)) 560 561 type(ctrl_out),save :: o_fluxssfine = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 562 'fluxssfine','SS Fine Mode','mg/m2/s', (/ ('', i=1, 10) /)) 563 564 type(ctrl_out),save :: o_fluxsscoa = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 565 'fluxsscoa','SS Coarse Mode','mg/m2/s', (/ ('', i=1, 10) /)) 566 567 type(ctrl_out),save :: o_fluxss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 568 'fluxss','Flux SS','mg/m2/s', (/ ('', i=1, 10) /)) 569 570 type(ctrl_out),save :: o_flux_sparam_ind = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 571 'flux_sparam_ind','Ind emiss','mg/m2/s', (/ ('', i=1, 10) /)) 572 573 type(ctrl_out),save :: o_flux_sparam_bb = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 574 'flux_sparam_bb','BB emiss','mg/m2/s', (/ ('', i=1, 10) /)) 575 576 type(ctrl_out),save :: o_flux_sparam_ff = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 577 'flux_sparam_ff','FF emiss','mg/m2/s', (/ ('', i=1, 10) /)) 578 579 type(ctrl_out),save :: o_flux_sparam_ddfine = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 580 'flux_sparam_ddfine','DD fine emiss','mg/m2/s', (/ ('', i=1, 10) /)) 581 582 type(ctrl_out),save :: o_flux_sparam_ddcoa = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 583 'flux_sparam_ddcoa','DD coarse emiss','mg/m2/s', (/ ('', i=1, 10) /)) 584 585 type(ctrl_out),save :: o_flux_sparam_ddsco = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 586 'flux_sparam_ddsco','DD Scoarse emiss','mg/m2/s', (/ ('', i=1, 10) /)) 587 588 type(ctrl_out),save :: o_flux_sparam_ssfine = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 589 'flux_sparam_ssfine','SS fine emiss','mg/m2/s', (/ ('', i=1, 10) /)) 590 591 type(ctrl_out),save :: o_flux_sparam_sscoa = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 592 'flux_sparam_sscoa','SS coarse emiss','mg/m2/s', (/ ('', i=1, 10) /)) 593 594 type(ctrl_out),save :: o_u10m_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 595 'u10m_ss','Zonal wind at 10 m SS','m/s', (/ ('', i=1, 10) /)) 596 597 type(ctrl_out),save :: o_v10m_ss = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 598 'v10m_ss','Meridional wind at 10 m SS','m/s', (/ ('', i=1, 10) /)) 599 600 ! type(ctrl_out),save :: o_ = ctrl_out((/ 4, 4, 4, 10, 10, 10, 10, 10, 10, 10 /), & 601 ! '','','', (/ ('', i=1, 10) /)) 602 603 !example TYPE(ctrl_out), SAVE :: o_psbg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11 /), & 628 604 ! 'psbg', 'Pressure sfce below ground', '%', (/ "inst(X)", "inst(X)", "inst(X)", & 629 ! "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 630 631 632 605 ! "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) -
LMDZ5/trunk/libf/phylmd/Dust/spla_output_write.h
r2630 r2752 6 6 ! traceur 7 7 8 CALL histwrite_phy( o_taue550 , diff_aod550_tot 9 CALL histwrite_phy( o_taue670 , diag_aod670_tot 8 CALL histwrite_phy( o_taue550 , diff_aod550_tot ) 9 CALL histwrite_phy( o_taue670 , diag_aod670_tot ) 10 10 CALL histwrite_phy( o_taue865 , diag_aod865_tot ) 11 11 IF(id_fine>0) CALL histwrite_phy( o_taue550_tr2 , diff_aod550_tr2 ) 12 IF(id_fine>0) CALL histwrite_phy( o_taue670_tr2 , diag_aod670_tr2 12 IF(id_fine>0) CALL histwrite_phy( o_taue670_tr2 , diag_aod670_tr2 ) 13 13 IF(id_fine>0) CALL histwrite_phy( o_taue865_tr2 , diag_aod865_tr2 ) 14 IF(id_coss>0) CALL histwrite_phy( o_taue550_ss , diag_aod550_ss 14 IF(id_coss>0) CALL histwrite_phy( o_taue550_ss , diag_aod550_ss ) 15 15 IF(id_coss>0) CALL histwrite_phy( o_taue670_ss , diag_aod670_ss ) 16 IF(id_coss>0) CALL histwrite_phy( o_taue865_ss , diag_aod865_ss 17 IF(id_codu>0) CALL histwrite_phy( o_taue550_dust , diag_aod550_dust 16 IF(id_coss>0) CALL histwrite_phy( o_taue865_ss , diag_aod865_ss ) 17 IF(id_codu>0) CALL histwrite_phy( o_taue550_dust , diag_aod550_dust ) 18 18 IF(id_codu>0) CALL histwrite_phy( o_taue670_dust , diag_aod670_dust ) 19 19 IF(id_codu>0) CALL histwrite_phy( o_taue865_dust , diag_aod865_dust ) … … 22 22 IF(id_scdu>0) CALL histwrite_phy( o_taue865_dustsco , diag_aod865_dustsco ) 23 23 CALL histwrite_phy( o_taue550_aqua , aod550_aqua ) 24 CALL histwrite_phy( o_taue550_terra , aod550_terra 25 CALL histwrite_phy( o_taue670_aqua , aod670_aqua 26 CALL histwrite_phy( o_taue670_terra , aod670_terra 27 CALL histwrite_phy( o_taue865_aqua , aod865_aqua 28 CALL histwrite_phy( o_taue865_terra , aod865_terra 24 CALL histwrite_phy( o_taue550_terra , aod550_terra ) 25 CALL histwrite_phy( o_taue670_aqua , aod670_aqua ) 26 CALL histwrite_phy( o_taue670_terra , aod670_terra ) 27 CALL histwrite_phy( o_taue865_aqua , aod865_aqua ) 28 CALL histwrite_phy( o_taue865_terra , aod865_terra ) 29 29 30 30 IF(id_fine>0) CALL histwrite_phy( o_taue550_fine_aqua ,aod550_tr2_aqua ) 31 31 IF(id_fine>0) CALL histwrite_phy( o_taue670_fine_aqua ,aod670_tr2_aqua ) 32 32 IF(id_fine>0) CALL histwrite_phy( o_taue865_fine_aqua ,aod865_tr2_aqua ) 33 IF(id_coss>0) CALL histwrite_phy( o_taue550_coss_aqua ,aod550_ss_aqua 34 IF(id_coss>0) CALL histwrite_phy( o_taue670_coss_aqua ,aod670_ss_aqua 35 IF(id_coss>0) CALL histwrite_phy( o_taue865_coss_aqua ,aod865_ss_aqua 36 IF(id_codu>0) CALL histwrite_phy( o_taue550_codu_aqua ,aod550_dust_aqua 37 IF(id_codu>0) CALL histwrite_phy( o_taue670_codu_aqua ,aod670_dust_aqua 38 IF(id_codu>0) CALL histwrite_phy( o_taue865_codu_aqua ,aod865_dust_aqua 39 IF(id_scdu>0) CALL histwrite_phy( o_taue670_scdu_aqua ,aod670_dustsco_aqua 40 IF(id_scdu>0) CALL histwrite_phy( o_taue550_scdu_aqua ,aod550_dustsco_aqua 41 IF(id_scdu>0) CALL histwrite_phy( o_taue865_scdu_aqua ,aod865_dustsco_aqua 33 IF(id_coss>0) CALL histwrite_phy( o_taue550_coss_aqua ,aod550_ss_aqua ) 34 IF(id_coss>0) CALL histwrite_phy( o_taue670_coss_aqua ,aod670_ss_aqua ) 35 IF(id_coss>0) CALL histwrite_phy( o_taue865_coss_aqua ,aod865_ss_aqua ) 36 IF(id_codu>0) CALL histwrite_phy( o_taue550_codu_aqua ,aod550_dust_aqua ) 37 IF(id_codu>0) CALL histwrite_phy( o_taue670_codu_aqua ,aod670_dust_aqua ) 38 IF(id_codu>0) CALL histwrite_phy( o_taue865_codu_aqua ,aod865_dust_aqua ) 39 IF(id_scdu>0) CALL histwrite_phy( o_taue670_scdu_aqua ,aod670_dustsco_aqua ) 40 IF(id_scdu>0) CALL histwrite_phy( o_taue550_scdu_aqua ,aod550_dustsco_aqua ) 41 IF(id_scdu>0) CALL histwrite_phy( o_taue865_scdu_aqua ,aod865_dustsco_aqua ) 42 42 43 43 IF(id_fine>0) CALL histwrite_phy( o_taue550_fine_terra ,aod550_tr2_terra ) 44 44 IF(id_fine>0) CALL histwrite_phy( o_taue670_fine_terra ,aod670_tr2_terra ) 45 45 IF(id_fine>0) CALL histwrite_phy( o_taue865_fine_terra ,aod865_tr2_terra ) 46 IF(id_coss>0) CALL histwrite_phy( o_taue550_coss_terra ,aod550_ss_terra 47 IF(id_coss>0) CALL histwrite_phy( o_taue670_coss_terra ,aod670_ss_terra 48 IF(id_coss>0) CALL histwrite_phy( o_taue865_coss_terra ,aod865_ss_terra 49 IF(id_codu>0) CALL histwrite_phy( o_taue550_codu_terra ,aod550_dust_terra 50 IF(id_codu>0) CALL histwrite_phy( o_taue670_codu_terra ,aod670_dust_terra 51 IF(id_codu>0) CALL histwrite_phy( o_taue865_codu_terra ,aod865_dust_terra 52 IF(id_scdu>0) CALL histwrite_phy( o_taue670_scdu_terra ,aod670_dustsco_terra 53 IF(id_scdu>0) CALL histwrite_phy( o_taue550_scdu_terra ,aod550_dustsco_terra 54 IF(id_scdu>0) CALL histwrite_phy( o_taue865_scdu_terra ,aod865_dustsco_terra 46 IF(id_coss>0) CALL histwrite_phy( o_taue550_coss_terra ,aod550_ss_terra ) 47 IF(id_coss>0) CALL histwrite_phy( o_taue670_coss_terra ,aod670_ss_terra ) 48 IF(id_coss>0) CALL histwrite_phy( o_taue865_coss_terra ,aod865_ss_terra ) 49 IF(id_codu>0) CALL histwrite_phy( o_taue550_codu_terra ,aod550_dust_terra ) 50 IF(id_codu>0) CALL histwrite_phy( o_taue670_codu_terra ,aod670_dust_terra ) 51 IF(id_codu>0) CALL histwrite_phy( o_taue865_codu_terra ,aod865_dust_terra ) 52 IF(id_scdu>0) CALL histwrite_phy( o_taue670_scdu_terra ,aod670_dustsco_terra ) 53 IF(id_scdu>0) CALL histwrite_phy( o_taue550_scdu_terra ,aod550_dustsco_terra ) 54 IF(id_scdu>0) CALL histwrite_phy( o_taue865_scdu_terra ,aod865_dustsco_terra ) 55 55 56 56 … … 133 133 IF(id_codu>0) CALL histwrite_phy( o_d_tr_uscav04 , d_tr_uscav04 ) 134 134 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_uscav05 , d_tr_uscav05 ) 135 IF(id_prec>0) CALL histwrite_phy( o_d_tr_insc01 , d_tr_insc01 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!135 IF(id_prec>0) CALL histwrite_phy( o_d_tr_insc01 , d_tr_insc01 ) 136 136 IF(id_fine>0) CALL histwrite_phy( o_d_tr_insc02 , d_tr_insc02 ) 137 137 IF(id_coss>0) CALL histwrite_phy( o_d_tr_insc03 , d_tr_insc03 ) … … 152 152 IF(id_coss>0) CALL histwrite_phy( o_d_tr_ls03 , d_tr_ls03 ) 153 153 IF(id_codu>0) CALL histwrite_phy( o_d_tr_ls04 , d_tr_ls04 ) 154 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_ls05 , d_tr_ls05 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 155 154 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_ls05 , d_tr_ls05 ) 156 155 157 156 IF(id_prec>0) CALL histwrite_phy( o_d_tr_dyn01 , d_tr_dyn01 ) … … 159 158 IF(id_coss>0) CALL histwrite_phy( o_d_tr_dyn03 , d_tr_dyn03 ) 160 159 IF(id_codu>0) CALL histwrite_phy( o_d_tr_dyn04 , d_tr_dyn04 ) 161 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_dyn05 , d_tr_dyn05 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!160 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_dyn05 , d_tr_dyn05 ) 162 161 163 162 IF(id_prec>0) CALL histwrite_phy( o_d_tr_cl01 , d_tr_cl01 ) … … 165 164 IF(id_coss>0) CALL histwrite_phy( o_d_tr_cl03 , d_tr_cl03 ) 166 165 IF(id_codu>0) CALL histwrite_phy( o_d_tr_cl04 , d_tr_cl04 ) 167 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cl05 , d_tr_cl05 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!166 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cl05 , d_tr_cl05 ) 168 167 IF(id_prec>0) CALL histwrite_phy( o_d_tr_th01 , d_tr_th01 ) 169 168 IF(id_fine>0) CALL histwrite_phy( o_d_tr_th02 , d_tr_th02 ) 170 169 IF(id_coss>0) CALL histwrite_phy( o_d_tr_th03 , d_tr_th03 ) 171 170 IF(id_codu>0) CALL histwrite_phy( o_d_tr_th04 , d_tr_th04 ) 172 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_th05 , d_tr_th05 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 173 171 IF(id_scdu>0) CALL histwrite_phy( o_d_tr_th05 , d_tr_th05 ) 174 172 175 173 IF(id_coss>0) CALL histwrite_phy( o_sed_ss , sed_ss) … … 232 230 CALL histwrite_phy( o_u10m_ss , u10m_ss ) 233 231 CALL histwrite_phy( o_v10m_ss , v10m_ss ) 234 235 ! CALL histwrite_phy( ,)236 !237 238 239 240 -
LMDZ5/trunk/libf/phylmd/StratAer/aer_sedimnt.F90
r2690 r2752 14 14 !----------------------------------------------------------------------- 15 15 16 USE phys_local_var_mod, ONLY: mdw, sfluxaer, DENSO4, f_r_wet, vsed_aer16 USE phys_local_var_mod, ONLY: mdw, budg_sed_part, DENSO4, f_r_wet, vsed_aer 17 17 USE dimphy, ONLY : klon,klev 18 18 USE infotrac … … 106 106 !---ZAERONWM1 now contains the surface concentration at the new timestep 107 107 !---PFLUXAER in unit of xx m-2 s-1 108 sfluxaer(:)=0.0108 budg_sed_part(:)=0.0 109 109 DO JL=1,klon 110 110 ZRHO=pplay(JL,1)/(RD*t_seri(JL,1)) 111 111 DO nb=1,nbtr_bin 112 !compute sfluxaeras sum over bins in kg(S)/m2/s113 sfluxaer(JL)=sfluxaer(JL)+ZRHO*ZAERONWM1(JL,nb)*ZVAER(JL,1,nb)*(mSatom/mH2SO4mol) &112 !compute budg_sed_part as sum over bins in kg(S)/m2/s 113 budg_sed_part(JL)=budg_sed_part(JL)+ZRHO*ZAERONWM1(JL,nb)*ZVAER(JL,1,nb)*(mSatom/mH2SO4mol) & 114 114 & *dens_aer_dry*4./3.*RPI*(mdw(nb)/2.)**3 115 115 ENDDO -
LMDZ5/trunk/libf/phylmd/StratAer/aerophys.F90
r2690 r2752 6 6 REAL,PARAMETER :: dens_aer_dry=1848.682308 ! dry aerosol particle mass density at T_0=293K[kg/m3] 7 7 REAL,PARAMETER :: dens_aer_ref=1483.905336 ! aerosol particle mass density with 75% H2SO4 at T_0=293K[kg/m3] 8 REAL,PARAMETER :: mdwmin=0.002e-6 ! dry diameter of smallest aerosol particles [m] 8 ! REAL,PARAMETER :: mdwmin=0.002e-6 ! dry diameter of smallest aerosol particles [m] 9 REAL,PARAMETER :: mdwmin=0.2e-6 ! dry diameter of smallest aerosol particles [m] !--testing 9 10 REAL,PARAMETER :: V_rat=2.0 ! volume ratio of neighboring size bins 10 11 REAL,PARAMETER :: mfrac_H2SO4=0.75 ! default mass fraction of H2SO4 in the aerosol -
LMDZ5/trunk/libf/phylmd/StratAer/interp_sulf_input.F90
r2704 r2752 8 8 USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root 9 9 USE mod_phys_lmdz_omp_data, ONLY : is_omp_root 10 USE phys_local_var_mod, ONLY : OCS_backgr_tend, SO2_backgr_tend10 USE phys_local_var_mod, ONLY : budg_3D_backgr_ocs, budg_3D_backgr_so2 11 11 USE phys_local_var_mod, ONLY : OCS_lifetime, SO2_lifetime 12 12 USE mod_phys_lmdz_para … … 34 34 REAL OCS_tmp, SO2_tmp 35 35 INTEGER, SAVE :: mth_pre 36 !$OMP THREADPRIVATE(mth_pre) 36 37 37 38 ! Champs reconstitues … … 244 245 tr_seri(i,k,id_SO2_strat)=SO2_clim(i,k) 245 246 ENDIF 246 OCS_backgr_tend(i,k)=tr_seri(i,k,id_OCS_strat)-OCS_tmp247 SO2_backgr_tend(i,k)=tr_seri(i,k,id_SO2_strat)-SO2_tmp247 budg_3D_backgr_ocs(i,k)=tr_seri(i,k,id_OCS_strat)-OCS_tmp 248 budg_3D_backgr_so2(i,k)=tr_seri(i,k,id_SO2_strat)-SO2_tmp 248 249 ENDDO 249 250 ENDDO … … 252 253 DO i=1, klon 253 254 DO k=1, klev 254 SO2_backgr_tend(i,k)=SO2_backgr_tend(i,k)*mSatom/mSO2mol*(paprs(i,k)-paprs(i,k+1))/RG/pdtphys255 OCS_backgr_tend(i,k)=OCS_backgr_tend(i,k)*mSatom/mOCSmol*(paprs(i,k)-paprs(i,k+1))/RG/pdtphys255 budg_3D_backgr_ocs(i,k)=budg_3D_backgr_ocs(i,k)*mSatom/mOCSmol*(paprs(i,k)-paprs(i,k+1))/RG/pdtphys 256 budg_3D_backgr_so2(i,k)=budg_3D_backgr_so2(i,k)*mSatom/mSO2mol*(paprs(i,k)-paprs(i,k+1))/RG/pdtphys 256 257 ENDDO 257 258 ENDDO -
LMDZ5/trunk/libf/phylmd/StratAer/micphy_tstep.F90
r2695 r2752 4 4 USE aerophys 5 5 USE infotrac 6 USE phys_local_var_mod, ONLY: mdw, sulf_nucl, sulf_cond_evap, R2SO4, DENSO4, f_r_wet6 USE phys_local_var_mod, ONLY: mdw, budg_3D_nucl, budg_3D_cond_evap, R2SO4, DENSO4, f_r_wet 7 7 USE nucleation_tstep_mod 8 8 USE cond_evap_tstep_mod … … 68 68 IF (is_strato(ilon,ilev)) THEN 69 69 ! initialize sulfur fluxes 70 sulf_nucl(ilon,ilev)=0.071 sulf_cond_evap(ilon,ilev)=0.070 budg_3D_nucl(ilon,ilev)=0.0 71 budg_3D_cond_evap(ilon,ilev)=0.0 72 72 H2SO4_init=tr_seri(ilon,ilev,id_H2SO4_strat) 73 73 ! adaptive timestep for nucleation and condensation … … 109 109 CALL nucleation_part(nucl_rate,ntot,x,dt,Vbin,tr_seri(ilon,ilev,:)) 110 110 ! compute fluxes as diagnostic in [kg(S)/m2/layer/s] (now - for evap and + for cond) 111 sulf_cond_evap(ilon,ilev)=sulf_cond_evap(ilon,ilev)+mSatom/mH2SO4mol &111 budg_3D_cond_evap(ilon,ilev)=budg_3D_cond_evap(ilon,ilev)+mSatom/mH2SO4mol & 112 112 & *cond_evap_rate*(paprs(ilon,ilev)-paprs(ilon,ilev+1))/RG*dt/pdtphys 113 sulf_nucl(ilon,ilev)=sulf_nucl(ilon,ilev)+mSatom/mH2SO4mol &113 budg_3D_nucl(ilon,ilev)=budg_3D_nucl(ilon,ilev)+mSatom/mH2SO4mol & 114 114 & *nucl_rate*(paprs(ilon,ilev)-paprs(ilon,ilev+1))/RG*dt/pdtphys 115 115 ! update time step … … 139 139 CALL cond_evap_part(pdtphys,FL,ASO4,f_r_wet(ilon,ilev),RRSI,Vbin,tr_seri(ilon,ilev,:)) 140 140 ! compute fluxes as diagnostic in [kg(S)/m2/layer/s] (now - for evap and + for cond) 141 sulf_cond_evap(ilon,ilev)=sulf_cond_evap(ilon,ilev)+mSatom/mH2SO4mol &141 budg_3D_cond_evap(ilon,ilev)=budg_3D_cond_evap(ilon,ilev)+mSatom/mH2SO4mol & 142 142 & *evap_rate*(paprs(ilon,ilev)-paprs(ilon,ilev+1))/RG 143 143 ENDIF -
LMDZ5/trunk/libf/phylmd/StratAer/ocs_to_so2.F90
r2695 r2752 1 SUBROUTINE ocs_to_so2(pdtphys,tr_seri,t_seri,pplay,paprs, sh,is_strato)1 SUBROUTINE ocs_to_so2(pdtphys,tr_seri,t_seri,pplay,paprs,is_strato) 2 2 3 3 USE dimphy, ONLY : klon,klev … … 5 5 USE infotrac 6 6 USE YOMCST, ONLY : RG 7 USE phys_local_var_mod, ONLY : OCS_lifetime, ocs_convert7 USE phys_local_var_mod, ONLY : OCS_lifetime, budg_3D_ocs_to_so2, budg_ocs_to_so2 8 8 9 9 IMPLICIT NONE … … 16 16 REAL,DIMENSION(klon,klev),INTENT(IN) :: pplay ! pression pour le mileu de chaque couche (en Pa) 17 17 REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs ! pression pour chaque inter-couche (en Pa) 18 REAL,DIMENSION(klon,klev),INTENT(IN) :: sh ! humidite specifique19 18 LOGICAL,DIMENSION(klon,klev),INTENT(IN) :: is_strato 20 19 … … 23 22 24 23 !--convert OCS to SO2 25 ocs_convert(:,:)=0.0 24 budg_3D_ocs_to_so2(:,:)=0.0 25 budg_ocs_to_so2(:)=0.0 26 26 27 DO ilon=1, klon 27 28 DO ilev=1, klev … … 29 30 IF (is_strato(ilon,ilev)) THEN 30 31 IF (OCS_lifetime(ilon,ilev).GT.0.0) THEN 31 ocs_convert(ilon,ilev)=tr_seri(ilon,ilev,id_OCS_strat)*(1.0-exp(-pdtphys/OCS_lifetime(ilon,ilev)))32 budg_3D_ocs_to_so2(ilon,ilev)=tr_seri(ilon,ilev,id_OCS_strat)*(1.0-exp(-pdtphys/OCS_lifetime(ilon,ilev))) 32 33 ENDIF 33 tr_seri(ilon,ilev,id_OCS_strat)=tr_seri(ilon,ilev,id_OCS_strat) - ocs_convert(ilon,ilev) 34 tr_seri(ilon,ilev,id_SO2_strat)=tr_seri(ilon,ilev,id_SO2_strat) + mSO2mol/mOCSmol*ocs_convert(ilon,ilev) 35 !convert ocs_convert from kg(OCS)/kgA to kg(S)/m2/layer/s for saving as diagnostic 36 ocs_convert(ilon,ilev)=ocs_convert(ilon,ilev)*mSatom/mOCSmol*(paprs(ilon,ilev)-paprs(ilon,ilev+1))/RG/pdtphys 34 tr_seri(ilon,ilev,id_OCS_strat)=tr_seri(ilon,ilev,id_OCS_strat) - budg_3D_ocs_to_so2(ilon,ilev) 35 tr_seri(ilon,ilev,id_SO2_strat)=tr_seri(ilon,ilev,id_SO2_strat) + mSO2mol/mOCSmol*budg_3D_ocs_to_so2(ilon,ilev) 36 !convert budget from kg(OCS)/kgA to kg(S)/m2/layer/s for saving as diagnostic 37 budg_3D_ocs_to_so2(ilon,ilev)=budg_3D_ocs_to_so2(ilon,ilev)*mSatom/mOCSmol*(paprs(ilon,ilev)-paprs(ilon,ilev+1))/RG/pdtphys 38 budg_ocs_to_so2(ilon)=budg_ocs_to_so2(ilon)+budg_3D_ocs_to_so2(ilon,ilev) 37 39 ENDIF 38 40 ENDDO -
LMDZ5/trunk/libf/phylmd/StratAer/so2_to_h2so4.F90
r2695 r2752 1 SUBROUTINE SO2_TO_H2SO4(pdtphys,tr_seri,t_seri,pplay,paprs, sh,is_strato)1 SUBROUTINE SO2_TO_H2SO4(pdtphys,tr_seri,t_seri,pplay,paprs,is_strato) 2 2 3 3 USE dimphy, ONLY : klon,klev … … 5 5 USE infotrac 6 6 USE YOMCST, ONLY : RG 7 USE phys_local_var_mod, ONLY : SO2_lifetime, sulf_convert7 USE phys_local_var_mod, ONLY : SO2_lifetime, budg_3D_so2_to_h2so4, budg_so2_to_h2so4 8 8 9 9 IMPLICIT NONE … … 17 17 REAL,DIMENSION(klon,klev),INTENT(IN) :: pplay ! pression pour le mileu de chaque couche (en Pa) 18 18 REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs ! pression pour chaque inter-couche (en Pa) 19 REAL,DIMENSION(klon,klev),INTENT(IN) :: sh ! humidite specifique20 19 LOGICAL,DIMENSION(klon,klev),INTENT(IN) :: is_strato ! stratospheric flag 21 20 … … 24 23 25 24 !--convert SO2 to H2SO4 26 sulf_convert(:,:)=0.0 25 budg_3D_so2_to_h2so4(:,:)=0.0 26 budg_so2_to_h2so4(:)=0.0 27 27 28 DO ilon=1, klon 28 29 DO ilev=1, klev … … 30 31 IF (is_strato(ilon,ilev)) THEN 31 32 IF (SO2_lifetime(ilon,ilev).GT.0.0) THEN 32 sulf_convert(ilon,ilev)=tr_seri(ilon,ilev,id_SO2_strat)*(1.0-exp(-pdtphys/SO2_lifetime(ilon,ilev)))33 budg_3D_so2_to_h2so4(ilon,ilev)=tr_seri(ilon,ilev,id_SO2_strat)*(1.0-exp(-pdtphys/SO2_lifetime(ilon,ilev))) 33 34 ENDIF 34 tr_seri(ilon,ilev,id_SO2_strat)=tr_seri(ilon,ilev,id_SO2_strat) - sulf_convert(ilon,ilev) 35 tr_seri(ilon,ilev,id_H2SO4_strat)=tr_seri(ilon,ilev,id_H2SO4_strat) + mH2SO4mol/mSO2mol*sulf_convert(ilon,ilev) 36 !convert sulf_convert from kg(SO2)/kgA to kg(S)/m2/layer/s for saving as diagnostic 37 sulf_convert(ilon,ilev)=sulf_convert(ilon,ilev)*mSatom/mSO2mol*(paprs(ilon,ilev)-paprs(ilon,ilev+1))/RG/pdtphys 35 tr_seri(ilon,ilev,id_SO2_strat)=tr_seri(ilon,ilev,id_SO2_strat) - budg_3D_so2_to_h2so4(ilon,ilev) 36 tr_seri(ilon,ilev,id_H2SO4_strat)=tr_seri(ilon,ilev,id_H2SO4_strat) + mH2SO4mol/mSO2mol*budg_3D_so2_to_h2so4(ilon,ilev) 37 !convert budget from kg(SO2)/kgA to kg(S)/m2/layer/s for saving as diagnostic 38 budg_3D_so2_to_h2so4(ilon,ilev)=budg_3D_so2_to_h2so4(ilon,ilev)*mSatom/mSO2mol*(paprs(ilon,ilev)-paprs(ilon,ilev+1))/RG/pdtphys 39 budg_so2_to_h2so4(ilon)=budg_so2_to_h2so4(ilon)+budg_3D_so2_to_h2so4(ilon,ilev) 38 40 ENDIF 39 41 ENDDO -
LMDZ5/trunk/libf/phylmd/StratAer/traccoag_mod.F90
r2704 r2752 8 8 SUBROUTINE traccoag(pdtphys, gmtime, debutphy, julien, & 9 9 presnivs, xlat, xlon, pphis, pphi, & 10 t_seri, pplay, paprs, sh, rh , & 11 tr_seri) 12 13 USE phys_local_var_mod, ONLY: mdw, sulf_convert, sulf_nucl, sulf_cond_evap, & 14 & sfluxaer, ocs_convert, R2SO4, DENSO4, f_r_wet, SO2_backgr_tend, OCS_backgr_tend, & 15 & OCS_lifetime, SO2_lifetime, surf_PM25_sulf 10 t_seri, pplay, paprs, sh, rh, tr_seri) 11 12 USE phys_local_var_mod, ONLY: mdw, R2SO4, DENSO4, f_r_wet, surf_PM25_sulf, & 13 & budg_emi_ocs, budg_emi_so2, budg_emi_h2so4, budg_emi_part 16 14 17 15 USE dimphy … … 71 69 REAL,PARAMETER :: altemiss_sai=17.e3 ! emission altitude in m 72 70 REAL,PARAMETER :: sigma_alt_sai=1.e3 ! standard deviation of emission altitude in m 73 REAL,PARAMETER :: xlat_sai=0.0 71 REAL,PARAMETER :: xlat_sai=0.01 ! latitude of SAI in degree 74 72 REAL,PARAMETER :: xlon_sai=120.35 ! longitude of SAI in degree 75 73 … … 90 88 REAL :: zrho ! Density of air [kg/m3] 91 89 REAL :: zdz ! thickness of atm. model layer in m 90 REAL,DIMENSION(klev) :: zdm ! mass of atm. model layer in kg 92 91 REAL,DIMENSION(klon,klev) :: dens_aer ! density of aerosol particles [kg/m3 aerosol] with default H2SO4 mass fraction 93 92 REAL :: dlat, dlon ! d latitude and d longitude of grid in degree 93 REAL :: emission ! emission 94 94 95 95 IF (is_mpi_root) THEN … … 141 141 DO ilon=1, klon 142 142 DO ilev=1, klev 143 m_air_gridbox(ilon,ilev)=(paprs(ilon,ilev)-paprs(ilon,ilev+1)) / RG *cell_area(ilon)144 ENDDO 145 ENDDO 146 147 IF (debutphy) THEN148 CALL gather(tr_seri, tr_seri_glo)149 IF (MAXVAL(tr_seri_glo).LT.1.e-30) THEN143 m_air_gridbox(ilon,ilev)=(paprs(ilon,ilev)-paprs(ilon,ilev+1))/RG*cell_area(ilon) 144 ENDDO 145 ENDDO 146 147 ! IF (debutphy) THEN 148 ! CALL gather(tr_seri, tr_seri_glo) 149 ! IF (MAXVAL(tr_seri_glo).LT.1.e-30) THEN 150 150 !--initialising tracer concentrations to zero 151 DO it=1, nbtr 152 tr_seri(:,:,it)=0.0 153 ENDDO 154 ENDIF 155 ENDIF 151 ! DO it=1, nbtr 152 ! tr_seri(:,:,it)=0.0 153 ! ENDDO 154 ! ENDIF 155 ! ENDIF 156 157 !--initialise emission diagnostics 158 budg_emi_ocs(:)=0.0 159 budg_emi_so2(:)=0.0 160 budg_emi_h2so4(:)=0.0 161 budg_emi_part(:)=0.0 156 162 157 163 !--sulfur emission, depending on chosen scenario (flag_sulf_emit) … … 170 176 IF ( xlat(i).GE.xlat_vol-dlat .AND. xlat(i).LT.xlat_vol+dlat .AND. & 171 177 xlon(i).GE.xlon_vol-dlon .AND. xlon(i).LT.xlon_vol+dlon ) THEN 178 ! 179 PRINT *,'coordinates of volcanic injection point=',xlat(i), xlon(i), day_cur, mth_cur, year_cur 172 180 ! compute altLMDz 173 181 altLMDz(:)=0.0 174 182 DO k=1, klev 175 zrho=pplay(i,k)/t_seri(i,k)/RD !air density in kg/m3 176 zdz=(paprs(i,k)-paprs(i,k+1))/zrho/RG !thickness of layer in m 177 altLMDz(k+1)=altLMDz(k)+zdz 183 zrho=pplay(i,k)/t_seri(i,k)/RD !air density in kg/m3 184 zdm(k)=(paprs(i,k)-paprs(i,k+1))/RG !mass of layer in kg 185 zdz=zdm(k)/zrho !thickness of layer in m 186 altLMDz(k+1)=altLMDz(k)+zdz !altitude of interface 178 187 ENDDO 179 188 !compute distribution of emission to vertical model layers (based on Gaussian peak in altitude) … … 194 203 !vertically distributed emission 195 204 DO k=1, klev 196 tr_seri(i,k,id_SO2_strat)=tr_seri(i,k,id_SO2_strat)+ & 197 & m_aer_emiss_vol*(mSO2mol/mSatom)/m_air_gridbox(i,k)*f_lay_emiss(k) & 198 & /(1.*86400./pdtphys) ! stretch emission over one day of Pinatubo eruption 205 ! stretch emission over one day of Pinatubo eruption 206 emission=m_aer_emiss_vol*(mSO2mol/mSatom)/m_air_gridbox(i,k)*f_lay_emiss(k)/1./86400. 207 tr_seri(i,k,id_SO2_strat)=tr_seri(i,k,id_SO2_strat)+emission*pdtphys 208 budg_emi_so2(i)=budg_emi_so2(i)+emission*zdm(k)*mSatom/mSO2mol 199 209 ENDDO 200 210 ENDIF ! emission grid cell … … 211 221 IF ( xlat(i).GE.xlat_sai-dlat .AND. xlat(i).LT.xlat_sai+dlat .AND. & 212 222 & xlon(i).GE.xlon_sai-dlon .AND. xlon(i).LT.xlon_sai+dlon ) THEN 223 ! 224 PRINT *,'coordinates of SAI point=',xlat(i), xlon(i), day_cur, mth_cur, year_cur 213 225 ! compute altLMDz 214 226 altLMDz(:)=0.0 215 227 DO k=1, klev 216 zrho=pplay(i,k)/t_seri(i,k)/RD !air density in kg/m3 217 zdz=(paprs(i,k)-paprs(i,k+1))/zrho/RG !thickness of layer in m 218 altLMDz(k+1)=altLMDz(k)+zdz 228 zrho=pplay(i,k)/t_seri(i,k)/RD !air density in kg/m3 229 zdm(k)=(paprs(i,k)-paprs(i,k+1))/RG !mass of layer in kg 230 zdz=zdm(k)/zrho !thickness of layer in m 231 altLMDz(k+1)=altLMDz(k)+zdz !altitude of interface 219 232 ENDDO 220 233 !compute distribution of emission to vertical model layers (based on Gaussian peak in altitude) … … 235 248 !vertically distributed emission 236 249 DO k=1, klev 237 tr_seri(i,k,id_SO2_strat)=tr_seri(i,k,id_SO2_strat)+ & 238 & m_aer_emiss_sai*(mSO2mol/mSatom)/m_air_gridbox(i,k)*f_lay_emiss(k) & 239 & /(360.*86400./pdtphys) ! stretch emission over whole year (360d) 240 ! & /(60.*86400./pdtphys) ! stretch emission over 2 months (seasonal emission) 241 ! & /7. ! distribute equally over 7 emission grid points 250 ! stretch emission over whole year (360d) 251 emission=m_aer_emiss_sai*(mSO2mol/mSatom)/m_air_gridbox(i,k)*f_lay_emiss(k)/360./86400. 252 tr_seri(i,k,id_SO2_strat)=tr_seri(i,k,id_SO2_strat)+emission*pdtphys 253 budg_emi_so2(i)=budg_emi_so2(i)+emission*zdm(k)*mSatom/mSO2mol 242 254 ENDDO 243 255 ! !emission as monodisperse particles with 0.1um dry radius (BIN21) 244 256 ! !vertically distributed emission 245 257 ! DO k=1, klev 246 ! tr_seri(i,k,id_BIN01_strat+20)=tr_seri(i,k,id_BIN01_strat+20)+ &247 ! & m_aer_emiss*(mH2SO4mol/mSatom)/m_part_dry(21)/m_air_gridbox(i,k)*f_lay_emiss(k) &248 ! & /(360.*86400./pdtphys) & ! stretch emission over whole year (360d)249 ! & /7. ! distribute equally over 7 emission grid points258 ! ! stretch emission over whole year (360d) 259 ! emission=m_aer_emiss*(mH2SO4mol/mSatom)/m_part_dry(21)/m_air_gridbox(i,k)*f_lay_emiss(k)/360./86400 260 ! tr_seri(i,k,id_BIN01_strat+20)=tr_seri(i,k,id_BIN01_strat+20)+emission*pdtphys 261 ! budg_emi_part(i)=budg_emi_part(i)+emission*zdm(k)*mSatom/mH2SO4mol 250 262 ! ENDDO 251 263 ENDIF ! emission grid cell … … 259 271 260 272 !--convert OCS to SO2 in the stratosphere 261 CALL ocs_to_so2(pdtphys,tr_seri,t_seri,pplay,paprs, sh,is_strato)273 CALL ocs_to_so2(pdtphys,tr_seri,t_seri,pplay,paprs,is_strato) 262 274 263 275 !--convert SO2 to H2SO4 264 CALL so2_to_h2so4(pdtphys,tr_seri,t_seri,pplay,paprs, sh,is_strato)276 CALL so2_to_h2so4(pdtphys,tr_seri,t_seri,pplay,paprs,is_strato) 265 277 266 278 !--common routine for nucleation and condensation/evaporation with adaptive timestep … … 282 294 surf_PM25_sulf(i)=surf_PM25_sulf(i)+tr_seri(i,1,it+nbtr_sulgas) & 283 295 & *132./98.*dens_aer_dry*4./3.*RPI*(mdw(it)/2.)**3 & 284 & *pplay(i,1)/t_seri(i,1)/RD*1 e9296 & *pplay(i,1)/t_seri(i,1)/RD*1.e9 285 297 ENDIF 286 298 ENDDO -
LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90
r2732 r2752 419 419 420 420 #ifdef CPP_StratAer 421 ! variables for strat. aerosol CK 421 ! 422 ! variables for stratospheric aerosol 422 423 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: R2SO4 423 424 !$OMP THREADPRIVATE(R2SO4) … … 426 427 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: f_r_wet 427 428 !$OMP THREADPRIVATE(f_r_wet) 428 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: sfluxaer429 !$OMP THREADPRIVATE(sfluxaer)430 429 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: decfluxaer 431 430 !$OMP THREADPRIVATE(decfluxaer) 432 431 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: mdw 433 432 !$OMP THREADPRIVATE(mdw) 434 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: sulf_convert435 !$OMP THREADPRIVATE(sulf_convert)436 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: sulf_nucl437 !$OMP THREADPRIVATE(sulf_nucl)438 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: sulf_cond_evap439 !$OMP THREADPRIVATE(sulf_cond_evap)440 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ocs_convert441 !$OMP THREADPRIVATE(ocs_convert)442 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: SO2_backgr_tend443 !$OMP THREADPRIVATE(SO2_backgr_tend)444 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: OCS_backgr_tend445 !$OMP THREADPRIVATE(OCS_backgr_tend)446 433 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: OCS_lifetime 447 434 !$OMP THREADPRIVATE(OCS_lifetime) … … 456 443 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tau_strat_550 457 444 !$OMP THREADPRIVATE(tau_strat_550) 458 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tau_strat_550_lay459 !$OMP THREADPRIVATE(tau_strat_550_lay)460 445 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tau_strat_1020 461 446 !$OMP THREADPRIVATE(tau_strat_1020) 462 447 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tausum_strat 463 448 !$OMP THREADPRIVATE(tausum_strat) 464 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: sulf_dep_dry465 !$OMP THREADPRIVATE(sulf_dep_dry)466 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: sulf_dep_wet467 !$OMP THREADPRIVATE(sulf_dep_wet)468 449 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: surf_PM25_sulf 469 450 !$OMP THREADPRIVATE(surf_PM25_sulf) … … 472 453 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: vsed_aer 473 454 !$OMP THREADPRIVATE(vsed_aer) 455 ! 456 !---3D budget variables 457 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_nucl 458 !$OMP THREADPRIVATE(budg_3D_nucl) 459 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_cond_evap 460 !$OMP THREADPRIVATE(budg_3D_cond_evap) 461 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_ocs_to_so2 462 !$OMP THREADPRIVATE(budg_3D_ocs_to_so2) 463 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_so2_to_h2so4 464 !$OMP THREADPRIVATE(budg_3D_so2_to_h2so4) 465 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_backgr_ocs 466 !$OMP THREADPRIVATE(budg_3D_backgr_ocs) 467 REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_backgr_so2 468 !$OMP THREADPRIVATE(budg_3D_backgr_so2) 469 ! 470 !---2D budget variables 471 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_h2so4 472 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_part 473 !$OMP THREADPRIVATE(budg_dep_dry_h2so4,budg_dep_dry_part) 474 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_h2so4 475 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_part 476 !$OMP THREADPRIVATE(budg_dep_wet_h2so4,budg_dep_wet_part) 477 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_ocs 478 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_so2 479 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_h2so4 480 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_part 481 !$OMP THREADPRIVATE(budg_emi_ocs,budg_emi_so2,budg_emi_h2so4,budg_emi_part) 482 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_ocs_to_so2 483 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_so2_to_h2so4 484 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_h2so4_to_part 485 !$OMP THREADPRIVATE(budg_ocs_to_so2,budg_so2_to_h2so4,budg_h2so4_to_part) 486 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_sed_part 487 !$OMP THREADPRIVATE(budg_sed_part) 474 488 #endif 475 489 … … 718 732 ALLOCATE (DENSO4(klon,klev)) 719 733 ALLOCATE (f_r_wet(klon,klev)) 720 ALLOCATE (sfluxaer(klon))721 734 ALLOCATE (decfluxaer(klon,nbtr)) 722 735 ALLOCATE (mdw(nbtr)) 723 ALLOCATE ( sulf_convert(klon,klev))724 ALLOCATE ( sulf_nucl(klon,klev))725 ALLOCATE ( sulf_cond_evap(klon,klev))726 ALLOCATE ( ocs_convert(klon,klev))727 ALLOCATE ( SO2_backgr_tend(klon,klev))728 ALLOCATE ( OCS_backgr_tend(klon,klev))736 ALLOCATE (budg_3D_nucl(klon,klev)) 737 ALLOCATE (budg_3D_cond_evap(klon,klev)) 738 ALLOCATE (budg_3D_ocs_to_so2(klon,klev)) 739 ALLOCATE (budg_3D_so2_to_h2so4(klon,klev)) 740 ALLOCATE (budg_3D_backgr_ocs(klon,klev)) 741 ALLOCATE (budg_3D_backgr_so2(klon,klev)) 729 742 ALLOCATE (OCS_lifetime(klon,klev)) 730 743 ALLOCATE (SO2_lifetime(klon,klev)) … … 733 746 ALLOCATE (cg_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave+nwave_lw,nbtr)) 734 747 ALLOCATE (tau_strat_550(klon,klev)) 735 ALLOCATE (tau_strat_550_lay(klon,klev))736 748 ALLOCATE (tau_strat_1020(klon,klev)) 737 749 ALLOCATE (tausum_strat(klon,3)) 738 ALLOCATE (sulf_dep_dry(klon)) 739 ALLOCATE (sulf_dep_wet(klon)) 750 ALLOCATE (budg_dep_dry_h2so4(klon)) 751 ALLOCATE (budg_dep_wet_h2so4(klon)) 752 ALLOCATE (budg_dep_dry_part(klon)) 753 ALLOCATE (budg_dep_wet_part(klon)) 754 ALLOCATE (budg_emi_ocs(klon)) 755 ALLOCATE (budg_emi_so2(klon)) 756 ALLOCATE (budg_emi_h2so4(klon)) 757 ALLOCATE (budg_emi_part(klon)) 758 ALLOCATE (budg_ocs_to_so2(klon)) 759 ALLOCATE (budg_so2_to_h2so4(klon)) 760 ALLOCATE (budg_h2so4_to_part(klon)) 761 ALLOCATE (budg_sed_part(klon)) 740 762 ALLOCATE (surf_PM25_sulf(klon)) 741 763 ALLOCATE (p_tropopause(klon)) … … 964 986 DEALLOCATE (DENSO4) 965 987 DEALLOCATE (f_r_wet) 966 DEALLOCATE (sfluxaer)967 988 DEALLOCATE (decfluxaer) 968 989 DEALLOCATE (mdw) 969 DEALLOCATE (sulf_convert)970 DEALLOCATE (sulf_nucl)971 DEALLOCATE (sulf_cond_evap)972 DEALLOCATE (ocs_convert)973 DEALLOCATE (SO2_backgr_tend)974 DEALLOCATE (OCS_backgr_tend)975 990 DEALLOCATE (SO2_lifetime) 976 991 DEALLOCATE (OCS_lifetime) … … 979 994 DEALLOCATE (cg_bin) 980 995 DEALLOCATE (tau_strat_550) 981 DEALLOCATE (tau_strat_550_lay)982 996 DEALLOCATE (tau_strat_1020) 983 997 DEALLOCATE (tausum_strat) 984 DEALLOCATE (sulf_dep_dry)985 DEALLOCATE (sulf_dep_wet)986 998 DEALLOCATE (surf_PM25_sulf) 987 999 DEALLOCATE (p_tropopause) 988 1000 DEALLOCATE (vsed_aer) 1001 DEALLOCATE (budg_3D_ocs_to_so2) 1002 DEALLOCATE (budg_3D_so2_to_h2so4) 1003 DEALLOCATE (budg_3D_backgr_ocs) 1004 DEALLOCATE (budg_3D_backgr_so2) 1005 DEALLOCATE (budg_3D_nucl) 1006 DEALLOCATE (budg_3D_cond_evap) 1007 DEALLOCATE (budg_dep_dry_h2so4) 1008 DEALLOCATE (budg_dep_wet_h2so4) 1009 DEALLOCATE (budg_dep_dry_part) 1010 DEALLOCATE (budg_dep_wet_part) 1011 DEALLOCATE (budg_emi_ocs) 1012 DEALLOCATE (budg_emi_so2) 1013 DEALLOCATE (budg_emi_h2so4) 1014 DEALLOCATE (budg_emi_part) 1015 DEALLOCATE (budg_ocs_to_so2) 1016 DEALLOCATE (budg_so2_to_h2so4) 1017 DEALLOCATE (budg_h2so4_to_part) 1018 DEALLOCATE (budg_sed_part) 989 1019 #endif 990 1020 -
LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
r2690 r2752 19 19 !!! Comosantes de la coordonnee sigma-hybride 20 20 !!! Ap et Bp 21 TYPE(ctrl_out), SAVE :: o_Ahyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 22 'Ap', '', '', (/ ('', i=1, 9) /))23 TYPE(ctrl_out), SAVE :: o_Bhyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 24 'Bp', '', '', (/ ('', i=1, 9) /))25 TYPE(ctrl_out), SAVE :: o_Alt = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 26 'Alt', '', '', (/ ('', i=1, 9) /))21 TYPE(ctrl_out), SAVE :: o_Ahyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 22 'Ap', '', '', (/ ('', i=1, 10) /)) 23 TYPE(ctrl_out), SAVE :: o_Bhyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 24 'Bp', '', '', (/ ('', i=1, 10) /)) 25 TYPE(ctrl_out), SAVE :: o_Alt = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 26 'Alt', '', '', (/ ('', i=1, 10) /)) 27 27 28 28 !!! 1D 29 TYPE(ctrl_out), SAVE :: o_phis = ctrl_out((/ 1, 1, 10, 5, 1, 1, 11, 11, 11 30 'phis', 'Surface geop.height', 'm2/s2', (/ ('', i=1, 9) /))31 TYPE(ctrl_out), SAVE :: o_aire = ctrl_out((/ 1, 1, 10, 10, 1, 1, 11, 11, 11 29 TYPE(ctrl_out), SAVE :: o_phis = ctrl_out((/ 1, 1, 10, 5, 1, 1, 11, 11, 11, 11/), & 30 'phis', 'Surface geop.height', 'm2/s2', (/ ('', i=1, 10) /)) 31 TYPE(ctrl_out), SAVE :: o_aire = ctrl_out((/ 1, 1, 10, 10, 1, 1, 11, 11, 11, 11/), & 32 32 'aire', 'Grid area', '-', (/ 'once', 'once', 'once', 'once', 'once', 'once', & 33 34 TYPE(ctrl_out), SAVE :: o_contfracATM = ctrl_out((/ 10, 1, 1, 10, 10, 10, 11, 11, 11 33 'once', 'once', 'once', 'once' /)) 34 TYPE(ctrl_out), SAVE :: o_contfracATM = ctrl_out((/ 10, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 35 35 'contfracATM', '% sfce ter+lic', '-', & 36 (/ 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once' /))37 TYPE(ctrl_out), SAVE :: o_contfracOR = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 38 'contfracOR', '% sfce terre OR', '-', (/ ('', i=1, 9) /))39 TYPE(ctrl_out), SAVE :: o_aireTER = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 40 'aireTER', 'Grid area CONT', '-', (/ ('', i=1, 9) /))36 (/ 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once' /)) 37 TYPE(ctrl_out), SAVE :: o_contfracOR = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 38 'contfracOR', '% sfce terre OR', '-', (/ ('', i=1, 10) /)) 39 TYPE(ctrl_out), SAVE :: o_aireTER = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 40 'aireTER', 'Grid area CONT', '-', (/ ('', i=1, 10) /)) 41 41 42 42 !!! 2D … … 44 44 ! Marine 45 45 46 TYPE(ctrl_out), SAVE :: o_alt_tropo = ctrl_out((/1,1,1,1,1,10,10,10,10 /),&46 TYPE(ctrl_out), SAVE :: o_alt_tropo = ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 47 47 'alt_tropo','Tropopause pressure','hPa',& 48 48 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 49 "inst(X)", "inst(X)","inst(X)" /))50 51 TYPE(ctrl_out), SAVE :: o_map_prop_hc = ctrl_out((/1,1,1,1,1,10,10,10,10 /),&49 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 50 51 TYPE(ctrl_out), SAVE :: o_map_prop_hc = ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 52 52 'map_prop_hc','Proportion of high clouds',' ',& 53 53 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 54 "inst(X)", "inst(X)","inst(X)" /))54 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 55 55 56 56 TYPE(ctrl_out), SAVE :: o_map_prop_hist = & 57 ctrl_out((/1,1,1,1,1,1,10,10,10 /),&57 ctrl_out((/1,1,1,1,1,1,10,10,10,10/),& 58 58 'map_prop_hist','Proportion of high ice semi-transp clouds',' ',& 59 59 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 60 "inst(X)", "inst(X)","inst(X)" /))60 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 61 61 62 62 TYPE(ctrl_out), SAVE :: o_map_emis_hc = & 63 ctrl_out((/1,1,1,1,1,1,10,10,10 /),&63 ctrl_out((/1,1,1,1,1,1,10,10,10,10/),& 64 64 'map_emis_hc','Emissivity of high clouds',' ',& 65 65 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 66 "inst(X)", "inst(X)","inst(X)" /))66 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 67 67 68 68 TYPE(ctrl_out), SAVE :: o_map_iwp_hc = & 69 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&69 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 70 70 'map_iwp_hc','Ice water path of high clouds','g/m2',& 71 71 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 72 "inst(X)", "inst(X)","inst(X)" /))72 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 73 73 74 74 TYPE(ctrl_out), SAVE :: o_map_deltaz_hc = & 75 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&75 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 76 76 'map_deltaz_hc','geom thickness of high clouds','m',& 77 77 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 78 "inst(X)", "inst(X)","inst(X)" /))78 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 79 79 80 80 TYPE(ctrl_out), SAVE :: o_map_pcld_hc = & 81 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&81 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 82 82 'map_pcld_hc','cloud pressure of high clouds','hPa',& 83 83 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 84 "inst(X)", "inst(X)","inst(X)" /))84 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 85 85 86 86 TYPE(ctrl_out), SAVE :: o_map_tcld_hc = & 87 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&87 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 88 88 'map_tcld_hc','cloud temperature of high clouds','K',& 89 89 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 90 "inst(X)", "inst(X)","inst(X)" /)) 91 90 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 92 91 93 92 TYPE(ctrl_out), SAVE :: o_map_emis_hist = & 94 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&93 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 95 94 'map_emis_hist','Emissivity of high ice st clouds',' ',& 96 95 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 97 "inst(X)", "inst(X)","inst(X)" /))96 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 98 97 99 98 TYPE(ctrl_out), SAVE :: o_map_iwp_hist = & 100 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&99 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 101 100 'map_iwp_hist','Ice water path of high ice st clouds','g/m2',& 102 101 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 103 "inst(X)", "inst(X)","inst(X)" /))102 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 104 103 105 104 TYPE(ctrl_out), SAVE :: o_map_deltaz_hist = & 106 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&105 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 107 106 'map_deltaz_hist','geom thickness of high ice st clouds','m',& 108 107 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 109 "inst(X)", "inst(X)","inst(X)" /))108 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 110 109 111 110 TYPE(ctrl_out), SAVE :: o_map_rad_hist = & 112 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&111 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 113 112 'map_rad_hist','ice crystals radius in high ice st clouds','µm',& 114 113 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 115 "inst(X)", "inst(X)","inst(X)" /))114 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 116 115 117 116 118 117 TYPE(ctrl_out), SAVE :: o_map_emis_Cb = & 119 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&118 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 120 119 'map_emis_Cb','Emissivity of high Cb clouds',' ',& 121 120 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 122 "inst(X)", "inst(X)","inst(X)" /))121 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 123 122 124 123 TYPE(ctrl_out), SAVE :: o_map_pcld_Cb = & 125 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&124 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 126 125 'map_pcld_Cb','cloud pressure of high Cb clouds','hPa',& 127 126 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 128 "inst(X)", "inst(X)","inst(X)" /))127 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 129 128 130 129 TYPE(ctrl_out), SAVE :: o_map_tcld_Cb = & 131 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&130 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 132 131 'map_tcld_Cb','cloud temperature of high Cb clouds','K',& 133 132 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 134 "inst(X)", "inst(X)","inst(X)" /))133 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 135 134 136 135 137 136 TYPE(ctrl_out), SAVE :: o_map_emis_Anv = & 138 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&137 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 139 138 'map_emis_Anv','Emissivity of high Anv clouds',' ',& 140 139 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 141 "inst(X)", "inst(X)","inst(X)" /))140 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 142 141 143 142 TYPE(ctrl_out), SAVE :: o_map_pcld_Anv = & 144 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&143 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 145 144 'map_pcld_Anv','cloud pressure of high Anv clouds','hPa',& 146 145 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 147 "inst(X)", "inst(X)","inst(X)" /))146 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 148 147 149 148 TYPE(ctrl_out), SAVE :: o_map_tcld_Anv = & 150 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&149 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 151 150 'map_tcld_Anv','cloud temperature of high Anv clouds','K',& 152 151 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 153 "inst(X)", "inst(X)","inst(X)" /))152 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 154 153 155 154 TYPE(ctrl_out), SAVE :: o_map_emis_ThCi = & 156 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&155 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 157 156 'map_emis_ThCi','Emissivity of high ThCi clouds',' ',& 158 157 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 159 "inst(X)", "inst(X)","inst(X)" /))158 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 160 159 161 160 TYPE(ctrl_out), SAVE :: o_map_pcld_ThCi = & 162 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&161 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 163 162 'map_pcld_ThCi','cloud pressure of high ThCi clouds','hPa',& 164 163 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 165 "inst(X)", "inst(X)","inst(X)" /))164 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 166 165 167 166 TYPE(ctrl_out), SAVE :: o_map_tcld_ThCi = & 168 ctrl_out((/10,10,1,10,10,10,10,10,10 /),&167 ctrl_out((/10,10,1,10,10,10,10,10,10,10/),& 169 168 'map_tcld_ThCi','cloud temperature of high ThCi clouds','K',& 170 169 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 171 "inst(X)", "inst(X)","inst(X)" /))170 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 172 171 173 172 TYPE(ctrl_out), SAVE :: o_map_ntot = & 174 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&173 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 175 174 'map_ntot','total AIRS cloud fraction',' ',& 176 175 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 177 "inst(X)", "inst(X)","inst(X)" /))176 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 178 177 179 178 TYPE(ctrl_out), SAVE :: o_map_hc = & 180 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&179 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 181 180 'map_hc','high clouds AIRS cloud fraction',' ',& 182 181 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 183 "inst(X)", "inst(X)","inst(X)" /))182 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 184 183 185 184 TYPE(ctrl_out), SAVE :: o_map_hist = & 186 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&185 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 187 186 'map_hist','high clouds ice st AIRS cloud fraction',' ',& 188 187 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 189 "inst(X)", "inst(X)","inst(X)" /))188 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 190 189 191 190 TYPE(ctrl_out), SAVE :: o_map_Cb = & 192 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&191 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 193 192 'map_Cb','high clouds Cb AIRS cloud fraction',' ',& 194 193 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 195 "inst(X)", "inst(X)","inst(X)" /))194 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 196 195 197 196 TYPE(ctrl_out), SAVE :: o_map_ThCi = & 198 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&197 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 199 198 'map_ThCi','high clouds ThCi AIRS cloud fraction',' ',& 200 199 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 201 "inst(X)", "inst(X)","inst(X)" /))200 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 202 201 203 202 TYPE(ctrl_out), SAVE :: o_map_Anv = & 204 ctrl_out((/1,1,1,1,1,10,10,10,10 /),&203 ctrl_out((/1,1,1,1,1,10,10,10,10,10/),& 205 204 'map_Anv','high clouds Anv AIRS cloud fraction',' ',& 206 205 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",& 207 "inst(X)", "inst(X)","inst(X)" /)) 208 206 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 209 207 210 208 ! Fin Marine 211 209 212 TYPE(ctrl_out), SAVE :: o_flat = ctrl_out((/ 5, 1, 10, 10, 5, 10, 11, 11, 11 213 'flat', 'Latent heat flux', 'W/m2', (/ ('', i=1, 9) /))214 TYPE(ctrl_out), SAVE :: o_ptstar = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 215 'ptstar', 'Air Surface Temperature', 'K', (/ ('', i=1, 9) /))216 TYPE(ctrl_out), SAVE :: o_pt0 = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 217 'pt0', 'Standard Air Surface Temperature', 'K', (/ ('', i=1, 9) /))218 TYPE(ctrl_out), SAVE :: o_slp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 219 'slp', 'Sea Level Pressure', 'Pa', (/ ('', i=1, 9) /))220 TYPE(ctrl_out), SAVE :: o_tsol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 221 'tsol', 'Surface Temperature', 'K', (/ ('', i=1, 9) /))222 TYPE(ctrl_out), SAVE :: o_t2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 223 't2m', 'Temperature 2m', 'K', (/ ('', i=1, 9) /))224 TYPE(ctrl_out), SAVE :: o_t2m_min = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11 210 TYPE(ctrl_out), SAVE :: o_flat = ctrl_out((/ 5, 1, 10, 10, 5, 10, 11, 11, 11, 11/), & 211 'flat', 'Latent heat flux', 'W/m2', (/ ('', i=1, 10) /)) 212 TYPE(ctrl_out), SAVE :: o_ptstar = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 213 'ptstar', 'Air Surface Temperature', 'K', (/ ('', i=1, 10) /)) 214 TYPE(ctrl_out), SAVE :: o_pt0 = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 215 'pt0', 'Standard Air Surface Temperature', 'K', (/ ('', i=1, 10) /)) 216 TYPE(ctrl_out), SAVE :: o_slp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 217 'slp', 'Sea Level Pressure', 'Pa', (/ ('', i=1, 10) /)) 218 TYPE(ctrl_out), SAVE :: o_tsol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 219 'tsol', 'Surface Temperature', 'K', (/ ('', i=1, 10) /)) 220 TYPE(ctrl_out), SAVE :: o_t2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 221 't2m', 'Temperature 2m', 'K', (/ ('', i=1, 10) /)) 222 TYPE(ctrl_out), SAVE :: o_t2m_min = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 225 223 't2m_min', 'Temp 2m min', 'K', & 226 (/ "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)" /)) 227 TYPE(ctrl_out), SAVE :: o_t2m_max = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11 /), & 224 (/ "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", & 225 "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)", "t_min(X)" /)) 226 TYPE(ctrl_out), SAVE :: o_t2m_max = ctrl_out((/ 20, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 228 227 't2m_max', 'Temp 2m max', 'K', & 229 228 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 230 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /))231 232 TYPE(ctrl_out), SAVE :: o_t2m_min_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20 /), &229 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 230 231 TYPE(ctrl_out), SAVE :: o_t2m_min_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20, 20 /), & 233 232 't2m_min_mon', 'Monthly average min 2m temperature', 'K', & 234 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 235 TYPE(ctrl_out), SAVE :: o_t2m_max_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20 /), & 233 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 234 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 235 TYPE(ctrl_out), SAVE :: o_t2m_max_mon = ctrl_out((/ 1, 20, 20, 20, 20, 20, 20, 20, 20, 20 /), & 236 236 't2m_max_mon', 'Monthly average max 2m temperature', 'K', & 237 237 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 238 "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))238 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 239 239 240 240 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_t2m_srf = (/ & 241 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 242 't2m_ter', "Temp 2m "//clnsurf(1), "K", (/ ('', i=1, 9) /)), &243 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 244 't2m_lic', "Temp 2m "//clnsurf(2), "K", (/ ('', i=1, 9) /)), &245 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 246 't2m_oce', "Temp 2m "//clnsurf(3), "K", (/ ('', i=1, 9) /)), &247 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 248 't2m_sic', "Temp 2m "//clnsurf(4), "K", (/ ('', i=1, 9) /)) /)249 250 TYPE(ctrl_out), SAVE :: o_gusts = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 251 'gusts', 'surface gustiness', 'm2/s2', (/ ('', i=1, 9) /))252 253 TYPE(ctrl_out), SAVE :: o_wind10m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 254 'wind10m', '10-m wind speed', 'm/s', (/ ('', i=1, 9) /))255 TYPE(ctrl_out), SAVE :: o_wind10max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 241 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 242 't2m_ter', "Temp 2m "//clnsurf(1), "K", (/ ('', i=1, 10) /)), & 243 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 244 't2m_lic', "Temp 2m "//clnsurf(2), "K", (/ ('', i=1, 10) /)), & 245 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 246 't2m_oce', "Temp 2m "//clnsurf(3), "K", (/ ('', i=1, 10) /)), & 247 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 248 't2m_sic', "Temp 2m "//clnsurf(4), "K", (/ ('', i=1, 10) /)) /) 249 250 TYPE(ctrl_out), SAVE :: o_gusts = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 251 'gusts', 'surface gustiness', 'm2/s2', (/ ('', i=1, 10) /)) 252 253 TYPE(ctrl_out), SAVE :: o_wind10m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 254 'wind10m', '10-m wind speed', 'm/s', (/ ('', i=1, 10) /)) 255 TYPE(ctrl_out), SAVE :: o_wind10max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 256 256 'wind10max', '10m wind speed max', 'm/s', & 257 257 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 258 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 259 TYPE(ctrl_out), SAVE :: o_sicf = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), & 260 'sicf', 'Sea-ice fraction', '-', (/ ('', i=1, 9) /)) 261 TYPE(ctrl_out), SAVE :: o_q2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), & 262 'q2m', 'Specific humidity 2m', 'kg/kg', (/ ('', i=1, 9) /)) 263 TYPE(ctrl_out), SAVE :: o_ustar = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11 /), & 264 'ustar', 'Friction velocity', 'm/s', (/ ('', i=1, 9) /)) 265 TYPE(ctrl_out), SAVE :: o_u10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), & 266 'u10m', 'Vent zonal 10m', 'm/s', (/ ('', i=1, 9) /)) 267 TYPE(ctrl_out), SAVE :: o_v10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), & 268 'v10m', 'Vent meridien 10m', 'm/s', (/ ('', i=1, 9) /)) 269 TYPE(ctrl_out), SAVE :: o_psol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), & 270 'psol', 'Surface Pressure', 'Pa', (/ ('', i=1, 9) /)) 271 TYPE(ctrl_out), SAVE :: o_qsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 272 'qsurf', 'Surface Air humidity', 'kg/kg', (/ ('', i=1, 9) /)) 258 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 259 260 TYPE(ctrl_out), SAVE :: o_sicf = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 261 'sicf', 'Sea-ice fraction', '-', (/ ('', i=1, 10) /)) 262 TYPE(ctrl_out), SAVE :: o_q2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 263 'q2m', 'Specific humidity 2m', 'kg/kg', (/ ('', i=1, 10) /)) 264 TYPE(ctrl_out), SAVE :: o_ustar = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11, 11/), & 265 'ustar', 'Friction velocity', 'm/s', (/ ('', i=1, 10) /)) 266 TYPE(ctrl_out), SAVE :: o_u10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 267 'u10m', 'Vent zonal 10m', 'm/s', (/ ('', i=1, 10) /)) 268 TYPE(ctrl_out), SAVE :: o_v10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 269 'v10m', 'Vent meridien 10m', 'm/s', (/ ('', i=1, 10) /)) 270 TYPE(ctrl_out), SAVE :: o_psol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11, 11/), & 271 'psol', 'Surface Pressure', 'Pa', (/ ('', i=1, 10) /)) 272 TYPE(ctrl_out), SAVE :: o_qsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 273 'qsurf', 'Surface Air humidity', 'kg/kg', (/ ('', i=1, 10) /)) 273 274 274 275 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_ustar_srf = (/ & 275 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 276 "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &277 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 278 "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &279 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 280 "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &281 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 282 "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)276 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'ustar_ter', & 277 "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 10) /)), & 278 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'ustar_lic', & 279 "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 10) /)), & 280 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'ustar_oce', & 281 "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 10) /)), & 282 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'ustar_sic', & 283 "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)) /) 283 284 284 285 TYPE(ctrl_out), SAVE, DIMENSION(5) :: o_wstar = (/ & 285 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 286 "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &287 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 288 "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &289 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 290 "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &291 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 292 "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)), &293 ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11 294 "w* convective velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)286 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar_ter', & 287 "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 10) /)), & 288 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar_lic', & 289 "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 10) /)), & 290 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar_oce', & 291 "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 10) /)), & 292 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar_sic', & 293 "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)), & 294 ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11, 11/),'wstar', & 295 "w* convective velocity "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)) /) 295 296 296 297 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_u10m_srf = (/ & 297 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 298 "Vent Zonal 10m "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &299 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 300 "Vent Zonal 10m "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &301 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 302 "Vent Zonal 10m "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &303 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 304 "Vent Zonal 10m "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)298 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'u10m_ter', & 299 "Vent Zonal 10m "//clnsurf(1),"m/s", (/ ('', i=1, 10) /)), & 300 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'u10m_lic', & 301 "Vent Zonal 10m "//clnsurf(2),"m/s", (/ ('', i=1, 10) /)), & 302 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'u10m_oce', & 303 "Vent Zonal 10m "//clnsurf(3),"m/s", (/ ('', i=1, 10) /)), & 304 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'u10m_sic', & 305 "Vent Zonal 10m "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)) /) 305 306 306 307 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_v10m_srf = (/ & 307 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 308 "Vent meredien 10m "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &309 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 310 "Vent meredien 10m "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &311 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 312 "Vent meredien 10m "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &313 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 314 "Vent meredien 10m "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)315 316 TYPE(ctrl_out), SAVE :: o_qsol = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 317 'qsol', 'Soil watter content', 'mm', (/ ('', i=1, 9) /))318 TYPE(ctrl_out), SAVE :: o_ndayrain = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 308 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'v10m_ter', & 309 "Vent meredien 10m "//clnsurf(1),"m/s", (/ ('', i=1, 10) /)), & 310 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'v10m_lic', & 311 "Vent meredien 10m "//clnsurf(2),"m/s", (/ ('', i=1, 10) /)), & 312 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'v10m_oce', & 313 "Vent meredien 10m "//clnsurf(3),"m/s", (/ ('', i=1, 10) /)), & 314 ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'v10m_sic', & 315 "Vent meredien 10m "//clnsurf(4),"m/s", (/ ('', i=1, 10) /)) /) 316 317 TYPE(ctrl_out), SAVE :: o_qsol = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 318 'qsol', 'Soil watter content', 'mm', (/ ('', i=1, 10) /)) 319 TYPE(ctrl_out), SAVE :: o_ndayrain = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 319 320 'ndayrain', 'Number of dayrain(liq+sol)', '-', & 320 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))321 TYPE(ctrl_out), SAVE :: o_precip = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11 322 'precip', 'Precip Totale liq+sol', 'kg/(s*m2)', (/ ('', i=1, 9) /))323 TYPE(ctrl_out), SAVE :: o_plul = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 324 'plul', 'Large-scale Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))325 TYPE(ctrl_out), SAVE :: o_plun = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 326 'plun', 'Numerical Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))327 TYPE(ctrl_out), SAVE :: o_pluc = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11 328 'pluc', 'Convective Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))329 TYPE(ctrl_out), SAVE :: o_snow = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 330 'snow', 'Snow fall', 'kg/(s*m2)', (/ ('', i=1, 9) /))331 TYPE(ctrl_out), SAVE :: o_evap = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 332 'evap', 'Evaporat', 'kg/(s*m2)', (/ ('', i=1, 9) /))333 334 TYPE(ctrl_out), SAVE :: o_sens_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 335 'sens_rain_oce', 'Sensible heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))336 TYPE(ctrl_out), SAVE :: o_sens_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 337 'sens_rain_sic', 'Sensible heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))338 TYPE(ctrl_out), SAVE :: o_sens_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 339 'sens_snow_oce', 'Sensible heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))340 TYPE(ctrl_out), SAVE :: o_sens_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 341 'sens_snow_sic', 'Sensible heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))342 TYPE(ctrl_out), SAVE :: o_lat_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 343 'lat_rain_oce', 'Latent heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))344 TYPE(ctrl_out), SAVE :: o_lat_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 345 'lat_rain_sic', 'Latent heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))346 TYPE(ctrl_out), SAVE :: o_lat_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 347 'lat_snow_oce', 'Latent heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))348 TYPE(ctrl_out), SAVE :: o_lat_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 349 'lat_snow_sic', 'Latent heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))321 (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 322 TYPE(ctrl_out), SAVE :: o_precip = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11, 11/), & 323 'precip', 'Precip Totale liq+sol', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 324 TYPE(ctrl_out), SAVE :: o_plul = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 325 'plul', 'Large-scale Precip.', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 326 TYPE(ctrl_out), SAVE :: o_plun = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 327 'plun', 'Numerical Precip.', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 328 TYPE(ctrl_out), SAVE :: o_pluc = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11, 11/), & 329 'pluc', 'Convective Precip.', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 330 TYPE(ctrl_out), SAVE :: o_snow = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11, 11/), & 331 'snow', 'Snow fall', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 332 TYPE(ctrl_out), SAVE :: o_evap = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 333 'evap', 'Evaporat', 'kg/(s*m2)', (/ ('', i=1, 10) /)) 334 335 TYPE(ctrl_out), SAVE :: o_sens_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 336 'sens_rain_oce', 'Sensible heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /)) 337 TYPE(ctrl_out), SAVE :: o_sens_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 338 'sens_rain_sic', 'Sensible heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 10) /)) 339 TYPE(ctrl_out), SAVE :: o_sens_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 340 'sens_snow_oce', 'Sensible heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /)) 341 TYPE(ctrl_out), SAVE :: o_sens_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 342 'sens_snow_sic', 'Sensible heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 10) /)) 343 TYPE(ctrl_out), SAVE :: o_lat_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 344 'lat_rain_oce', 'Latent heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /)) 345 TYPE(ctrl_out), SAVE :: o_lat_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 346 'lat_rain_sic', 'Latent heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 10) /)) 347 TYPE(ctrl_out), SAVE :: o_lat_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 348 'lat_snow_oce', 'Latent heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 10) /)) 349 TYPE(ctrl_out), SAVE :: o_lat_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11, 11/), & 350 'lat_snow_sic', 'Latent heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 10) /)) 350 351 351 352 352 353 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_evap_srf = (/ & 353 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 354 "evaporation at surface "//clnsurf(1),"kg/(s*m2)", (/ ('', i=1, 9) /)), &355 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 356 "evaporation at surface "//clnsurf(2),"kg/(s*m2)", (/ ('', i=1, 9) /)), &357 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 358 "evaporation at surface "//clnsurf(3),"kg/(s*m2)", (/ ('', i=1, 9) /)), &359 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 360 "evaporation at surface "//clnsurf(4),"kg/(s*m2)", (/ ('', i=1, 9) /)) /)361 362 TYPE(ctrl_out), SAVE :: o_msnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 363 'msnow', 'Surface snow amount', 'kg/m2', (/ ('', i=1, 9) /))364 TYPE(ctrl_out), SAVE :: o_fsnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 365 'fsnow', 'Surface snow area fraction', '-', (/ ('', i=1, 9) /))366 TYPE(ctrl_out), SAVE :: o_tops = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 367 'tops', 'Solar rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))368 TYPE(ctrl_out), SAVE :: o_tops0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 369 'tops0', 'CS Solar rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))370 TYPE(ctrl_out), SAVE :: o_topl = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11 371 'topl', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))372 TYPE(ctrl_out), SAVE :: o_topl0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 373 'topl0', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))374 TYPE(ctrl_out), SAVE :: o_SWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 375 'SWupTOA', 'SWup at TOA', 'W/m2', (/ ('', i=1, 9) /))376 TYPE(ctrl_out), SAVE :: o_SWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 377 'SWupTOAclr', 'SWup clear sky at TOA', 'W/m2', (/ ('', i=1, 9) /))378 TYPE(ctrl_out), SAVE :: o_SWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 379 'SWdnTOA', 'SWdn at TOA', 'W/m2', (/ ('', i=1, 9) /))380 TYPE(ctrl_out), SAVE :: o_SWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 381 'SWdnTOAclr', 'SWdn clear sky at TOA', 'W/m2', (/ ('', i=1, 9) /))382 TYPE(ctrl_out), SAVE :: o_nettop = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 383 'nettop', 'Net dn radiatif flux at TOA', 'W/m2', (/ ('', i=1, 9) /))384 TYPE(ctrl_out), SAVE :: o_SWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 385 'SWup200', 'SWup at 200mb', 'W/m2', (/ ('', i=1, 9) /))386 TYPE(ctrl_out), SAVE :: o_SWup200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 387 'SWup200clr', 'SWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))388 TYPE(ctrl_out), SAVE :: o_SWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 389 'SWdn200', 'SWdn at 200mb', 'W/m2', (/ ('', i=1, 9) /))390 TYPE(ctrl_out), SAVE :: o_SWdn200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 391 'SWdn200clr', 'SWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))354 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evap_ter', & 355 "evaporation at surface "//clnsurf(1),"kg/(s*m2)", (/ ('', i=1, 10) /)), & 356 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evap_lic', & 357 "evaporation at surface "//clnsurf(2),"kg/(s*m2)", (/ ('', i=1, 10) /)), & 358 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evap_oce', & 359 "evaporation at surface "//clnsurf(3),"kg/(s*m2)", (/ ('', i=1, 10) /)), & 360 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evap_sic', & 361 "evaporation at surface "//clnsurf(4),"kg/(s*m2)", (/ ('', i=1, 10) /)) /) 362 363 TYPE(ctrl_out), SAVE :: o_msnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 364 'msnow', 'Surface snow amount', 'kg/m2', (/ ('', i=1, 10) /)) 365 TYPE(ctrl_out), SAVE :: o_fsnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 366 'fsnow', 'Surface snow area fraction', '-', (/ ('', i=1, 10) /)) 367 TYPE(ctrl_out), SAVE :: o_tops = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 368 'tops', 'Solar rad. at TOA', 'W/m2', (/ ('', i=1, 10) /)) 369 TYPE(ctrl_out), SAVE :: o_tops0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 370 'tops0', 'CS Solar rad. at TOA', 'W/m2', (/ ('', i=1, 10) /)) 371 TYPE(ctrl_out), SAVE :: o_topl = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11, 11/), & 372 'topl', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 10) /)) 373 TYPE(ctrl_out), SAVE :: o_topl0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 374 'topl0', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 10) /)) 375 TYPE(ctrl_out), SAVE :: o_SWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 376 'SWupTOA', 'SWup at TOA', 'W/m2', (/ ('', i=1, 10) /)) 377 TYPE(ctrl_out), SAVE :: o_SWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 378 'SWupTOAclr', 'SWup clear sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 379 TYPE(ctrl_out), SAVE :: o_SWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 380 'SWdnTOA', 'SWdn at TOA', 'W/m2', (/ ('', i=1, 10) /)) 381 TYPE(ctrl_out), SAVE :: o_SWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 382 'SWdnTOAclr', 'SWdn clear sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 383 TYPE(ctrl_out), SAVE :: o_nettop = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/), & 384 'nettop', 'Net dn radiatif flux at TOA', 'W/m2', (/ ('', i=1, 10) /)) 385 TYPE(ctrl_out), SAVE :: o_SWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 386 'SWup200', 'SWup at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 387 TYPE(ctrl_out), SAVE :: o_SWup200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 388 'SWup200clr', 'SWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 389 TYPE(ctrl_out), SAVE :: o_SWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 390 'SWdn200', 'SWdn at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 391 TYPE(ctrl_out), SAVE :: o_SWdn200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 392 'SWdn200clr', 'SWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 392 393 393 394 ! arajouter 394 ! type(ctrl_out),save :: o_LWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 395 ! (/ ('', i=1, 9) /))396 ! type(ctrl_out),save :: o_LWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 397 ! (/ ('', i=1, 9) /))398 ! type(ctrl_out),save :: o_LWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 399 ! (/ ('', i=1, 9) /))400 ! type(ctrl_out),save :: o_LWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 401 ! (/ ('', i=1, 9) /))402 TYPE(ctrl_out), SAVE :: o_LWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 403 'LWup200', 'LWup at 200mb', 'W/m2', (/ ('', i=1, 9) /))404 TYPE(ctrl_out), SAVE :: o_LWup200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 405 'LWup200clr', 'LWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))406 TYPE(ctrl_out), SAVE :: o_LWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 407 'LWdn200', 'LWdn at 200mb', 'W/m2', (/ ('', i=1, 9) /))408 TYPE(ctrl_out), SAVE :: o_LWdn200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 409 'LWdn200clr', 'LWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))410 TYPE(ctrl_out), SAVE :: o_sols = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 411 'sols', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 9) /))412 TYPE(ctrl_out), SAVE :: o_sols0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 413 'sols0', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 9) /))414 TYPE(ctrl_out), SAVE :: o_soll = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 415 'soll', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))416 TYPE(ctrl_out), SAVE :: o_soll0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 417 'soll0', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))418 TYPE(ctrl_out), SAVE :: o_radsol = ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 419 'radsol', 'Rayonnement au sol', 'W/m2', (/ ('', i=1, 9) /))420 TYPE(ctrl_out), SAVE :: o_SWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 421 'SWupSFC', 'SWup at surface', 'W/m2', (/ ('', i=1, 9) /))422 TYPE(ctrl_out), SAVE :: o_SWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 423 'SWupSFCclr', 'SWup clear sky at surface', 'W/m2', (/ ('', i=1, 9) /))424 TYPE(ctrl_out), SAVE :: o_SWdnSFC = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 425 'SWdnSFC', 'SWdn at surface', 'W/m2', (/ ('', i=1, 9) /))426 TYPE(ctrl_out), SAVE :: o_SWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 427 'SWdnSFCclr', 'SWdn clear sky at surface', 'W/m2', (/ ('', i=1, 9) /))428 TYPE(ctrl_out), SAVE :: o_LWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 429 'LWupSFC', 'Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))430 TYPE(ctrl_out), SAVE :: o_LWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 431 'LWupSFCclr', 'CS Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))432 TYPE(ctrl_out), SAVE :: o_LWdnSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 433 'LWdnSFC', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))434 TYPE(ctrl_out), SAVE :: o_LWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 435 'LWdnSFCclr', 'Down. CS IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))436 TYPE(ctrl_out), SAVE :: o_bils = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 437 'bils', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))438 TYPE(ctrl_out), SAVE :: o_bils_tke = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 439 'bils_tke', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))440 TYPE(ctrl_out), SAVE :: o_bils_diss = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 441 'bils_diss', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))442 TYPE(ctrl_out), SAVE :: o_bils_ec = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 443 'bils_ec', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 9) /))444 TYPE(ctrl_out), SAVE :: o_bils_ech = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 445 'bils_ech', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 9) /))446 TYPE(ctrl_out), SAVE :: o_bils_kinetic = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 447 'bils_kinetic', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))448 TYPE(ctrl_out), SAVE :: o_bils_enthalp = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 449 'bils_enthalp', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))450 TYPE(ctrl_out), SAVE :: o_bils_latent = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 451 'bils_latent', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))452 TYPE(ctrl_out), SAVE :: o_sens = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 453 'sens', 'Sensible heat flux', 'W/m2', (/ ('', i=1, 9) /))454 TYPE(ctrl_out), SAVE :: o_fder = ctrl_out((/ 1, 2, 10, 10, 10, 10, 11, 11, 11 455 'fder', 'Heat flux derivation', 'W/m2', (/ ('', i=1, 9) /))456 TYPE(ctrl_out), SAVE :: o_ffonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 457 'ffonte', 'Thermal flux for snow melting', 'W/m2', (/ ('', i=1, 9) /))458 TYPE(ctrl_out), SAVE :: o_fqcalving = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 459 'fqcalving', 'Ice Calving', 'kg/m2/s', (/ ('', i=1, 9) /))460 TYPE(ctrl_out), SAVE :: o_fqfonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 461 'fqfonte', 'Land ice melt', 'kg/m2/s', (/ ('', i=1, 9) /))462 TYPE(ctrl_out), SAVE :: o_runofflic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 463 'runofflic', 'Land ice melt to ocean', 'kg/m2/s', (/ ('', i=1, 9) /))464 TYPE(ctrl_out), SAVE :: o_taux = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 465 'taux', 'Zonal wind stress', 'Pa', (/ ('', i=1, 9) /))466 TYPE(ctrl_out), SAVE :: o_tauy = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 467 'tauy', 'Meridional wind stress', 'Pa', (/ ('', i=1, 9) /))395 ! type(ctrl_out),save :: o_LWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'LWupTOA', & 396 ! (/ ('', i=1, 10) /)) 397 ! type(ctrl_out),save :: o_LWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'LWupTOAclr', & 398 ! (/ ('', i=1, 10) /)) 399 ! type(ctrl_out),save :: o_LWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'LWdnTOA', & 400 ! (/ ('', i=1, 10) /)) 401 ! type(ctrl_out),save :: o_LWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'LWdnTOAclr', & 402 ! (/ ('', i=1, 10) /)) 403 TYPE(ctrl_out), SAVE :: o_LWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 404 'LWup200', 'LWup at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 405 TYPE(ctrl_out), SAVE :: o_LWup200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 406 'LWup200clr', 'LWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 407 TYPE(ctrl_out), SAVE :: o_LWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 408 'LWdn200', 'LWdn at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 409 TYPE(ctrl_out), SAVE :: o_LWdn200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 410 'LWdn200clr', 'LWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 10) /)) 411 TYPE(ctrl_out), SAVE :: o_sols = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 412 'sols', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 10) /)) 413 TYPE(ctrl_out), SAVE :: o_sols0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 414 'sols0', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 10) /)) 415 TYPE(ctrl_out), SAVE :: o_soll = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 416 'soll', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 417 TYPE(ctrl_out), SAVE :: o_soll0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 418 'soll0', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 419 TYPE(ctrl_out), SAVE :: o_radsol = ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/), & 420 'radsol', 'Rayonnement au sol', 'W/m2', (/ ('', i=1, 10) /)) 421 TYPE(ctrl_out), SAVE :: o_SWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 422 'SWupSFC', 'SWup at surface', 'W/m2', (/ ('', i=1, 10) /)) 423 TYPE(ctrl_out), SAVE :: o_SWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 424 'SWupSFCclr', 'SWup clear sky at surface', 'W/m2', (/ ('', i=1, 10) /)) 425 TYPE(ctrl_out), SAVE :: o_SWdnSFC = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11, 11/), & 426 'SWdnSFC', 'SWdn at surface', 'W/m2', (/ ('', i=1, 10) /)) 427 TYPE(ctrl_out), SAVE :: o_SWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 428 'SWdnSFCclr', 'SWdn clear sky at surface', 'W/m2', (/ ('', i=1, 10) /)) 429 TYPE(ctrl_out), SAVE :: o_LWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 430 'LWupSFC', 'Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 431 TYPE(ctrl_out), SAVE :: o_LWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 432 'LWupSFCclr', 'CS Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 433 TYPE(ctrl_out), SAVE :: o_LWdnSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 434 'LWdnSFC', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 435 TYPE(ctrl_out), SAVE :: o_LWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11, 11/), & 436 'LWdnSFCclr', 'Down. CS IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 437 TYPE(ctrl_out), SAVE :: o_bils = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 438 'bils', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 439 TYPE(ctrl_out), SAVE :: o_bils_tke = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 440 'bils_tke', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 441 TYPE(ctrl_out), SAVE :: o_bils_diss = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 442 'bils_diss', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 443 TYPE(ctrl_out), SAVE :: o_bils_ec = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 444 'bils_ec', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 10) /)) 445 TYPE(ctrl_out), SAVE :: o_bils_ech = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 446 'bils_ech', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 10) /)) 447 TYPE(ctrl_out), SAVE :: o_bils_kinetic = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 448 'bils_kinetic', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 449 TYPE(ctrl_out), SAVE :: o_bils_enthalp = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 450 'bils_enthalp', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 451 TYPE(ctrl_out), SAVE :: o_bils_latent = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11, 11/), & 452 'bils_latent', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 10) /)) 453 TYPE(ctrl_out), SAVE :: o_sens = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11, 11/), & 454 'sens', 'Sensible heat flux', 'W/m2', (/ ('', i=1, 10) /)) 455 TYPE(ctrl_out), SAVE :: o_fder = ctrl_out((/ 1, 2, 10, 10, 10, 10, 11, 11, 11, 11/), & 456 'fder', 'Heat flux derivation', 'W/m2', (/ ('', i=1, 10) /)) 457 TYPE(ctrl_out), SAVE :: o_ffonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 458 'ffonte', 'Thermal flux for snow melting', 'W/m2', (/ ('', i=1, 10) /)) 459 TYPE(ctrl_out), SAVE :: o_fqcalving = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 460 'fqcalving', 'Ice Calving', 'kg/m2/s', (/ ('', i=1, 10) /)) 461 TYPE(ctrl_out), SAVE :: o_fqfonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 462 'fqfonte', 'Land ice melt', 'kg/m2/s', (/ ('', i=1, 10) /)) 463 TYPE(ctrl_out), SAVE :: o_runofflic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 464 'runofflic', 'Land ice melt to ocean', 'kg/m2/s', (/ ('', i=1, 10) /)) 465 TYPE(ctrl_out), SAVE :: o_taux = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 466 'taux', 'Zonal wind stress', 'Pa', (/ ('', i=1, 10) /)) 467 TYPE(ctrl_out), SAVE :: o_tauy = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 468 'tauy', 'Meridional wind stress', 'Pa', (/ ('', i=1, 10) /)) 468 469 469 470 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_taux_srf = (/ & 470 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 471 "Zonal wind stress"//clnsurf(1), "Pa", (/ ('', i=1, 9) /)), &472 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 473 "Zonal wind stress"//clnsurf(2), "Pa", (/ ('', i=1, 9) /)), &474 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 475 "Zonal wind stress"//clnsurf(3), "Pa", (/ ('', i=1, 9) /)), &476 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 477 "Zonal wind stress"//clnsurf(4), "Pa", (/ ('', i=1, 9) /)) /)471 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'taux_ter', & 472 "Zonal wind stress"//clnsurf(1), "Pa", (/ ('', i=1, 10) /)), & 473 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'taux_lic', & 474 "Zonal wind stress"//clnsurf(2), "Pa", (/ ('', i=1, 10) /)), & 475 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'taux_oce', & 476 "Zonal wind stress"//clnsurf(3), "Pa", (/ ('', i=1, 10) /)), & 477 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'taux_sic', & 478 "Zonal wind stress"//clnsurf(4), "Pa", (/ ('', i=1, 10) /)) /) 478 479 479 480 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tauy_srf = (/ & 480 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 481 "Meridional wind stress "//clnsurf(1),"Pa", (/ ('', i=1, 9) /)), &482 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 483 "Meridional wind stress "//clnsurf(2),"Pa", (/ ('', i=1, 9) /)), &484 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 485 "Meridional wind stress "//clnsurf(3),"Pa", (/ ('', i=1, 9) /)), &486 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 487 "Meridional wind stress "//clnsurf(4),"Pa", (/ ('', i=1, 9) /)) /)481 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tauy_ter', & 482 "Meridional wind stress "//clnsurf(1),"Pa", (/ ('', i=1, 10) /)), & 483 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tauy_lic', & 484 "Meridional wind stress "//clnsurf(2),"Pa", (/ ('', i=1, 10) /)), & 485 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tauy_oce', & 486 "Meridional wind stress "//clnsurf(3),"Pa", (/ ('', i=1, 10) /)), & 487 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tauy_sic', & 488 "Meridional wind stress "//clnsurf(4),"Pa", (/ ('', i=1, 10) /)) /) 488 489 489 490 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_pourc_srf = (/ & 490 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 491 "% "//clnsurf(1),"%", (/ ('', i=1, 9) /)), &492 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 493 "% "//clnsurf(2),"%", (/ ('', i=1, 9) /)), &494 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 495 "% "//clnsurf(3),"%", (/ ('', i=1, 9) /)), &496 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 497 "% "//clnsurf(4),"%", (/ ('', i=1, 9) /)) /)491 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/),'pourc_ter', & 492 "% "//clnsurf(1),"%", (/ ('', i=1, 10) /)), & 493 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/),'pourc_lic', & 494 "% "//clnsurf(2),"%", (/ ('', i=1, 10) /)), & 495 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/),'pourc_oce', & 496 "% "//clnsurf(3),"%", (/ ('', i=1, 10) /)), & 497 ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11, 11/),'pourc_sic', & 498 "% "//clnsurf(4),"%", (/ ('', i=1, 10) /)) /) 498 499 499 500 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_fract_srf = (/ & 500 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 501 "Fraction "//clnsurf(1),"1", (/ ('', i=1, 9) /)), &502 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 503 "Fraction "//clnsurf(2),"1", (/ ('', i=1, 9) /)), &504 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 505 "Fraction "//clnsurf(3),"1", (/ ('', i=1, 9) /)), &506 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 507 "Fraction "//clnsurf(4),"1", (/ ('', i=1, 9) /)) /)501 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'fract_ter', & 502 "Fraction "//clnsurf(1),"1", (/ ('', i=1, 10) /)), & 503 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'fract_lic', & 504 "Fraction "//clnsurf(2),"1", (/ ('', i=1, 10) /)), & 505 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'fract_oce', & 506 "Fraction "//clnsurf(3),"1", (/ ('', i=1, 10) /)), & 507 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'fract_sic', & 508 "Fraction "//clnsurf(4),"1", (/ ('', i=1, 10) /)) /) 508 509 509 510 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tsol_srf = (/ & 510 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 511 "Temperature "//clnsurf(1),"K", (/ ('', i=1, 9) /)), &512 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 513 "Temperature "//clnsurf(2),"K", (/ ('', i=1, 9) /)), &514 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 515 "Temperature "//clnsurf(3),"K", (/ ('', i=1, 9) /)), &516 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 517 "Temperature "//clnsurf(4),"K", (/ ('', i=1, 9) /)) /)511 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tsol_ter', & 512 "Temperature "//clnsurf(1),"K", (/ ('', i=1, 10) /)), & 513 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tsol_lic', & 514 "Temperature "//clnsurf(2),"K", (/ ('', i=1, 10) /)), & 515 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tsol_oce', & 516 "Temperature "//clnsurf(3),"K", (/ ('', i=1, 10) /)), & 517 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'tsol_sic', & 518 "Temperature "//clnsurf(4),"K", (/ ('', i=1, 10) /)) /) 518 519 519 520 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_evappot_srf = (/ & 520 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 521 "Temperature"//clnsurf(1),"K", (/ ('', i=1, 9) /)), &522 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 523 "Temperature"//clnsurf(2),"K", (/ ('', i=1, 9) /)), &524 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 525 "Temperature"//clnsurf(3),"K", (/ ('', i=1, 9) /)), &526 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 527 "Temperature"//clnsurf(4),"K", (/ ('', i=1, 9) /)) /)521 ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evappot_ter', & 522 "Temperature"//clnsurf(1),"K", (/ ('', i=1, 10) /)), & 523 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evappot_lic', & 524 "Temperature"//clnsurf(2),"K", (/ ('', i=1, 10) /)), & 525 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evappot_oce', & 526 "Temperature"//clnsurf(3),"K", (/ ('', i=1, 10) /)), & 527 ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'evappot_sic', & 528 "Temperature"//clnsurf(4),"K", (/ ('', i=1, 10) /)) /) 528 529 529 530 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_sens_srf = (/ & 530 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 531 "Sensible heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &532 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 533 "Sensible heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &534 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 535 "Sensible heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &536 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 537 "Sensible heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)531 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'sens_ter', & 532 "Sensible heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 533 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'sens_lic', & 534 "Sensible heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 535 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'sens_oce', & 536 "Sensible heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 537 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'sens_sic', & 538 "Sensible heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 538 539 539 540 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_lat_srf = (/ & 540 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 541 "Latent heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &542 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 543 "Latent heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &544 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 545 "Latent heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &546 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 547 "Latent heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)541 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'lat_ter', & 542 "Latent heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 543 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'lat_lic', & 544 "Latent heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 545 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'lat_oce', & 546 "Latent heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 547 ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11, 11/),'lat_sic', & 548 "Latent heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 548 549 549 550 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_flw_srf = (/ & 550 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 551 "LW "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &552 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 553 "LW "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &554 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 555 "LW "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &556 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 557 "LW "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)551 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'flw_ter', & 552 "LW "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 553 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'flw_lic', & 554 "LW "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 555 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'flw_oce', & 556 "LW "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 557 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'flw_sic', & 558 "LW "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 558 559 559 560 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_fsw_srf = (/ & 560 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 561 "SW "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &562 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 563 "SW "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &564 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 565 "SW "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &566 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 567 "SW "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)561 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'fsw_ter', & 562 "SW "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 563 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'fsw_lic', & 564 "SW "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 565 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'fsw_oce', & 566 "SW "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 567 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'fsw_sic', & 568 "SW "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 568 569 569 570 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wbils_srf = (/ & 570 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 571 "Bilan sol "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &572 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 573 "Bilan sol "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &574 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 575 "Bilan sol "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &576 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 577 "Bilan sol "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)571 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbils_ter', & 572 "Bilan sol "//clnsurf(1),"W/m2", (/ ('', i=1, 10) /)), & 573 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbils_lic', & 574 "Bilan sol "//clnsurf(2),"W/m2", (/ ('', i=1, 10) /)), & 575 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbils_oce', & 576 "Bilan sol "//clnsurf(3),"W/m2", (/ ('', i=1, 10) /)), & 577 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbils_sic', & 578 "Bilan sol "//clnsurf(4),"W/m2", (/ ('', i=1, 10) /)) /) 578 579 579 580 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wbilo_srf = (/ & 580 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 581 "Bilan eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &582 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 583 "Bilan eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &584 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 585 "Bilan eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &586 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 587 "Bilan eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)581 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbilo_ter', & 582 "Bilan eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 583 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbilo_lic', & 584 "Bilan eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 585 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbilo_oce', & 586 "Bilan eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 587 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wbilo_sic', & 588 "Bilan eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 10) /)) /) 588 589 589 590 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wevap_srf = (/ & 590 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 591 "Evap eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &592 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 593 "Evap eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &594 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 595 "Evap eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &596 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 597 "Evap eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)591 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wevap_ter', & 592 "Evap eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 593 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wevap_lic', & 594 "Evap eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 595 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wevap_oce', & 596 "Evap eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 597 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wevap_sic', & 598 "Evap eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 10) /)) /) 598 599 599 600 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wrain_srf = (/ & 600 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 601 "Pluie eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &602 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 603 "Pluie eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &604 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 605 "Pluie eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &606 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 607 "Pluie eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)601 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wrain_ter', & 602 "Pluie eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 603 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wrain_lic', & 604 "Pluie eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 605 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wrain_oce', & 606 "Pluie eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 607 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wrain_sic', & 608 "Pluie eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 10) /)) /) 608 609 609 610 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wsnow_srf = (/ & 610 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 611 "Neige eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &612 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 613 "Neige eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &614 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 615 "Neige eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &616 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 617 "Neige eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)618 619 TYPE(ctrl_out), SAVE :: o_cdrm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 620 'cdrm', 'Momentum drag coef.', '-', (/ ('', i=1, 9) /))621 TYPE(ctrl_out), SAVE :: o_cdrh = ctrl_out((/ 1, 10, 10, 7, 10, 10, 11, 11, 11 622 'cdrh', 'Heat drag coef.', '-', (/ ('', i=1, 9) /))623 TYPE(ctrl_out), SAVE :: o_cldl = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 624 'cldl', 'Low-level cloudiness', '-', (/ ('', i=1, 9) /))625 TYPE(ctrl_out), SAVE :: o_cldm = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 626 'cldm', 'Mid-level cloudiness', '-', (/ ('', i=1, 9) /))627 TYPE(ctrl_out), SAVE :: o_cldh = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 628 'cldh', 'High-level cloudiness', '-', (/ ('', i=1, 9) /))629 TYPE(ctrl_out), SAVE :: o_cldt = ctrl_out((/ 1, 1, 2, 10, 5, 10, 11, 11, 11 630 'cldt', 'Total cloudiness', '-', (/ ('', i=1, 9) /))631 TYPE(ctrl_out), SAVE :: o_JrNt = ctrl_out((/ 1, 1, 10, 7, 10, 10, 11, 11, 11 632 'JrNt', '1 if Day 0 if Night', '-', (/ ('', i=1, 9) /))633 TYPE(ctrl_out), SAVE :: o_cldhjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 634 'cldhjn', 'High-level cloudiness Day', '-', (/ ('', i=1, 9) /))635 TYPE(ctrl_out), SAVE :: o_cldmjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &636 'cldmjn', 'Mid-level cloudiness day', '-', (/ ('', i=1, 9) /))637 TYPE(ctrl_out), SAVE :: o_cldljn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &638 'cldljn', 'Low-level cloudiness day', '-', (/ ('', i=1, 9) /))639 TYPE(ctrl_out), SAVE :: o_cldtjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &640 'cldtjn', 'Total cloudiness day', '-', (/ ('', i=1, 9) /))641 642 TYPE(ctrl_out), SAVE :: o_cldq = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 643 'cldq', 'Cloud liquid water path', 'kg/m2', (/ ('', i=1, 9) /))644 TYPE(ctrl_out), SAVE :: o_lwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 645 'lwp', 'Cloud water path', 'kg/m2', (/ ('', i=1, 9) /))646 TYPE(ctrl_out), SAVE :: o_iwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 647 'iwp', 'Cloud ice water path', 'kg/m2', (/ ('', i=1, 9) /))648 TYPE(ctrl_out), SAVE :: o_ue = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 649 'ue', 'Zonal energy transport', '-', (/ ('', i=1, 9) /))650 TYPE(ctrl_out), SAVE :: o_ve = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 651 've', 'Merid energy transport', '-', (/ ('', i=1, 9) /))652 TYPE(ctrl_out), SAVE :: o_uq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 653 'uq', 'Zonal humidity transport', '-', (/ ('', i=1, 9) /))654 TYPE(ctrl_out), SAVE :: o_vq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 655 'vq', 'Merid humidity transport', '-', (/ ('', i=1, 9) /))656 TYPE(ctrl_out), SAVE :: o_cape = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 657 'cape', 'Conv avlbl pot ener', 'J/kg', (/ ('', i=1, 9) /))658 TYPE(ctrl_out), SAVE :: o_pbase = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 659 'pbase', 'Cld base pressure', 'Pa', (/ ('', i=1, 9) /))660 TYPE(ctrl_out), SAVE :: o_ptop = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 661 'ptop', 'Cld top pressure', 'Pa', (/ ('', i=1, 9) /))662 TYPE(ctrl_out), SAVE :: o_fbase = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 663 'fbase', 'Cld base mass flux', 'kg/m2/s', (/ ('', i=1, 9) /))664 TYPE(ctrl_out), SAVE :: o_plcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 665 'plcl', 'Lifting Condensation Level', 'hPa', (/ ('', i=1, 9) /))666 TYPE(ctrl_out), SAVE :: o_plfc = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 667 'plfc', 'Level of Free Convection', 'hPa', (/ ('', i=1, 9) /))668 TYPE(ctrl_out), SAVE :: o_wbeff = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 669 'wbeff', 'Conv. updraft velocity at LFC (<100)', 'm/s', (/ ('', i=1, 9) /))670 TYPE(ctrl_out), SAVE :: o_prw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 671 'prw', 'Precipitable water', 'kg/m2', (/ ('', i=1, 9) /))672 TYPE(ctrl_out), SAVE :: o_prlw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 673 'prlw', 'Precipitable liquid water', 'kg/m2', (/ ('', i=1, 9) /))674 TYPE(ctrl_out), SAVE :: o_prsw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 675 'prsw', 'Precipitable solid water', 'kg/m2', (/ ('', i=1, 9) /))676 TYPE(ctrl_out), SAVE :: o_s_pblh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 677 's_pblh', 'Boundary Layer Height', 'm', (/ ('', i=1, 9) /))678 TYPE(ctrl_out), SAVE :: o_s_pblt = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 679 's_pblt', 't at Boundary Layer Height', 'K', (/ ('', i=1, 9) /))680 TYPE(ctrl_out), SAVE :: o_s_lcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 681 's_lcl', 'Condensation level', 'm', (/ ('', i=1, 9) /))682 TYPE(ctrl_out), SAVE :: o_s_therm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 683 's_therm', 'Exces du thermique', 'K', (/ ('', i=1, 9) /))611 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wsnow_ter', & 612 "Neige eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 613 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wsnow_lic', & 614 "Neige eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 615 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wsnow_oce', & 616 "Neige eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 10) /)), & 617 ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'wsnow_sic', & 618 "Neige eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 10) /)) /) 619 620 TYPE(ctrl_out), SAVE :: o_cdrm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 621 'cdrm', 'Momentum drag coef.', '-', (/ ('', i=1, 10) /)) 622 TYPE(ctrl_out), SAVE :: o_cdrh = ctrl_out((/ 1, 10, 10, 7, 10, 10, 11, 11, 11, 11/), & 623 'cdrh', 'Heat drag coef.', '-', (/ ('', i=1, 10) /)) 624 TYPE(ctrl_out), SAVE :: o_cldl = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 625 'cldl', 'Low-level cloudiness', '-', (/ ('', i=1, 10) /)) 626 TYPE(ctrl_out), SAVE :: o_cldm = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 627 'cldm', 'Mid-level cloudiness', '-', (/ ('', i=1, 10) /)) 628 TYPE(ctrl_out), SAVE :: o_cldh = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 629 'cldh', 'High-level cloudiness', '-', (/ ('', i=1, 10) /)) 630 TYPE(ctrl_out), SAVE :: o_cldt = ctrl_out((/ 1, 1, 2, 10, 5, 10, 11, 11, 11, 11/), & 631 'cldt', 'Total cloudiness', '-', (/ ('', i=1, 10) /)) 632 TYPE(ctrl_out), SAVE :: o_JrNt = ctrl_out((/ 1, 1, 10, 7, 10, 10, 11, 11, 11, 11/), & 633 'JrNt', '1 if Day 0 if Night', '-', (/ ('', i=1, 10) /)) 634 TYPE(ctrl_out), SAVE :: o_cldhjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 635 'cldhjn', 'High-level cloudiness Day', '-', (/ ('', i=1, 10) /)) 636 TYPE(ctrl_out), SAVE :: o_cldmjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 637 'cldmjn', 'Mid-level cloudiness day', '-', (/ ('', i=1, 10) /)) 638 TYPE(ctrl_out), SAVE :: o_cldljn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 639 'cldljn', 'Low-level cloudiness day', '-', (/ ('', i=1, 10) /)) 640 TYPE(ctrl_out), SAVE :: o_cldtjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 641 'cldtjn', 'Total cloudiness day', '-', (/ ('', i=1, 10) /)) 642 643 TYPE(ctrl_out), SAVE :: o_cldq = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 644 'cldq', 'Cloud liquid water path', 'kg/m2', (/ ('', i=1, 10) /)) 645 TYPE(ctrl_out), SAVE :: o_lwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 646 'lwp', 'Cloud water path', 'kg/m2', (/ ('', i=1, 10) /)) 647 TYPE(ctrl_out), SAVE :: o_iwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 648 'iwp', 'Cloud ice water path', 'kg/m2', (/ ('', i=1, 10) /)) 649 TYPE(ctrl_out), SAVE :: o_ue = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 650 'ue', 'Zonal energy transport', '-', (/ ('', i=1, 10) /)) 651 TYPE(ctrl_out), SAVE :: o_ve = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 652 've', 'Merid energy transport', '-', (/ ('', i=1, 10) /)) 653 TYPE(ctrl_out), SAVE :: o_uq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 654 'uq', 'Zonal humidity transport', '-', (/ ('', i=1, 10) /)) 655 TYPE(ctrl_out), SAVE :: o_vq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 656 'vq', 'Merid humidity transport', '-', (/ ('', i=1, 10) /)) 657 TYPE(ctrl_out), SAVE :: o_cape = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 658 'cape', 'Conv avlbl pot ener', 'J/kg', (/ ('', i=1, 10) /)) 659 TYPE(ctrl_out), SAVE :: o_pbase = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 660 'pbase', 'Cld base pressure', 'Pa', (/ ('', i=1, 10) /)) 661 TYPE(ctrl_out), SAVE :: o_ptop = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 662 'ptop', 'Cld top pressure', 'Pa', (/ ('', i=1, 10) /)) 663 TYPE(ctrl_out), SAVE :: o_fbase = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 664 'fbase', 'Cld base mass flux', 'kg/m2/s', (/ ('', i=1, 10) /)) 665 TYPE(ctrl_out), SAVE :: o_plcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 666 'plcl', 'Lifting Condensation Level', 'hPa', (/ ('', i=1, 10) /)) 667 TYPE(ctrl_out), SAVE :: o_plfc = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 668 'plfc', 'Level of Free Convection', 'hPa', (/ ('', i=1, 10) /)) 669 TYPE(ctrl_out), SAVE :: o_wbeff = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 670 'wbeff', 'Conv. updraft velocity at LFC (<100)', 'm/s', (/ ('', i=1, 10) /)) 671 TYPE(ctrl_out), SAVE :: o_prw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 672 'prw', 'Precipitable water', 'kg/m2', (/ ('', i=1, 10) /)) 673 TYPE(ctrl_out), SAVE :: o_prlw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 674 'prlw', 'Precipitable liquid water', 'kg/m2', (/ ('', i=1, 10) /)) 675 TYPE(ctrl_out), SAVE :: o_prsw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 676 'prsw', 'Precipitable solid water', 'kg/m2', (/ ('', i=1, 10) /)) 677 TYPE(ctrl_out), SAVE :: o_s_pblh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 678 's_pblh', 'Boundary Layer Height', 'm', (/ ('', i=1, 10) /)) 679 TYPE(ctrl_out), SAVE :: o_s_pblt = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 680 's_pblt', 't at Boundary Layer Height', 'K', (/ ('', i=1, 10) /)) 681 TYPE(ctrl_out), SAVE :: o_s_lcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 682 's_lcl', 'Condensation level', 'm', (/ ('', i=1, 10) /)) 683 TYPE(ctrl_out), SAVE :: o_s_therm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 684 's_therm', 'Exces du thermique', 'K', (/ ('', i=1, 10) /)) 684 685 !IM : Les champs suivants (s_capCL, s_oliqCL, s_cteiCL, s_trmb1, s_trmb2, s_trmb3) ne sont pas definis dans HBTM.F 685 ! type(ctrl_out),save :: o_s_capCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 686 ! (/ ('', i=1, 9) /))687 ! type(ctrl_out),save :: o_s_oliqCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 688 ! (/ ('', i=1, 9) /))689 ! type(ctrl_out),save :: o_s_cteiCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 690 ! (/ ('', i=1, 9) /))691 ! type(ctrl_out),save :: o_s_trmb1 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 692 ! (/ ('', i=1, 9) /))693 ! type(ctrl_out),save :: o_s_trmb2 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 694 ! (/ ('', i=1, 9) /))695 ! type(ctrl_out),save :: o_s_trmb3 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 696 !(/ ('', i=1, 9) /))697 TYPE(ctrl_out), SAVE :: o_slab_bils = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 698 'slab_bils', 'flux atmos - slab ponderes foce', 'W/m2', (/ ('', i=1, 9) /))699 TYPE(ctrl_out), SAVE :: o_slab_bilg = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 700 'slab_bilg', 'flux glace - slab ponderes fsic', 'W/m2', (/ ('', i=1, 9) /))701 TYPE(ctrl_out), SAVE :: o_slab_qflux = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 702 'slab_qflux', 'Correction flux slab', 'W/m2', (/ ('', i=1, 9) /))703 TYPE(ctrl_out), SAVE :: o_tslab = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 704 'tslab', 'Temperature ocean slab', 'K', (/ ('', i=1, 9) /))705 TYPE(ctrl_out), SAVE :: o_slab_tice = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 706 'slab_tice', 'Temperature banquise slab', 'K', (/ ('', i=1, 9) /))707 TYPE(ctrl_out), SAVE :: o_slab_sic = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 708 'seaice', 'Epaisseur banquise slab', 'kg/m2', (/ ('', i=1, 9) /))709 TYPE(ctrl_out), SAVE :: o_slab_hdiff = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 710 'slab_hdiff', 'Horizontal diffusion', 'W/m2', (/ ('', i=1, 9) /))711 TYPE(ctrl_out), SAVE :: o_slab_ekman = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 712 'slab_ekman', 'Ekman heat transport', 'W/m2', (/ ('', i=1, 9) /))713 TYPE(ctrl_out), SAVE :: o_ale_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 714 'ale_bl', 'ALE BL', 'm2/s2', (/ ('', i=1, 9) /))715 TYPE(ctrl_out), SAVE :: o_alp_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 716 'alp_bl', 'ALP BL', 'W/m2', (/ ('', i=1, 9) /))717 TYPE(ctrl_out), SAVE :: o_ale_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 718 'ale_wk', 'ALE WK', 'm2/s2', (/ ('', i=1, 9) /))719 TYPE(ctrl_out), SAVE :: o_alp_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 720 'alp_wk', 'ALP WK', 'W/m2', (/ ('', i=1, 9) /))686 ! type(ctrl_out),save :: o_s_capCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_capCL', & 687 ! (/ ('', i=1, 10) /)) 688 ! type(ctrl_out),save :: o_s_oliqCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_oliqCL', & 689 ! (/ ('', i=1, 10) /)) 690 ! type(ctrl_out),save :: o_s_cteiCL = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_cteiCL', & 691 ! (/ ('', i=1, 10) /)) 692 ! type(ctrl_out),save :: o_s_trmb1 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_trmb1', & 693 ! (/ ('', i=1, 10) /)) 694 ! type(ctrl_out),save :: o_s_trmb2 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_trmb2', & 695 ! (/ ('', i=1, 10) /)) 696 ! type(ctrl_out),save :: o_s_trmb3 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'s_trmb3', & 697 !(/ ('', i=1, 10) /)) 698 TYPE(ctrl_out), SAVE :: o_slab_bils = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 699 'slab_bils', 'flux atmos - slab ponderes foce', 'W/m2', (/ ('', i=1, 10) /)) 700 TYPE(ctrl_out), SAVE :: o_slab_bilg = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 701 'slab_bilg', 'flux glace - slab ponderes fsic', 'W/m2', (/ ('', i=1, 10) /)) 702 TYPE(ctrl_out), SAVE :: o_slab_qflux = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 703 'slab_qflux', 'Correction flux slab', 'W/m2', (/ ('', i=1, 10) /)) 704 TYPE(ctrl_out), SAVE :: o_tslab = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 705 'tslab', 'Temperature ocean slab', 'K', (/ ('', i=1, 10) /)) 706 TYPE(ctrl_out), SAVE :: o_slab_tice = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 707 'slab_tice', 'Temperature banquise slab', 'K', (/ ('', i=1, 10) /)) 708 TYPE(ctrl_out), SAVE :: o_slab_sic = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 709 'seaice', 'Epaisseur banquise slab', 'kg/m2', (/ ('', i=1, 10) /)) 710 TYPE(ctrl_out), SAVE :: o_slab_hdiff = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 711 'slab_hdiff', 'Horizontal diffusion', 'W/m2', (/ ('', i=1, 10) /)) 712 TYPE(ctrl_out), SAVE :: o_slab_ekman = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 713 'slab_ekman', 'Ekman heat transport', 'W/m2', (/ ('', i=1, 10) /)) 714 TYPE(ctrl_out), SAVE :: o_ale_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 715 'ale_bl', 'ALE BL', 'm2/s2', (/ ('', i=1, 10) /)) 716 TYPE(ctrl_out), SAVE :: o_alp_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 717 'alp_bl', 'ALP BL', 'W/m2', (/ ('', i=1, 10) /)) 718 TYPE(ctrl_out), SAVE :: o_ale_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 719 'ale_wk', 'ALE WK', 'm2/s2', (/ ('', i=1, 10) /)) 720 TYPE(ctrl_out), SAVE :: o_alp_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 721 'alp_wk', 'ALP WK', 'W/m2', (/ ('', i=1, 10) /)) 721 722 !!! 722 723 !nrlmd+jyg< 723 type(ctrl_out),save :: o_dtvdf_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 724 'dtvdf_x', ' dtvdf off_wake','K/s', (/ ('', i=1, 9) /))725 type(ctrl_out),save :: o_dtvdf_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 726 'dtvdf_w', ' dtvdf within_wake','K/s', (/ ('', i=1, 9) /))727 type(ctrl_out),save :: o_dqvdf_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 728 'dqvdf_x', ' dqvdf off_wake','kg/kg/s', (/ ('', i=1, 9) /))729 type(ctrl_out),save :: o_dqvdf_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 730 'dqvdf_w', ' dqvdf within_wake','kg/kg/s', (/ ('', i=1, 9) /))724 type(ctrl_out),save :: o_dtvdf_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 725 'dtvdf_x', ' dtvdf off_wake','K/s', (/ ('', i=1, 10) /)) 726 type(ctrl_out),save :: o_dtvdf_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 727 'dtvdf_w', ' dtvdf within_wake','K/s', (/ ('', i=1, 10) /)) 728 type(ctrl_out),save :: o_dqvdf_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 729 'dqvdf_x', ' dqvdf off_wake','kg/kg/s', (/ ('', i=1, 10) /)) 730 type(ctrl_out),save :: o_dqvdf_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 731 'dqvdf_w', ' dqvdf within_wake','kg/kg/s', (/ ('', i=1, 10) /)) 731 732 !! 732 type(ctrl_out),save :: o_sens_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 733 'sens_x', 'sens off_wake', 'W/m2', (/ ('', i=1, 9) /))734 type(ctrl_out),save :: o_sens_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 735 'sens_w', 'sens within_wake', 'W/m2', (/ ('', i=1, 9) /))736 type(ctrl_out),save :: o_flat_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 737 'flat_x', 'flat off_wake', 'W/m2', (/ ('', i=1, 9) /))738 type(ctrl_out),save :: o_flat_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 739 'flat_w', 'flat within_wake', 'W/m2', (/ ('', i=1, 9) /))733 type(ctrl_out),save :: o_sens_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 734 'sens_x', 'sens off_wake', 'W/m2', (/ ('', i=1, 10) /)) 735 type(ctrl_out),save :: o_sens_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 736 'sens_w', 'sens within_wake', 'W/m2', (/ ('', i=1, 10) /)) 737 type(ctrl_out),save :: o_flat_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 738 'flat_x', 'flat off_wake', 'W/m2', (/ ('', i=1, 10) /)) 739 type(ctrl_out),save :: o_flat_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 740 'flat_w', 'flat within_wake', 'W/m2', (/ ('', i=1, 10) /)) 740 741 !! 741 type(ctrl_out),save :: o_delta_tsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 742 'delta_tsurf', 'Temperature difference (w-x)', 'K', (/ ('', i=1, 9) /))743 type(ctrl_out),save :: o_cdragh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 744 'cdragh_x', 'cdragh off-wake', '', (/ ('', i=1, 9) /))745 type(ctrl_out),save :: o_cdragh_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 746 'cdragh_w', 'cdragh within-wake', '', (/ ('', i=1, 9) /))747 type(ctrl_out),save :: o_cdragm_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 748 'cdragm_x', 'cdragm off-wake', '', (/ ('', i=1, 9) /))749 type(ctrl_out),save :: o_cdragm_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 750 'cdragm_w', 'cdrgam within-wake', '', (/ ('', i=1, 9) /))751 type(ctrl_out),save :: o_kh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 752 'kh', 'Kh', 'kg/s/m2', (/ ('', i=1, 9) /))753 type(ctrl_out),save :: o_kh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 754 'kh_x', 'Kh off-wake', 'kg/s/m2', (/ ('', i=1, 9) /))755 type(ctrl_out),save :: o_kh_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 756 'kh_w', 'Kh within-wake', 'kg/s/m2', (/ ('', i=1, 9) /))742 type(ctrl_out),save :: o_delta_tsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 743 'delta_tsurf', 'Temperature difference (w-x)', 'K', (/ ('', i=1, 10) /)) 744 type(ctrl_out),save :: o_cdragh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 745 'cdragh_x', 'cdragh off-wake', '', (/ ('', i=1, 10) /)) 746 type(ctrl_out),save :: o_cdragh_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 747 'cdragh_w', 'cdragh within-wake', '', (/ ('', i=1, 10) /)) 748 type(ctrl_out),save :: o_cdragm_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 749 'cdragm_x', 'cdragm off-wake', '', (/ ('', i=1, 10) /)) 750 type(ctrl_out),save :: o_cdragm_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 751 'cdragm_w', 'cdrgam within-wake', '', (/ ('', i=1, 10) /)) 752 type(ctrl_out),save :: o_kh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 753 'kh', 'Kh', 'kg/s/m2', (/ ('', i=1, 10) /)) 754 type(ctrl_out),save :: o_kh_x = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 755 'kh_x', 'Kh off-wake', 'kg/s/m2', (/ ('', i=1, 10) /)) 756 type(ctrl_out),save :: o_kh_w = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 757 'kh_w', 'Kh within-wake', 'kg/s/m2', (/ ('', i=1, 10) /)) 757 758 !>nrlmd+jyg 758 759 !!! 759 TYPE(ctrl_out), SAVE :: o_ale = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 760 'ale', 'ALE', 'm2/s2', (/ ('', i=1, 9) /))761 TYPE(ctrl_out), SAVE :: o_alp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 762 'alp', 'ALP', 'W/m2', (/ ('', i=1, 9) /))763 TYPE(ctrl_out), SAVE :: o_cin = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 764 'cin', 'Convective INhibition', 'm2/s2', (/ ('', i=1, 9) /))765 TYPE(ctrl_out), SAVE :: o_wape = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 766 'wape', '', 'm2/s2', (/ ('', i=1, 9) /))760 TYPE(ctrl_out), SAVE :: o_ale = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 761 'ale', 'ALE', 'm2/s2', (/ ('', i=1, 10) /)) 762 TYPE(ctrl_out), SAVE :: o_alp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 763 'alp', 'ALP', 'W/m2', (/ ('', i=1, 10) /)) 764 TYPE(ctrl_out), SAVE :: o_cin = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 765 'cin', 'Convective INhibition', 'm2/s2', (/ ('', i=1, 10) /)) 766 TYPE(ctrl_out), SAVE :: o_wape = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 767 'wape', '', 'm2/s2', (/ ('', i=1, 10) /)) 767 768 768 769 !!! nrlmd le 10/04/2012 769 770 770 771 !-------Spectre de thermiques de type 2 au LCL 771 TYPE(ctrl_out), SAVE :: o_n2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 772 'n2', 'Nombre de panaches de type 2', ' ', (/ ('', i=1, 9) /)) 773 TYPE(ctrl_out), SAVE :: o_s2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 774 's2', 'Surface moyenne des panaches de type 2', 'm2', (/ ('', i=1, 9) /)) 775 776 !-------Déclenchement stochastique 777 TYPE(ctrl_out), SAVE :: o_proba_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 778 'proba_notrig', & 779 'Probabilite de non-declenchement', ' ', (/ ('', i=1, 9) /)) 780 TYPE(ctrl_out), SAVE :: o_random_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 781 'random_notrig', & 782 'Tirage aleatoire de non-declenchement', ' ', (/ ('', i=1, 9) /)) 783 TYPE(ctrl_out), SAVE :: o_ale_bl_stat = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 784 'ale_bl_stat', & 785 'ALE_BL_STAT', 'm2/s2', (/ ('', i=1, 9) /)) 786 TYPE(ctrl_out), SAVE :: o_ale_bl_trig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), & 787 'ale_bl_trig', & 788 'ALE_BL_STAT + Condition S>Sthreshold', 'm2/s2', (/ ('', i=1, 9) /)) 772 TYPE(ctrl_out), SAVE :: o_n2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 773 'n2', 'Nombre de panaches de type 2', ' ', (/ ('', i=1, 10) /)) 774 TYPE(ctrl_out), SAVE :: o_s2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 775 's2', 'Surface moyenne des panaches de type 2', 'm2', (/ ('', i=1, 10) /)) 776 777 !-------Déclenchement stochastiqu 778 TYPE(ctrl_out), SAVE :: o_proba_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 779 'proba_notrig', 'Probabilite de non-declenchement', ' ', (/ ('', i=1, 10) /)) 780 TYPE(ctrl_out), SAVE :: o_random_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 781 'random_notrig', 'Tirage aleatoire de non-declenchement', ' ', (/ ('', i=1, 10) /)) 782 TYPE(ctrl_out), SAVE :: o_ale_bl_stat = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 783 'ale_bl_stat', 'ALE_BL_STAT', 'm2/s2', (/ ('', i=1, 10) /)) 784 TYPE(ctrl_out), SAVE :: o_ale_bl_trig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11, 11/), & 785 'ale_bl_trig', 'ALE_BL_STAT + Condition S>Sthreshold', 'm2/s2', (/ ('', i=1, 10) /)) 789 786 790 787 !-------Fermeture statistique 791 TYPE(ctrl_out), SAVE :: o_alp_bl_det = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 792 'alp_bl_det', 'ALP_BL_DET', 'W/m2', (/ ('', i=1, 9) /))793 TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 794 'alp_bl_fluct_m', 'ALP_BL_FLUCT_M', 'W/m2', (/ ('', i=1, 9) /))795 TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_tke = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 796 'alp_bl_fluct_tke', 'ALP_BL_FLUCT_TKE', 'W/m2', (/ ('', i=1, 9) /))797 TYPE(ctrl_out), SAVE :: o_alp_bl_conv = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 798 'alp_bl_conv', 'ALP_BL_CONV', 'W/m2', (/ ('', i=1, 9) /))799 TYPE(ctrl_out), SAVE :: o_alp_bl_stat = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 800 'alp_bl_stat', 'ALP_BL_STAT', 'W/m2', (/ ('', i=1, 9) /))788 TYPE(ctrl_out), SAVE :: o_alp_bl_det = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 789 'alp_bl_det', 'ALP_BL_DET', 'W/m2', (/ ('', i=1, 10) /)) 790 TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 791 'alp_bl_fluct_m', 'ALP_BL_FLUCT_M', 'W/m2', (/ ('', i=1, 10) /)) 792 TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_tke = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 793 'alp_bl_fluct_tke', 'ALP_BL_FLUCT_TKE', 'W/m2', (/ ('', i=1, 10) /)) 794 TYPE(ctrl_out), SAVE :: o_alp_bl_conv = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 795 'alp_bl_conv', 'ALP_BL_CONV', 'W/m2', (/ ('', i=1, 10) /)) 796 TYPE(ctrl_out), SAVE :: o_alp_bl_stat = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11, 11/), & 797 'alp_bl_stat', 'ALP_BL_STAT', 'W/m2', (/ ('', i=1, 10) /)) 801 798 802 799 !!! fin nrlmd le 10/04/2012 … … 805 802 806 803 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_uSTDlevs = (/ & 807 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 808 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &809 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 810 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &811 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 812 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &813 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 814 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &815 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 816 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &817 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 818 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &819 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 820 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)804 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u850', "Zonal wind 850hPa", "m/s", & 805 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 806 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u700', "Zonal wind 700hPa", "m/s", & 807 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 808 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u500', "Zonal wind 500hPa", "m/s", & 809 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 810 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u200', "Zonal wind 200hPa", "m/s", & 811 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 812 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u100', "Zonal wind 100hPa", "m/s", & 813 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 814 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u50', "Zonal wind 50hPa", "m/s", & 815 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 816 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'u10', "Zonal wind 10hPa", "m/s", & 817 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 821 818 822 819 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_vSTDlevs = (/ & 823 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 824 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &825 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 826 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &827 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 828 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &829 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 830 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &831 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 832 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &833 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 834 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &835 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 836 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)820 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v850', "Meridional wind 850hPa", "m/s", & 821 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 822 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v700', "Meridional wind 700hPa", "m/s", & 823 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 824 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v500', "Meridional wind 500hPa", "m/s", & 825 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 826 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v200', "Meridional wind 200hPa", "m/s", & 827 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 828 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v100', "Meridional wind 100hPa", "m/s", & 829 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 830 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v50', "Meridional wind 50hPa", "m/s", & 831 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 832 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'v10', "Meridional wind 10hPa", "m/s", & 833 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 837 834 838 835 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_wSTDlevs = (/ & 839 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 840 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &841 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 842 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &843 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 844 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &845 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 846 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &847 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 848 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &849 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 850 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &851 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 852 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)836 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w850', "Vertical wind 850hPa", "Pa/s", & 837 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 838 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w700', "Vertical wind 700hPa", "Pa/s", & 839 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 840 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w500', "Vertical wind 500hPa", "Pa/s", & 841 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 842 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w200', "Vertical wind 200hPa", "Pa/s", & 843 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 844 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w100', "Vertical wind 100hPa", "Pa/s", & 845 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 846 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w50', "Vertical wind 50hPa", "Pa/s", & 847 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 848 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'w10', "Vertical wind 10hPa", "Pa/s", & 849 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 853 850 854 851 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_tSTDlevs = (/ & 855 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 856 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &857 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 858 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &859 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 860 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &861 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 862 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &863 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 864 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &865 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 866 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &867 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 868 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)852 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t850', "Temperature 850hPa", "K", & 853 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 854 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t700', "Temperature 700hPa", "K", & 855 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 856 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t500', "Temperature 500hPa", "K", & 857 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 858 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t200', "Temperature 200hPa", "K", & 859 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 860 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t100', "Temperature 100hPa", "K", & 861 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 862 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t50', "Temperature 50hPa", "K", & 863 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 864 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'t10', "Temperature 10hPa", "K", & 865 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 869 866 870 867 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_qSTDlevs = (/ & 871 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 872 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &873 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 874 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &875 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 876 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &877 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 878 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &879 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 880 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &881 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 882 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &883 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 884 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)868 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q850', "Specific humidity 850hPa", & 869 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 870 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q700', "Specific humidity 700hPa", & 871 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 872 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q500', "Specific humidity 500hPa", & 873 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 874 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q200', "Specific humidity 200hPa", & 875 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 876 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q100', "Specific humidity 100hPa", & 877 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 878 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q50', "Specific humidity 50hPa", & 879 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 880 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'q10', "Specific humidity 10hPa", & 881 "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 885 882 886 883 TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_zSTDlevs = (/ & 887 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 888 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &889 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 890 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &891 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 892 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &893 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 894 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &895 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 896 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &897 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 898 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &899 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 900 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)901 902 TYPE(ctrl_out), SAVE :: o_t_oce_sic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 903 't_oce_sic', 'Temp mixte oce-sic', 'K', (/ ('', i=1, 9) /))904 TYPE(ctrl_out), SAVE :: o_weakinv = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 905 'weakinv', 'Weak inversion', '-', (/ ('', i=1, 9) /))906 TYPE(ctrl_out), SAVE :: o_dthmin = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 907 'dthmin', 'dTheta mini', 'K/m', (/ ('', i=1, 9) /))884 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z850', "Geopotential height 850hPa", & 885 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 886 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z700', "Geopotential height 700hPa", & 887 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 888 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z500', "Geopotential height 500hPa", & 889 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 890 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z200', "Geopotential height 200hPa", & 891 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 892 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z100', "Geopotential height 100hPa", & 893 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 894 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z50', "Geopotential height 50hPa", & 895 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), & 896 ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11, 11/),'z10', "Geopotential height 10hPa", & 897 "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /) 898 899 TYPE(ctrl_out), SAVE :: o_t_oce_sic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 900 't_oce_sic', 'Temp mixte oce-sic', 'K', (/ ('', i=1, 10) /)) 901 TYPE(ctrl_out), SAVE :: o_weakinv = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 902 'weakinv', 'Weak inversion', '-', (/ ('', i=1, 10) /)) 903 TYPE(ctrl_out), SAVE :: o_dthmin = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 904 'dthmin', 'dTheta mini', 'K/m', (/ ('', i=1, 10) /)) 908 905 909 906 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_u10_srf = (/ & 910 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_ter', "", "", (/ ('', i=1, 9) /)), &911 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_lic', "", "", (/ ('', i=1, 9) /)), &912 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_oce', "", "", (/ ('', i=1, 9) /)), &913 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_sic', "", "", (/ ('', i=1, 9) /)) /)907 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'u10_ter', "", "", (/ ('', i=1, 10) /)), & 908 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'u10_lic', "", "", (/ ('', i=1, 10) /)), & 909 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'u10_oce', "", "", (/ ('', i=1, 10) /)), & 910 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'u10_sic', "", "", (/ ('', i=1, 10) /)) /) 914 911 915 912 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_v10_srf = (/ & 916 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_ter', "", "", (/ ('', i=1, 9) /)), &917 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_lic', "", "", (/ ('', i=1, 9) /)), &918 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_oce', "", "", (/ ('', i=1, 9) /)), &919 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_sic', "", "", (/ ('', i=1, 9) /)) /)920 921 TYPE(ctrl_out), SAVE :: o_cldtau = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 922 'cldtau', 'Cloud optical thickness', '1', (/ ('', i=1, 9) /))923 TYPE(ctrl_out), SAVE :: o_cldemi = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 924 'cldemi', 'Cloud optical emissivity', '1', (/ ('', i=1, 9) /))925 TYPE(ctrl_out), SAVE :: o_rh2m = ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11 926 'rh2m', 'Relative humidity at 2m', '%', (/ ('', i=1, 9) /))927 TYPE(ctrl_out), SAVE :: o_rh2m_min = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 913 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'v10_ter', "", "", (/ ('', i=1, 10) /)), & 914 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'v10_lic', "", "", (/ ('', i=1, 10) /)), & 915 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'v10_oce', "", "", (/ ('', i=1, 10) /)), & 916 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'v10_sic', "", "", (/ ('', i=1, 10) /)) /) 917 918 TYPE(ctrl_out), SAVE :: o_cldtau = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 919 'cldtau', 'Cloud optical thickness', '1', (/ ('', i=1, 10) /)) 920 TYPE(ctrl_out), SAVE :: o_cldemi = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 921 'cldemi', 'Cloud optical emissivity', '1', (/ ('', i=1, 10) /)) 922 TYPE(ctrl_out), SAVE :: o_rh2m = ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 923 'rh2m', 'Relative humidity at 2m', '%', (/ ('', i=1, 10) /)) 924 TYPE(ctrl_out), SAVE :: o_rh2m_min = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 928 925 'rh2m_min', 'Min Relative humidity at 2m', '%', & 929 (/ 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)' /)) 930 TYPE(ctrl_out), SAVE :: o_rh2m_max = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), & 931 'rh2m_max', 'Max Relative humidity at 2m', '%', & 932 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 926 (/ 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', & 927 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)', 't_min(X)' /)) 928 TYPE(ctrl_out), SAVE :: o_rh2m_max = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 929 'rh2m_max', 'Max Relative humidity at 2m', '%', & 930 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 933 931 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 934 TYPE(ctrl_out), SAVE :: o_qsat2m = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), & 935 'qsat2m', 'Saturant humidity at 2m', '%', (/ ('', i=1, 9) /)) 936 TYPE(ctrl_out), SAVE :: o_tpot = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), & 937 'tpot', 'Surface air potential temperature', 'K', (/ ('', i=1, 9) /)) 938 TYPE(ctrl_out), SAVE :: o_tpote = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), & 939 'tpote', & 940 'Surface air equivalent potential temperature', 'K', (/ ('', i=1, 9) /)) 941 TYPE(ctrl_out), SAVE :: o_tke = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 942 'tke ', 'TKE', 'm2/s2', (/ ('', i=1, 9) /)) 943 TYPE(ctrl_out), SAVE :: o_tke_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 944 'tke_max', 'TKE max', 'm2/s2', & 932 TYPE(ctrl_out), SAVE :: o_qsat2m = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 933 'qsat2m', 'Saturant humidity at 2m', '%', (/ ('', i=1, 10) /)) 934 TYPE(ctrl_out), SAVE :: o_tpot = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 935 'tpot', 'Surface air potential temperature', 'K', (/ ('', i=1, 10) /)) 936 TYPE(ctrl_out), SAVE :: o_tpote = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 937 'tpote', 'Surface air equivalent potential temperature', 'K', (/ ('', i=1, 10) /)) 938 TYPE(ctrl_out), SAVE :: o_tke = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 939 'tke ', 'TKE', 'm2/s2', (/ ('', i=1, 10) /)) 940 TYPE(ctrl_out), SAVE :: o_tke_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 941 'tke_max', 'TKE max', 'm2/s2', & 945 942 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 946 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /))943 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)' /)) 947 944 948 945 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tke_srf = (/ & 949 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 950 "Max Turb. Kinetic Energy "//clnsurf(1),"m2/s2", (/ ('', i=1, 9) /)), &951 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 952 "Max Turb. Kinetic Energy "//clnsurf(2),"m2/s2", (/ ('', i=1, 9) /)), &953 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 954 "Max Turb. Kinetic Energy "//clnsurf(3),"m2/s2", (/ ('', i=1, 9) /)), &955 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 956 "Max Turb. Kinetic Energy "//clnsurf(4),"m2/s2", (/ ('', i=1, 9) /)) /)946 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_ter', & 947 "Max Turb. Kinetic Energy "//clnsurf(1),"m2/s2", (/ ('', i=1, 10) /)), & 948 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_lic', & 949 "Max Turb. Kinetic Energy "//clnsurf(2),"m2/s2", (/ ('', i=1, 10) /)), & 950 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_oce', & 951 "Max Turb. Kinetic Energy "//clnsurf(3),"m2/s2", (/ ('', i=1, 10) /)), & 952 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_sic', & 953 "Max Turb. Kinetic Energy "//clnsurf(4),"m2/s2", (/ ('', i=1, 10) /)) /) 957 954 958 955 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mixmin = (/ & 959 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 960 "PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &961 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 962 "PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &963 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 964 "PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &965 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 966 "PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)956 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mixmin_ter', & 957 "PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 10) /)), & 958 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mixmin_lic', & 959 "PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 10) /)), & 960 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mixmin_oce', & 961 "PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 10) /)), & 962 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mixmin_sic', & 963 "PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 10) /)) /) 967 964 968 965 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mix = (/ & 969 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 970 "min PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &971 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 972 "min PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &973 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 974 "min PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &975 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 976 "min PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)966 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mix_ter', & 967 "min PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 10) /)), & 968 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mix_lic', & 969 "min PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 10) /)), & 970 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mix_oce', & 971 "min PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 10) /)), & 972 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'l_mix_sic', & 973 "min PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 10) /)) /) 977 974 978 975 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tke_max_srf = (/ & 979 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 976 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_max_ter', & 980 977 "Max Turb. Kinetic Energy "//clnsurf(1),"-", & 981 978 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 982 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), &983 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 979 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), & 980 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_max_lic', & 984 981 "Max Turb. Kinetic Energy "//clnsurf(2),"-", & 985 982 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 986 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), &987 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 983 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), & 984 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_max_oce', & 988 985 "Max Turb. Kinetic Energy "//clnsurf(3),"-", & 989 986 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 990 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), &991 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 987 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)), & 988 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'tke_max_sic', & 992 989 "Max Turb. Kinetic Energy "//clnsurf(4),"-", & 993 990 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 994 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) /)991 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) /) 995 992 996 993 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_dltpbltke_srf = (/ & 997 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 998 "TKE difference (w - x) "//clnsurf(1),"-", (/ ('', i=1, 9) /)), &999 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 1000 "TKE difference (w - x) "//clnsurf(2),"-", (/ ('', i=1, 9) /)), &1001 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 1002 "TKE difference (w - x) "//clnsurf(3),"-", (/ ('', i=1, 9) /)), &1003 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 1004 "TKE difference (w - x) "//clnsurf(4),"-", (/ ('', i=1, 9) /)) /)1005 1006 TYPE(ctrl_out), SAVE :: o_kz = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1007 'kz', 'Kz melange', 'm2/s', (/ ('', i=1, 9) /))1008 TYPE(ctrl_out), SAVE :: o_kz_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 994 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_ter', & 995 "TKE difference (w - x) "//clnsurf(1),"-", (/ ('', i=1, 10) /)), & 996 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_lic', & 997 "TKE difference (w - x) "//clnsurf(2),"-", (/ ('', i=1, 10) /)), & 998 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_oce', & 999 "TKE difference (w - x) "//clnsurf(3),"-", (/ ('', i=1, 10) /)), & 1000 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11, 11/),'dltpbltke_sic', & 1001 "TKE difference (w - x) "//clnsurf(4),"-", (/ ('', i=1, 10) /)) /) 1002 1003 TYPE(ctrl_out), SAVE :: o_kz = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1004 'kz', 'Kz melange', 'm2/s', (/ ('', i=1, 10) /)) 1005 TYPE(ctrl_out), SAVE :: o_kz_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1009 1006 'kz_max', 'Kz melange max', 'm2/s', & 1010 1007 (/ 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', 't_max(X)', & 1011 't_max(X)', "t_max(X)", "t_max(X)", "t_max(X)" /))1012 TYPE(ctrl_out), SAVE :: o_SWnetOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1013 'SWnetOR', 'Sfce net SW radiation OR', 'W/m2', (/ ('', i=1, 9) /))1014 TYPE(ctrl_out), SAVE :: o_SWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1015 'SWdownOR', 'Sfce incident SW radiation OR', 'W/m2', (/ ('', i=1, 9) /))1016 TYPE(ctrl_out), SAVE :: o_LWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1017 'LWdownOR', 'Sfce incident LW radiation OR', 'W/m2', (/ ('', i=1, 9) /))1018 TYPE(ctrl_out), SAVE :: o_snowl = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 1019 'snowl', 'Solid Large-scale Precip.', 'kg/(m2*s)', (/ ('', i=1, 9) /))1020 TYPE(ctrl_out), SAVE :: o_cape_max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 1008 't_max(X)', "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 1009 TYPE(ctrl_out), SAVE :: o_SWnetOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1010 'SWnetOR', 'Sfce net SW radiation OR', 'W/m2', (/ ('', i=1, 10) /)) 1011 TYPE(ctrl_out), SAVE :: o_SWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1012 'SWdownOR', 'Sfce incident SW radiation OR', 'W/m2', (/ ('', i=1, 10) /)) 1013 TYPE(ctrl_out), SAVE :: o_LWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1014 'LWdownOR', 'Sfce incident LW radiation OR', 'W/m2', (/ ('', i=1, 10) /)) 1015 TYPE(ctrl_out), SAVE :: o_snowl = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 1016 'snowl', 'Solid Large-scale Precip.', 'kg/(m2*s)', (/ ('', i=1, 10) /)) 1017 TYPE(ctrl_out), SAVE :: o_cape_max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 1021 1018 'cape_max', 'CAPE max.', 'J/kg', & 1022 1019 (/ "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", & 1023 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /))1024 TYPE(ctrl_out), SAVE :: o_solldown = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 1025 'solldown', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))1026 TYPE(ctrl_out), SAVE :: o_dtsvdfo = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1027 'dtsvdfo', 'Boundary-layer dTs(o)', 'K/s', (/ ('', i=1, 9) /))1028 TYPE(ctrl_out), SAVE :: o_dtsvdft = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1029 'dtsvdft', 'Boundary-layer dTs(t)', 'K/s', (/ ('', i=1, 9) /))1030 TYPE(ctrl_out), SAVE :: o_dtsvdfg = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1031 'dtsvdfg', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 9) /))1032 TYPE(ctrl_out), SAVE :: o_dtsvdfi = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1033 'dtsvdfi', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 9) /))1034 TYPE(ctrl_out), SAVE :: o_z0m = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1035 'z0m', 'roughness length, momentum', '-', (/ ('', i=1, 9) /))1036 TYPE(ctrl_out), SAVE :: o_z0h = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1037 'z0h', 'roughness length, enthalpy', '-', (/ ('', i=1, 9) /))1038 TYPE(ctrl_out), SAVE :: o_topswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1039 'topswad', 'ADE at TOA', 'W/m2', (/ ('', i=1, 9) /))1040 TYPE(ctrl_out), SAVE :: o_topswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1041 'topswad0', 'ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1042 TYPE(ctrl_out), SAVE :: o_topswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1043 'topswai', 'AIE at TOA', 'W/m2', (/ ('', i=1, 9) /))1044 TYPE(ctrl_out), SAVE :: o_solswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1045 'solswad', 'ADE at SRF', 'W/m2', (/ ('', i=1, 9) /))1046 TYPE(ctrl_out), SAVE :: o_solswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1047 'solswad0', 'ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1048 TYPE(ctrl_out), SAVE :: o_solswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1049 'solswai', 'AIE at SFR', 'W/m2', (/ ('', i=1, 9) /))1050 TYPE(ctrl_out), SAVE :: o_toplwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1051 'toplwad', 'LW-ADE at TOA', 'W/m2', (/ ('', i=1, 9) /))1052 TYPE(ctrl_out), SAVE :: o_toplwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1053 'toplwad0', 'LW-ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1054 TYPE(ctrl_out), SAVE :: o_toplwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1055 'toplwai', 'LW-AIE at TOA', 'W/m2', (/ ('', i=1, 9) /))1056 TYPE(ctrl_out), SAVE :: o_sollwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1057 'sollwad', 'LW-ADE at SRF', 'W/m2', (/ ('', i=1, 9) /))1058 TYPE(ctrl_out), SAVE :: o_sollwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1059 'sollwad0', 'LW-ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1060 TYPE(ctrl_out), SAVE :: o_sollwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1061 'sollwai', 'LW-AIE at SFR', 'W/m2', (/ ('', i=1, 9) /))1020 "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)", "t_max(X)" /)) 1021 TYPE(ctrl_out), SAVE :: o_solldown = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11, 11/), & 1022 'solldown', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 10) /)) 1023 TYPE(ctrl_out), SAVE :: o_dtsvdfo = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1024 'dtsvdfo', 'Boundary-layer dTs(o)', 'K/s', (/ ('', i=1, 10) /)) 1025 TYPE(ctrl_out), SAVE :: o_dtsvdft = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1026 'dtsvdft', 'Boundary-layer dTs(t)', 'K/s', (/ ('', i=1, 10) /)) 1027 TYPE(ctrl_out), SAVE :: o_dtsvdfg = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1028 'dtsvdfg', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 10) /)) 1029 TYPE(ctrl_out), SAVE :: o_dtsvdfi = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1030 'dtsvdfi', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 10) /)) 1031 TYPE(ctrl_out), SAVE :: o_z0m = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1032 'z0m', 'roughness length, momentum', '-', (/ ('', i=1, 10) /)) 1033 TYPE(ctrl_out), SAVE :: o_z0h = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1034 'z0h', 'roughness length, enthalpy', '-', (/ ('', i=1, 10) /)) 1035 TYPE(ctrl_out), SAVE :: o_topswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1036 'topswad', 'ADE at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1037 TYPE(ctrl_out), SAVE :: o_topswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1038 'topswad0', 'ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1039 TYPE(ctrl_out), SAVE :: o_topswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1040 'topswai', 'AIE at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1041 TYPE(ctrl_out), SAVE :: o_solswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1042 'solswad', 'ADE at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1043 TYPE(ctrl_out), SAVE :: o_solswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1044 'solswad0', 'ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1045 TYPE(ctrl_out), SAVE :: o_solswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1046 'solswai', 'AIE at SFR', 'W/m2', (/ ('', i=1, 10) /)) 1047 TYPE(ctrl_out), SAVE :: o_toplwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1048 'toplwad', 'LW-ADE at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1049 TYPE(ctrl_out), SAVE :: o_toplwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1050 'toplwad0', 'LW-ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1051 TYPE(ctrl_out), SAVE :: o_toplwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1052 'toplwai', 'LW-AIE at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1053 TYPE(ctrl_out), SAVE :: o_sollwad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1054 'sollwad', 'LW-ADE at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1055 TYPE(ctrl_out), SAVE :: o_sollwad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1056 'sollwad0', 'LW-ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1057 TYPE(ctrl_out), SAVE :: o_sollwai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1058 'sollwai', 'LW-AIE at SFR', 'W/m2', (/ ('', i=1, 10) /)) 1062 1059 1063 1060 1064 1061 TYPE(ctrl_out),SAVE,DIMENSION(naero_tot) :: o_tausumaero = & 1065 (/ ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1066 "Aerosol Optical depth at 550 nm "//name_aero_tau(1),"1", (/ ('', i=1, 9) /)), &1067 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1068 "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"2", (/ ('', i=1, 9) /)), &1069 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1070 "Aerosol Optical depth at 550 nm "//name_aero_tau(3),"3", (/ ('', i=1, 9) /)), &1071 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1072 "Aerosol Optical depth at 550 nm "//name_aero_tau(4),"4", (/ ('', i=1, 9) /)), &1073 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1074 "Aerosol Optical depth at 550 nm "//name_aero_tau(5),"5", (/ ('', i=1, 9) /)), &1075 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1076 "Aerosol Optical depth at 550 nm "//name_aero_tau(6),"6", (/ ('', i=1, 9) /)), &1077 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1078 "Aerosol Optical depth at 550 nm "//name_aero_tau(7),"7", (/ ('', i=1, 9) /)), &1079 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1080 "Aerosol Optical depth at 550 nm "//name_aero_tau(8),"8", (/ ('', i=1, 9) /)), &1081 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1082 "Aerosol Optical depth at 550 nm "//name_aero_tau(9),"9", (/ ('', i=1, 9) /)), &1083 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1084 "Aerosol Optical depth at 550 nm "//name_aero_tau(10),"10", (/ ('', i=1, 9) /)), &1085 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1086 "Aerosol Optical depth at 550 nm "//name_aero_tau(11),"11", (/ ('', i=1, 9) /)), &1087 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1088 "Aerosol Optical depth at 550 nm "//name_aero_tau(12),"12", (/ ('', i=1, 9) /)), &1089 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1090 "Aerosol Optical depth at 550 nm "//name_aero_tau(13),"13", (/ ('', i=1, 9) /)), &1091 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1092 "Aerosol Optical depth at 550 nm "//name_aero_tau(14),"14", (/ ('', i=1, 9) /)) /)1062 (/ ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(1), & 1063 "Aerosol Optical depth at 550 nm "//name_aero_tau(1),"1", (/ ('', i=1, 10) /)), & 1064 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(2), & 1065 "Aerosol Optical depth at 550 nm "//name_aero_tau(2),"2", (/ ('', i=1, 10) /)), & 1066 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(3), & 1067 "Aerosol Optical depth at 550 nm "//name_aero_tau(3),"3", (/ ('', i=1, 10) /)), & 1068 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(4), & 1069 "Aerosol Optical depth at 550 nm "//name_aero_tau(4),"4", (/ ('', i=1, 10) /)), & 1070 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(5), & 1071 "Aerosol Optical depth at 550 nm "//name_aero_tau(5),"5", (/ ('', i=1, 10) /)), & 1072 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(6), & 1073 "Aerosol Optical depth at 550 nm "//name_aero_tau(6),"6", (/ ('', i=1, 10) /)), & 1074 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(7), & 1075 "Aerosol Optical depth at 550 nm "//name_aero_tau(7),"7", (/ ('', i=1, 10) /)), & 1076 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(8), & 1077 "Aerosol Optical depth at 550 nm "//name_aero_tau(8),"8", (/ ('', i=1, 10) /)), & 1078 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(9), & 1079 "Aerosol Optical depth at 550 nm "//name_aero_tau(9),"9", (/ ('', i=1, 10) /)), & 1080 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(10), & 1081 "Aerosol Optical depth at 550 nm "//name_aero_tau(10),"10", (/ ('', i=1, 10) /)), & 1082 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(11), & 1083 "Aerosol Optical depth at 550 nm "//name_aero_tau(11),"11", (/ ('', i=1, 10) /)), & 1084 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(12), & 1085 "Aerosol Optical depth at 550 nm "//name_aero_tau(12),"12", (/ ('', i=1, 10) /)), & 1086 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(13), & 1087 "Aerosol Optical depth at 550 nm "//name_aero_tau(13),"13", (/ ('', i=1, 10) /)), & 1088 ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'OD550_'//name_aero_tau(14), & 1089 "Aerosol Optical depth at 550 nm "//name_aero_tau(14),"14", (/ ('', i=1, 10) /)) /) 1093 1090 ! 1094 TYPE(ctrl_out), SAVE :: o_tausumaero_lw = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1095 'OD_10um_STRAT', 'Stratospheric Aerosol Optical depth at 10 um ', '1', (/ ('', i=1, 9) /))1091 TYPE(ctrl_out), SAVE :: o_tausumaero_lw = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1092 'OD_10um_STRAT', 'Stratospheric Aerosol Optical depth at 10 um ', '1', (/ ('', i=1, 10) /)) 1096 1093 ! 1097 TYPE(ctrl_out), SAVE :: o_od550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1098 'od550aer', 'Total aerosol optical depth at 550nm', '-', (/ ('', i=1, 9) /))1099 TYPE(ctrl_out), SAVE :: o_od865aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1100 'od865aer', 'Total aerosol optical depth at 870nm', '-', (/ ('', i=1, 9) /))1101 TYPE(ctrl_out), SAVE :: o_absvisaer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1102 'absvisaer', 'Absorption aerosol visible optical depth', '-', (/ ('', i=1, 9) /))1103 TYPE(ctrl_out), SAVE :: o_od550lt1aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1104 'od550lt1aer', 'Fine mode optical depth', '-', (/ ('', i=1, 9) /))1105 TYPE(ctrl_out), SAVE :: o_sconcso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1106 'sconcso4', 'Surface Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 9) /))1107 TYPE(ctrl_out), SAVE :: o_sconcno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1108 'sconcno3', 'Surface Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 9) /))1109 TYPE(ctrl_out), SAVE :: o_sconcoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1110 'sconcoa', 'Surface Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 9) /))1111 TYPE(ctrl_out), SAVE :: o_sconcbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1112 'sconcbc', 'Surface Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 9) /))1113 TYPE(ctrl_out), SAVE :: o_sconcss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1114 'sconcss', 'Surface Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 9) /))1115 TYPE(ctrl_out), SAVE :: o_sconcdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1116 'sconcdust', 'Surface Concentration of Dust ', 'kg/m3', (/ ('', i=1, 9) /))1117 TYPE(ctrl_out), SAVE :: o_concso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1118 'concso4', 'Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 9) /))1119 TYPE(ctrl_out), SAVE :: o_concno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1120 'concno3', 'Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 9) /))1121 TYPE(ctrl_out), SAVE :: o_concoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1122 'concoa', 'Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 9) /))1123 TYPE(ctrl_out), SAVE :: o_concbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1124 'concbc', 'Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 9) /))1125 TYPE(ctrl_out), SAVE :: o_concss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1126 'concss', 'Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 9) /))1127 TYPE(ctrl_out), SAVE :: o_concdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1128 'concdust', 'Concentration of Dust ', 'kg/m3', (/ ('', i=1, 9) /))1129 TYPE(ctrl_out), SAVE :: o_loadso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1130 'loadso4', 'Column Load of Sulfate ', 'kg/m2', (/ ('', i=1, 9) /))1131 TYPE(ctrl_out), SAVE :: o_loadoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1132 'loadoa', 'Column Load of Organic Aerosol ', 'kg/m2', (/ ('', i=1, 9) /))1133 TYPE(ctrl_out), SAVE :: o_loadbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1134 'loadbc', 'Column Load of Black Carbon ', 'kg/m2', (/ ('', i=1, 9) /))1135 TYPE(ctrl_out), SAVE :: o_loadss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1136 'loadss', 'Column Load of Sea Salt ', 'kg/m2', (/ ('', i=1, 9) /))1137 TYPE(ctrl_out), SAVE :: o_loaddust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1138 'loaddust', 'Column Load of Dust ', 'kg/m2', (/ ('', i=1, 9) /))1139 TYPE(ctrl_out), SAVE :: o_swtoaas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1140 'swtoaas_nat', 'Natural aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1141 TYPE(ctrl_out), SAVE :: o_swsrfas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1142 'swsrfas_nat', 'Natural aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1143 TYPE(ctrl_out), SAVE :: o_swtoacs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1144 'swtoacs_nat', 'Natural aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1145 TYPE(ctrl_out), SAVE :: o_swsrfcs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1146 'swsrfcs_nat', 'Natural aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1147 TYPE(ctrl_out), SAVE :: o_swtoaas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1148 'swtoaas_ant', 'Anthropogenic aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1149 TYPE(ctrl_out), SAVE :: o_swsrfas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1150 'swsrfas_ant', 'Anthropogenic aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1151 TYPE(ctrl_out), SAVE :: o_swtoacs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1152 'swtoacs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))1153 TYPE(ctrl_out), SAVE :: o_swsrfcs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1154 'swsrfcs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))1155 TYPE(ctrl_out), SAVE :: o_swtoacf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1156 'swtoacf_nat', 'Natural aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 9) /))1157 TYPE(ctrl_out), SAVE :: o_swsrfcf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1158 'swsrfcf_nat', 'Natural aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 9) /))1159 TYPE(ctrl_out), SAVE :: o_swtoacf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1160 'swtoacf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 9) /))1161 TYPE(ctrl_out), SAVE :: o_swsrfcf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1162 'swsrfcf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 9) /))1163 TYPE(ctrl_out), SAVE :: o_swtoacf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1164 'swtoacf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at TOA', 'W/m2', (/ ('', i=1, 9) /))1165 TYPE(ctrl_out), SAVE :: o_swsrfcf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 1166 'swsrfcf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at SRF', 'W/m2', (/ ('', i=1, 9) /))1167 TYPE(ctrl_out), SAVE :: o_cldncl = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1168 'cldncl', 'CDNC at top of liquid water cloud', 'm-3', (/ ('', i=1, 9) /))1169 TYPE(ctrl_out), SAVE :: o_reffclwtop = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1170 'reffclwtop', 'Droplet effective radius at top of liquid water cloud', 'm', (/ ('', i=1, 9) /))1171 TYPE(ctrl_out), SAVE :: o_cldnvi = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1172 'cldnvi', 'Column Integrated Cloud Droplet Number', 'm-2', (/ ('', i=1, 9) /))1173 TYPE(ctrl_out), SAVE :: o_lcc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1174 'lcc', 'Cloud liquid fraction at top of cloud', '1', (/ ('', i=1, 9) /))1094 TYPE(ctrl_out), SAVE :: o_od550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1095 'od550aer', 'Total aerosol optical depth at 550nm', '-', (/ ('', i=1, 10) /)) 1096 TYPE(ctrl_out), SAVE :: o_od865aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1097 'od865aer', 'Total aerosol optical depth at 870nm', '-', (/ ('', i=1, 10) /)) 1098 TYPE(ctrl_out), SAVE :: o_absvisaer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1099 'absvisaer', 'Absorption aerosol visible optical depth', '-', (/ ('', i=1, 10) /)) 1100 TYPE(ctrl_out), SAVE :: o_od550lt1aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1101 'od550lt1aer', 'Fine mode optical depth', '-', (/ ('', i=1, 10) /)) 1102 TYPE(ctrl_out), SAVE :: o_sconcso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1103 'sconcso4', 'Surface Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 10) /)) 1104 TYPE(ctrl_out), SAVE :: o_sconcno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1105 'sconcno3', 'Surface Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 10) /)) 1106 TYPE(ctrl_out), SAVE :: o_sconcoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1107 'sconcoa', 'Surface Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 10) /)) 1108 TYPE(ctrl_out), SAVE :: o_sconcbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1109 'sconcbc', 'Surface Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 10) /)) 1110 TYPE(ctrl_out), SAVE :: o_sconcss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1111 'sconcss', 'Surface Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 10) /)) 1112 TYPE(ctrl_out), SAVE :: o_sconcdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1113 'sconcdust', 'Surface Concentration of Dust ', 'kg/m3', (/ ('', i=1, 10) /)) 1114 TYPE(ctrl_out), SAVE :: o_concso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1115 'concso4', 'Concentration of Sulfate ', 'kg/m3', (/ ('', i=1, 10) /)) 1116 TYPE(ctrl_out), SAVE :: o_concno3 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1117 'concno3', 'Concentration of Nitrate ', 'kg/m3', (/ ('', i=1, 10) /)) 1118 TYPE(ctrl_out), SAVE :: o_concoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1119 'concoa', 'Concentration of Organic Aerosol ', 'kg/m3', (/ ('', i=1, 10) /)) 1120 TYPE(ctrl_out), SAVE :: o_concbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1121 'concbc', 'Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 10) /)) 1122 TYPE(ctrl_out), SAVE :: o_concss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1123 'concss', 'Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 10) /)) 1124 TYPE(ctrl_out), SAVE :: o_concdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1125 'concdust', 'Concentration of Dust ', 'kg/m3', (/ ('', i=1, 10) /)) 1126 TYPE(ctrl_out), SAVE :: o_loadso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1127 'loadso4', 'Column Load of Sulfate ', 'kg/m2', (/ ('', i=1, 10) /)) 1128 TYPE(ctrl_out), SAVE :: o_loadoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1129 'loadoa', 'Column Load of Organic Aerosol ', 'kg/m2', (/ ('', i=1, 10) /)) 1130 TYPE(ctrl_out), SAVE :: o_loadbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1131 'loadbc', 'Column Load of Black Carbon ', 'kg/m2', (/ ('', i=1, 10) /)) 1132 TYPE(ctrl_out), SAVE :: o_loadss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1133 'loadss', 'Column Load of Sea Salt ', 'kg/m2', (/ ('', i=1, 10) /)) 1134 TYPE(ctrl_out), SAVE :: o_loaddust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1135 'loaddust', 'Column Load of Dust ', 'kg/m2', (/ ('', i=1, 10) /)) 1136 TYPE(ctrl_out), SAVE :: o_swtoaas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1137 'swtoaas_nat', 'Natural aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1138 TYPE(ctrl_out), SAVE :: o_swsrfas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1139 'swsrfas_nat', 'Natural aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1140 TYPE(ctrl_out), SAVE :: o_swtoacs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1141 'swtoacs_nat', 'Natural aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1142 TYPE(ctrl_out), SAVE :: o_swsrfcs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1143 'swsrfcs_nat', 'Natural aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1144 TYPE(ctrl_out), SAVE :: o_swtoaas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1145 'swtoaas_ant', 'Anthropogenic aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1146 TYPE(ctrl_out), SAVE :: o_swsrfas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1147 'swsrfas_ant', 'Anthropogenic aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1148 TYPE(ctrl_out), SAVE :: o_swtoacs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1149 'swtoacs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1150 TYPE(ctrl_out), SAVE :: o_swsrfcs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1151 'swsrfcs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1152 TYPE(ctrl_out), SAVE :: o_swtoacf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1153 'swtoacf_nat', 'Natural aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1154 TYPE(ctrl_out), SAVE :: o_swsrfcf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1155 'swsrfcf_nat', 'Natural aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1156 TYPE(ctrl_out), SAVE :: o_swtoacf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1157 'swtoacf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1158 TYPE(ctrl_out), SAVE :: o_swsrfcf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1159 'swsrfcf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1160 TYPE(ctrl_out), SAVE :: o_swtoacf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1161 'swtoacf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at TOA', 'W/m2', (/ ('', i=1, 10) /)) 1162 TYPE(ctrl_out), SAVE :: o_swsrfcf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1163 'swsrfcf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at SRF', 'W/m2', (/ ('', i=1, 10) /)) 1164 TYPE(ctrl_out), SAVE :: o_cldncl = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1165 'cldncl', 'CDNC at top of liquid water cloud', 'm-3', (/ ('', i=1, 10) /)) 1166 TYPE(ctrl_out), SAVE :: o_reffclwtop = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1167 'reffclwtop', 'Droplet effective radius at top of liquid water cloud', 'm', (/ ('', i=1, 10) /)) 1168 TYPE(ctrl_out), SAVE :: o_cldnvi = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1169 'cldnvi', 'Column Integrated Cloud Droplet Number', 'm-2', (/ ('', i=1, 10) /)) 1170 TYPE(ctrl_out), SAVE :: o_lcc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1171 'lcc', 'Cloud liquid fraction at top of cloud', '1', (/ ('', i=1, 10) /)) 1175 1172 1176 1173 #ifdef CPP_StratAer 1177 TYPE(ctrl_out), SAVE :: o_ext_strat_550 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1178 'ext_strat_550', 'Strat. aerosol extinction coefficient at 550 nm', '1/m', (/ ('', i=1, 9) /)) 1179 TYPE(ctrl_out), SAVE :: o_ext_strat_1020 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1180 'ext_strat_1020', 'Strat. aerosol extinction coefficient at 1020 nm', '1/m', (/ ('', i=1, 9) /)) 1181 TYPE(ctrl_out), SAVE :: o_tau_strat_550 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1182 'OD550_strat_only', 'Stratospheric Aerosol Optical depth at 550 nm ', '1', (/ ('', i=1, 9) /)) 1183 TYPE(ctrl_out), SAVE :: o_tau_strat_1020 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1184 'OD1020_strat_only', 'Stratospheric Aerosol Optical depth at 1020 nm ', '1', (/ ('', i=1, 9) /)) 1185 TYPE(ctrl_out), SAVE :: o_sulf_convert = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1186 'sulf_convert', 'SO2 mass flux converted to H2SO4', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1187 TYPE(ctrl_out), SAVE :: o_sulf_nucl = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1188 'sulf_nucl', 'H2SO4 nucleation mass flux', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1189 TYPE(ctrl_out), SAVE :: o_sulf_cond_evap = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1190 'sulf_cond_evap', 'H2SO4 condensation/evaporation mass flux', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1191 TYPE(ctrl_out), SAVE :: o_ocs_convert = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1192 'ocs_convert', 'OCS mass flux converted to SO2', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1193 TYPE(ctrl_out), SAVE :: o_R2SO4 = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1194 'R2SO4', 'H2SO4 mass fraction in aerosol', '%', (/ ('', i=1, 9) /)) 1195 TYPE(ctrl_out), SAVE :: o_OCS_lifetime = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1196 'OCS_lifetime', 'OCS lifetime', 's', (/ ('', i=1, 9) /)) 1197 TYPE(ctrl_out), SAVE :: o_SO2_lifetime = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1198 'SO2_lifetime', 'SO2 lifetime', 's', (/ ('', i=1, 9) /)) 1199 TYPE(ctrl_out), SAVE :: o_SO2_backgr_tend = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1200 'SO2_backgr_tend', 'SO2 background tendency', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1201 TYPE(ctrl_out), SAVE :: o_OCS_backgr_tend = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1202 'OCS_backgr_tend', 'OCS background tendency', 'kg(S)/m2/layer/s', (/ ('', i=1, 9) /)) 1203 TYPE(ctrl_out), SAVE :: o_vsed_aer = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1204 'vsed_aer', 'Strat. aerosol sedimentation velocity (mass-weighted)', 'm/s', (/ ('', i=1, 9) /)) 1205 TYPE(ctrl_out), SAVE :: o_f_r_wet = ctrl_out((/ 1, 6, 7, 10, 10, 10, 11, 11, 11 /), & 1206 'f_r_wet', 'Conversion factor dry to wet aerosol radius', '-', (/ ('', i=1, 9) /)) 1207 TYPE(ctrl_out), SAVE :: o_sulf_dep_dry = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1208 'sulf_dep_dry', 'Sulfur dry deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 9) /)) 1209 TYPE(ctrl_out), SAVE :: o_sulf_dep_wet = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1210 'sulf_dep_wet', 'Sulfur wet deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 9) /)) 1211 TYPE(ctrl_out), SAVE :: o_surf_PM25_sulf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1212 'surf_PM25_sulf', 'Sulfate PM2.5 concentration at the surface', 'ug/m3', (/ ('', i=1, 9) /)) 1213 TYPE(ctrl_out), SAVE :: o_p_tropopause = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1214 'p_tropopause', 'Tropopause pressure', 'Pa', (/ ('', i=1, 9) /)) 1215 TYPE(ctrl_out), SAVE :: o_sfluxaer = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1216 'sflux', 'Ground sedimentation flux of strat. particles', 'kg(S)/m2/s', (/ ('', i=1, 9) /)) 1174 !--extinction coefficient 1175 TYPE(ctrl_out), SAVE :: o_ext_strat_550 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1176 'ext_strat_550', 'Strat. aerosol extinction coefficient at 550 nm', '1/m', (/ ('', i=1, 10) /)) 1177 TYPE(ctrl_out), SAVE :: o_ext_strat_1020 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1178 'ext_strat_1020', 'Strat. aerosol extinction coefficient at 1020 nm', '1/m', (/ ('', i=1, 10) /)) 1179 !--strat aerosol optical depth 1180 TYPE(ctrl_out), SAVE :: o_tau_strat_550 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1181 'OD550_strat_only', 'Stratospheric Aerosol Optical depth at 550 nm ', '1', (/ ('', i=1, 10) /)) 1182 TYPE(ctrl_out), SAVE :: o_tau_strat_1020 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1183 'OD1020_strat_only', 'Stratospheric Aerosol Optical depth at 1020 nm ', '1', (/ ('', i=1, 10) /)) 1184 !--chemistry 1185 TYPE(ctrl_out), SAVE :: o_R2SO4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1186 'R2SO4', 'H2SO4 mass fraction in aerosol', '%', (/ ('', i=1, 10) /)) 1187 TYPE(ctrl_out), SAVE :: o_OCS_lifetime = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1188 'OCS_lifetime', 'OCS lifetime', 's', (/ ('', i=1, 10) /)) 1189 TYPE(ctrl_out), SAVE :: o_SO2_lifetime = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1190 'SO2_lifetime', 'SO2 lifetime', 's', (/ ('', i=1, 10) /)) 1191 TYPE(ctrl_out), SAVE :: o_f_r_wet = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1192 'f_r_wet', 'Conversion factor dry to wet aerosol radius', '-', (/ ('', i=1, 10) /)) 1193 !--budget 3D 1194 TYPE(ctrl_out), SAVE :: o_budg_3D_nucl = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1195 'budg_3D_nucl', 'H2SO4 nucleation mass flux', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1196 TYPE(ctrl_out), SAVE :: o_budg_3D_cond_evap = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1197 'budg_3D_cond_evap', 'H2SO4 condensation/evaporation mass flux', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1198 TYPE(ctrl_out), SAVE :: o_budg_3D_ocs_to_so2 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1199 'budg_3D_ocs_to_so2', 'OCS mass flux converted to SO2', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1200 TYPE(ctrl_out), SAVE :: o_budg_3D_so2_to_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1201 'budg_3D_so2_to_h2so4', 'SO2 mass flux converted to H2SO4', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1202 TYPE(ctrl_out), SAVE :: o_budg_3D_backgr_ocs = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1203 'budg_3D_backgr_ocs', 'OCS background tendency', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1204 TYPE(ctrl_out), SAVE :: o_budg_3D_backgr_so2 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1205 'budg_3D_backgr_so2', 'SO2 background tendency', 'kg(S)/m2/layer/s', (/ ('', i=1, 10) /)) 1206 TYPE(ctrl_out), SAVE :: o_vsed_aer = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1207 'vsed_aer', 'Strat. aerosol sedimentation velocity (mass-weighted)', 'm/s', (/ ('', i=1, 10) /)) 1208 !--budget 2D 1209 TYPE(ctrl_out), SAVE :: o_budg_dep_dry_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1210 'budg_dep_dry_h2so4', 'H2SO4 dry deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1211 TYPE(ctrl_out), SAVE :: o_budg_dep_wet_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1212 'budg_dep_wet_h2so4', 'H2SO4 wet deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1213 TYPE(ctrl_out), SAVE :: o_budg_dep_dry_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1214 'budg_dep_dry_part', 'particle dry deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1215 TYPE(ctrl_out), SAVE :: o_budg_dep_wet_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1216 'budg_dep_wet_part', 'particle wet deposition flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1217 TYPE(ctrl_out), SAVE :: o_budg_emi_ocs = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1218 'budg_emi_ocs', 'OCS emission flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1219 TYPE(ctrl_out), SAVE :: o_budg_emi_so2 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1220 'budg_emi_so2', 'SO2 emission flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1221 TYPE(ctrl_out), SAVE :: o_budg_emi_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1222 'budg_emi_h2so4', 'H2SO4 emission flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1223 TYPE(ctrl_out), SAVE :: o_budg_emi_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1224 'budg_emi_part', 'Particle emission flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1225 TYPE(ctrl_out), SAVE :: o_budg_ocs_to_so2 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1226 'budg_ocs_to_so2', 'OCS to SO2 flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1227 TYPE(ctrl_out), SAVE :: o_budg_so2_to_h2so4 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1228 'budg_so2_to_h2so4', 'SO2 to H2SO4 flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1229 TYPE(ctrl_out), SAVE :: o_budg_h2so4_to_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1230 'budg_h2so4_to_part', 'H2SO4 to part flux', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1231 TYPE(ctrl_out), SAVE :: o_budg_sed_part = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1232 'budg_sed_part', 'Ground sedimentation flux of strat. particles', 'kg(S)/m2/s', (/ ('', i=1, 10) /)) 1233 !--tropopause height 1234 TYPE(ctrl_out), SAVE :: o_p_tropopause = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1235 'p_tropopause', 'Tropopause pressure', 'Pa', (/ ('', i=1, 10) /)) 1236 !--surface PM25 due to strat aerosol 1237 TYPE(ctrl_out), SAVE :: o_surf_PM25_sulf = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), & 1238 'surf_PM25_sulf', 'Sulfate PM2.5 concentration at the surface', 'ug/m3', (/ ('', i=1, 10) /)) 1217 1239 #endif 1218 1240 1219 1241 !!!!!!!!!!!!!!!!!!!!!! 3D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1220 TYPE(ctrl_out), SAVE :: o_ec550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1221 'ec550aer', 'Extinction at 550nm', 'm^-1', (/ ('', i=1, 9) /))1222 TYPE(ctrl_out), SAVE :: o_lwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1223 'lwcon', 'Cloud liquid water content', 'kg/kg', (/ ('', i=1, 9) /))1224 TYPE(ctrl_out), SAVE :: o_iwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1225 'iwcon', 'Cloud ice water content', 'kg/kg', (/ ('', i=1, 9) /))1226 TYPE(ctrl_out), SAVE :: o_temp = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1227 'temp', 'Air temperature', 'K', (/ ('', i=1, 9) /))1228 TYPE(ctrl_out), SAVE :: o_theta = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1229 'theta', 'Potential air temperature', 'K', (/ ('', i=1, 9) /))1230 TYPE(ctrl_out), SAVE :: o_ovap = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1231 'ovap', 'Specific humidity', 'kg/kg', (/ ('', i=1, 9) /))1232 TYPE(ctrl_out), SAVE :: o_ovapinit = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1233 'ovapinit', 'Specific humidity (begin of timestep)', 'kg/kg', (/ ('', i=1, 9) /))1234 TYPE(ctrl_out), SAVE :: o_oliq = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1235 'oliq', 'Liquid water', 'kg/kg', (/ ('', i=1, 9) /))1236 TYPE(ctrl_out), SAVE :: o_ocond = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 1237 'ocond', 'Condensed water', 'kg/kg', (/ ('', i=1, 9) /))1238 TYPE(ctrl_out), SAVE :: o_wvapp = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1239 'wvapp', '', '', (/ ('', i=1, 9) /))1240 TYPE(ctrl_out), SAVE :: o_geop = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1241 'geop', 'Geopotential height', 'm2/s2', (/ ('', i=1, 9) /))1242 TYPE(ctrl_out), SAVE :: o_vitu = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11 1243 'vitu', 'Zonal wind', 'm/s', (/ ('', i=1, 9) /))1244 TYPE(ctrl_out), SAVE :: o_vitv = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11 1245 'vitv', 'Meridional wind', 'm/s', (/ ('', i=1, 9) /))1246 TYPE(ctrl_out), SAVE :: o_vitw = ctrl_out((/ 2, 3, 10, 6, 10, 10, 11, 11, 11 1247 'vitw', 'Vertical wind', 'Pa/s', (/ ('', i=1, 9) /))1248 TYPE(ctrl_out), SAVE :: o_pres = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1249 'pres', 'Air pressure', 'Pa', (/ ('', i=1, 9) /))1250 TYPE(ctrl_out), SAVE :: o_paprs = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1251 'paprs', 'Air pressure Inter-Couches', 'Pa', (/ ('', i=1, 9) /))1252 TYPE(ctrl_out), SAVE :: o_mass = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1253 'mass', 'Masse Couches', 'kg/m2', (/ ('', i=1, 9) /))1254 TYPE(ctrl_out), SAVE :: o_zfull = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1255 'zfull', 'Altitude of full pressure levels', 'm', (/ ('', i=1, 9) /))1256 TYPE(ctrl_out), SAVE :: o_zhalf = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 1257 'zhalf', 'Altitude of half pressure levels', 'm', (/ ('', i=1, 9) /))1258 TYPE(ctrl_out), SAVE :: o_rneb = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1259 'rneb', 'Cloud fraction', '-', (/ ('', i=1, 9) /))1260 TYPE(ctrl_out), SAVE :: o_rnebjn = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11,11 1261 'rnebjn', 'Cloud fraction in day', '-', (/ ('', i=1, 9) /))1262 TYPE(ctrl_out), SAVE :: o_rnebcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1263 'rnebcon', 'Convective Cloud Fraction', '-', (/ ('', i=1, 9) /))1264 TYPE(ctrl_out), SAVE :: o_rnebls = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1265 'rnebls', 'LS Cloud fraction', '-', (/ ('', i=1, 9) /))1266 TYPE(ctrl_out), SAVE :: o_rhum = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 1267 'rhum', 'Relative humidity', '-', (/ ('', i=1, 9) /))1268 TYPE(ctrl_out), SAVE :: o_ozone = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1269 'ozone', 'Ozone mole fraction', '-', (/ ('', i=1, 9) /))1270 TYPE(ctrl_out), SAVE :: o_ozone_light = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1271 'ozone_daylight', 'Daylight ozone mole fraction', '-', (/ ('', i=1, 9) /))1272 TYPE(ctrl_out), SAVE :: o_upwd = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1273 'upwd', 'saturated updraft', 'kg/m2/s', (/ ('', i=1, 9) /))1274 TYPE(ctrl_out), SAVE :: o_epmax_diag = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1275 'epmax', 'epmax en fn cape', 'su', (/ ('', i=1, 9) /))1276 TYPE(ctrl_out), SAVE :: o_ep = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1277 'ep', 'ep', 'su', (/ ('', i=1, 9) /))1278 TYPE(ctrl_out), SAVE :: o_duphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1279 'duphy', 'Physics du', 'm/s2', (/ ('', i=1, 9) /))1280 TYPE(ctrl_out), SAVE :: o_dtphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1281 'dtphy', 'Physics dT', 'K/s', (/ ('', i=1, 9) /))1282 TYPE(ctrl_out), SAVE :: o_dqphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1283 'dqphy', 'Physics dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))1284 TYPE(ctrl_out), SAVE :: o_dqphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1285 'dqphy2d', 'Physics dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))1286 TYPE(ctrl_out), SAVE :: o_dqlphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1287 'dqlphy', 'Physics dQL', '(kg/kg)/s', (/ ('', i=1, 9) /))1288 TYPE(ctrl_out), SAVE :: o_dqlphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1289 'dqlphy2d', 'Physics dQL', '(kg/m2)/s', (/ ('', i=1, 9) /))1290 TYPE(ctrl_out), SAVE :: o_dqsphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1291 'dqsphy', 'Physics dQS', '(kg/kg)/s', (/ ('', i=1, 9) /))1292 TYPE(ctrl_out), SAVE :: o_dqsphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1293 'dqsphy2d', 'Physics dQS', '(kg/m2)/s', (/ ('', i=1, 9) /))1294 TYPE(ctrl_out), SAVE :: o_pr_con_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1295 'pr_con_l', 'Convective precipitation lic', ' ', (/ ('', i=1, 9) /))1296 TYPE(ctrl_out), SAVE :: o_pr_con_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1297 'pr_con_i', 'Convective precipitation ice', ' ', (/ ('', i=1, 9) /))1298 TYPE(ctrl_out), SAVE :: o_pr_lsc_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1299 'pr_lsc_l', 'Large scale precipitation lic', ' ', (/ ('', i=1, 9) /))1300 TYPE(ctrl_out), SAVE :: o_pr_lsc_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 1301 'pr_lsc_i', 'Large scale precipitation ice', ' ', (/ ('', i=1, 9) /))1302 TYPE(ctrl_out), SAVE :: o_re = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1303 're', 'Cloud droplet effective radius', 'um', (/ ('', i=1, 9) /))1304 TYPE(ctrl_out), SAVE :: o_fl = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1305 'fl', 'Denominator of Cloud droplet effective radius', ' ', (/ ('', i=1, 9) /))1306 TYPE(ctrl_out), SAVE :: o_scdnc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1307 'scdnc', 'Cloud droplet number concentration', 'm-3', (/ ('', i=1, 9) /))1308 TYPE(ctrl_out), SAVE :: o_reffclws = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1309 'reffclws', 'Stratiform Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 9) /))1310 TYPE(ctrl_out), SAVE :: o_reffclwc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1311 'reffclwc', 'Convective Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 9) /))1312 TYPE(ctrl_out), SAVE :: o_lcc3d = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1313 'lcc3d', 'Cloud liquid fraction', '1', (/ ('', i=1, 9) /))1314 TYPE(ctrl_out), SAVE :: o_lcc3dcon = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1315 'lcc3dcon', 'Convective cloud liquid fraction', '1', (/ ('', i=1, 9) /))1316 TYPE(ctrl_out), SAVE :: o_lcc3dstra = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1317 'lcc3dstra', 'Stratiform cloud liquid fraction', '1', (/ ('', i=1, 9) /))1318 TYPE(ctrl_out), SAVE :: o_stratomask = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 1319 'stratomask', 'Stratospheric fraction', '1', (/ ('', i=1, 9) /))1242 TYPE(ctrl_out), SAVE :: o_ec550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1243 'ec550aer', 'Extinction at 550nm', 'm^-1', (/ ('', i=1, 10) /)) 1244 TYPE(ctrl_out), SAVE :: o_lwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1245 'lwcon', 'Cloud liquid water content', 'kg/kg', (/ ('', i=1, 10) /)) 1246 TYPE(ctrl_out), SAVE :: o_iwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1247 'iwcon', 'Cloud ice water content', 'kg/kg', (/ ('', i=1, 10) /)) 1248 TYPE(ctrl_out), SAVE :: o_temp = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1249 'temp', 'Air temperature', 'K', (/ ('', i=1, 10) /)) 1250 TYPE(ctrl_out), SAVE :: o_theta = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1251 'theta', 'Potential air temperature', 'K', (/ ('', i=1, 10) /)) 1252 TYPE(ctrl_out), SAVE :: o_ovap = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1253 'ovap', 'Specific humidity', 'kg/kg', (/ ('', i=1, 10) /)) 1254 TYPE(ctrl_out), SAVE :: o_ovapinit = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1255 'ovapinit', 'Specific humidity (begin of timestep)', 'kg/kg', (/ ('', i=1, 10) /)) 1256 TYPE(ctrl_out), SAVE :: o_oliq = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1257 'oliq', 'Liquid water', 'kg/kg', (/ ('', i=1, 10) /)) 1258 TYPE(ctrl_out), SAVE :: o_ocond = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11, 11/), & 1259 'ocond', 'Condensed water', 'kg/kg', (/ ('', i=1, 10) /)) 1260 TYPE(ctrl_out), SAVE :: o_wvapp = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1261 'wvapp', '', '', (/ ('', i=1, 10) /)) 1262 TYPE(ctrl_out), SAVE :: o_geop = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1263 'geop', 'Geopotential height', 'm2/s2', (/ ('', i=1, 10) /)) 1264 TYPE(ctrl_out), SAVE :: o_vitu = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11, 11/), & 1265 'vitu', 'Zonal wind', 'm/s', (/ ('', i=1, 10) /)) 1266 TYPE(ctrl_out), SAVE :: o_vitv = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11, 11/), & 1267 'vitv', 'Meridional wind', 'm/s', (/ ('', i=1, 10) /)) 1268 TYPE(ctrl_out), SAVE :: o_vitw = ctrl_out((/ 2, 3, 10, 6, 10, 10, 11, 11, 11, 11/), & 1269 'vitw', 'Vertical wind', 'Pa/s', (/ ('', i=1, 10) /)) 1270 TYPE(ctrl_out), SAVE :: o_pres = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1271 'pres', 'Air pressure', 'Pa', (/ ('', i=1, 10) /)) 1272 TYPE(ctrl_out), SAVE :: o_paprs = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1273 'paprs', 'Air pressure Inter-Couches', 'Pa', (/ ('', i=1, 10) /)) 1274 TYPE(ctrl_out), SAVE :: o_mass = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1275 'mass', 'Masse Couches', 'kg/m2', (/ ('', i=1, 10) /)) 1276 TYPE(ctrl_out), SAVE :: o_zfull = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1277 'zfull', 'Altitude of full pressure levels', 'm', (/ ('', i=1, 10) /)) 1278 TYPE(ctrl_out), SAVE :: o_zhalf = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11, 11/), & 1279 'zhalf', 'Altitude of half pressure levels', 'm', (/ ('', i=1, 10) /)) 1280 TYPE(ctrl_out), SAVE :: o_rneb = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1281 'rneb', 'Cloud fraction', '-', (/ ('', i=1, 10) /)) 1282 TYPE(ctrl_out), SAVE :: o_rnebjn = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11,11, 11/), & 1283 'rnebjn', 'Cloud fraction in day', '-', (/ ('', i=1, 10) /)) 1284 TYPE(ctrl_out), SAVE :: o_rnebcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1285 'rnebcon', 'Convective Cloud Fraction', '-', (/ ('', i=1, 10) /)) 1286 TYPE(ctrl_out), SAVE :: o_rnebls = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1287 'rnebls', 'LS Cloud fraction', '-', (/ ('', i=1, 10) /)) 1288 TYPE(ctrl_out), SAVE :: o_rhum = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1289 'rhum', 'Relative humidity', '-', (/ ('', i=1, 10) /)) 1290 TYPE(ctrl_out), SAVE :: o_ozone = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1291 'ozone', 'Ozone mole fraction', '-', (/ ('', i=1, 10) /)) 1292 TYPE(ctrl_out), SAVE :: o_ozone_light = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1293 'ozone_daylight', 'Daylight ozone mole fraction', '-', (/ ('', i=1, 10) /)) 1294 TYPE(ctrl_out), SAVE :: o_upwd = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1295 'upwd', 'saturated updraft', 'kg/m2/s', (/ ('', i=1, 10) /)) 1296 TYPE(ctrl_out), SAVE :: o_epmax_diag = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1297 'epmax', 'epmax en fn cape', 'su', (/ ('', i=1, 10) /)) 1298 TYPE(ctrl_out), SAVE :: o_ep = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1299 'ep', 'ep', 'su', (/ ('', i=1, 10) /)) 1300 TYPE(ctrl_out), SAVE :: o_duphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1301 'duphy', 'Physics du', 'm/s2', (/ ('', i=1, 10) /)) 1302 TYPE(ctrl_out), SAVE :: o_dtphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1303 'dtphy', 'Physics dT', 'K/s', (/ ('', i=1, 10) /)) 1304 TYPE(ctrl_out), SAVE :: o_dqphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1305 'dqphy', 'Physics dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1306 TYPE(ctrl_out), SAVE :: o_dqphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1307 'dqphy2d', 'Physics dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1308 TYPE(ctrl_out), SAVE :: o_dqlphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1309 'dqlphy', 'Physics dQL', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1310 TYPE(ctrl_out), SAVE :: o_dqlphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1311 'dqlphy2d', 'Physics dQL', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1312 TYPE(ctrl_out), SAVE :: o_dqsphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1313 'dqsphy', 'Physics dQS', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1314 TYPE(ctrl_out), SAVE :: o_dqsphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1315 'dqsphy2d', 'Physics dQS', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1316 TYPE(ctrl_out), SAVE :: o_pr_con_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1317 'pr_con_l', 'Convective precipitation lic', ' ', (/ ('', i=1, 10) /)) 1318 TYPE(ctrl_out), SAVE :: o_pr_con_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1319 'pr_con_i', 'Convective precipitation ice', ' ', (/ ('', i=1, 10) /)) 1320 TYPE(ctrl_out), SAVE :: o_pr_lsc_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1321 'pr_lsc_l', 'Large scale precipitation lic', ' ', (/ ('', i=1, 10) /)) 1322 TYPE(ctrl_out), SAVE :: o_pr_lsc_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1323 'pr_lsc_i', 'Large scale precipitation ice', ' ', (/ ('', i=1, 10) /)) 1324 TYPE(ctrl_out), SAVE :: o_re = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1325 're', 'Cloud droplet effective radius', 'um', (/ ('', i=1, 10) /)) 1326 TYPE(ctrl_out), SAVE :: o_fl = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1327 'fl', 'Denominator of Cloud droplet effective radius', ' ', (/ ('', i=1, 10) /)) 1328 TYPE(ctrl_out), SAVE :: o_scdnc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1329 'scdnc', 'Cloud droplet number concentration', 'm-3', (/ ('', i=1, 10) /)) 1330 TYPE(ctrl_out), SAVE :: o_reffclws = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1331 'reffclws', 'Stratiform Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 10) /)) 1332 TYPE(ctrl_out), SAVE :: o_reffclwc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1333 'reffclwc', 'Convective Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 10) /)) 1334 TYPE(ctrl_out), SAVE :: o_lcc3d = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1335 'lcc3d', 'Cloud liquid fraction', '1', (/ ('', i=1, 10) /)) 1336 TYPE(ctrl_out), SAVE :: o_lcc3dcon = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1337 'lcc3dcon', 'Convective cloud liquid fraction', '1', (/ ('', i=1, 10) /)) 1338 TYPE(ctrl_out), SAVE :: o_lcc3dstra = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1339 'lcc3dstra', 'Stratiform cloud liquid fraction', '1', (/ ('', i=1, 10) /)) 1340 TYPE(ctrl_out), SAVE :: o_stratomask = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), & 1341 'stratomask', 'Stratospheric fraction', '1', (/ ('', i=1, 10) /)) 1320 1342 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1321 1343 1322 1344 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_albe_srf = (/ & 1323 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_ter', "Albedo VIS surf. "//clnsurf(1),"-", (/ ('', i=1, 9) /)), &1324 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_lic', "Albedo VIS surf. "//clnsurf(2),"-", (/ ('', i=1, 9) /)), &1325 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_oce', "Albedo VIS surf. "//clnsurf(3),"-", (/ ('', i=1, 9) /)), &1326 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_sic', "Albedo VIS surf. "//clnsurf(4),"-", (/ ('', i=1, 9) /)) /)1345 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11, 11/),'albe_ter', "Albedo VIS surf. "//clnsurf(1),"-", (/ ('', i=1, 10) /)), & 1346 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11, 11/),'albe_lic', "Albedo VIS surf. "//clnsurf(2),"-", (/ ('', i=1, 10) /)), & 1347 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11, 11/),'albe_oce', "Albedo VIS surf. "//clnsurf(3),"-", (/ ('', i=1, 10) /)), & 1348 ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11, 11/),'albe_sic', "Albedo VIS surf. "//clnsurf(4),"-", (/ ('', i=1, 10) /)) /) 1327 1349 1328 1350 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_ages_srf = (/ & 1329 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_ter', "Snow age", "day", (/ ('', i=1, 9) /)), &1330 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_lic', "Snow age", "day", (/ ('', i=1, 9) /)), &1331 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_oce',"Snow age", "day", (/ ('', i=1, 9) /)), &1332 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_sic',"Snow age", "day", (/ ('', i=1, 9) /)) /)1351 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'ages_ter', "Snow age", "day", (/ ('', i=1, 10) /)), & 1352 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'ages_lic', "Snow age", "day", (/ ('', i=1, 10) /)), & 1353 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'ages_oce',"Snow age", "day", (/ ('', i=1, 10) /)), & 1354 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'ages_sic',"Snow age", "day", (/ ('', i=1, 10) /)) /) 1333 1355 1334 1356 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_snow_srf = (/ & 1335 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_ter', "Snow", "kg/m2", (/ ('', i=1, 9) /)), &1336 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_lic', "Snow", "kg/m2", (/ ('', i=1, 9) /)), &1337 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_oce',"Snow", "kg/m2", (/ ('', i=1, 9) /)), &1338 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_sic',"Snow", "kg/m2", (/ ('', i=1, 9) /)) /)1357 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'snow_ter', "Snow", "kg/m2", (/ ('', i=1, 10) /)), & 1358 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'snow_lic', "Snow", "kg/m2", (/ ('', i=1, 10) /)), & 1359 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'snow_oce',"Snow", "kg/m2", (/ ('', i=1, 10) /)), & 1360 ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/),'snow_sic',"Snow", "kg/m2", (/ ('', i=1, 10) /)) /) 1339 1361 1340 1362 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_z0m_srf = (/ & 1341 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &1342 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &1343 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &1344 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)1363 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0m_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 10) /)), & 1364 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0m_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 10) /)), & 1365 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0m_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 10) /)), & 1366 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0m_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 10) /)) /) 1345 1367 1346 1368 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_z0h_srf = (/ & 1347 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &1348 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &1349 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &1350 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)1351 1352 TYPE(ctrl_out), SAVE :: o_alb1 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 1353 'alb1', 'Surface VIS albedo', '-', (/ ('', i=1, 9) /))1354 TYPE(ctrl_out), SAVE :: o_alb2 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 1355 'alb2', 'Surface Near IR albedo', '-', (/ ('', i=1, 9) /))1356 TYPE(ctrl_out), SAVE :: o_clwcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1357 'clwcon', 'Convective Cloud Liquid water content', 'kg/kg', (/ ('', i=1, 9) /))1358 TYPE(ctrl_out), SAVE :: o_Ma = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1359 'Ma', 'undilute adiab updraft', 'kg/m2/s', (/ ('', i=1, 9) /))1360 TYPE(ctrl_out), SAVE :: o_dnwd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1361 'dnwd', 'saturated downdraft', 'kg/m2/s', (/ ('', i=1, 9) /))1362 TYPE(ctrl_out), SAVE :: o_dnwd0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1363 'dnwd0', 'unsat. downdraft', 'kg/m2/s', (/ ('', i=1, 9) /))1364 TYPE(ctrl_out), SAVE :: o_mc = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 1365 'mc', 'Convective mass flux', 'kg/m2/s', (/ ('', i=1, 9) /))1366 TYPE(ctrl_out), SAVE :: o_ftime_con = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1369 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0h_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 10) /)), & 1370 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0h_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 10) /)), & 1371 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0h_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 10) /)), & 1372 ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11, 11/),'z0h_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 10) /)) /) 1373 1374 TYPE(ctrl_out), SAVE :: o_alb1 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1375 'alb1', 'Surface VIS albedo', '-', (/ ('', i=1, 10) /)) 1376 TYPE(ctrl_out), SAVE :: o_alb2 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1377 'alb2', 'Surface Near IR albedo', '-', (/ ('', i=1, 10) /)) 1378 TYPE(ctrl_out), SAVE :: o_clwcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1379 'clwcon', 'Convective Cloud Liquid water content', 'kg/kg', (/ ('', i=1, 10) /)) 1380 TYPE(ctrl_out), SAVE :: o_Ma = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1381 'Ma', 'undilute adiab updraft', 'kg/m2/s', (/ ('', i=1, 10) /)) 1382 TYPE(ctrl_out), SAVE :: o_dnwd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1383 'dnwd', 'saturated downdraft', 'kg/m2/s', (/ ('', i=1, 10) /)) 1384 TYPE(ctrl_out), SAVE :: o_dnwd0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1385 'dnwd0', 'unsat. downdraft', 'kg/m2/s', (/ ('', i=1, 10) /)) 1386 TYPE(ctrl_out), SAVE :: o_mc = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1387 'mc', 'Convective mass flux', 'kg/m2/s', (/ ('', i=1, 10) /)) 1388 TYPE(ctrl_out), SAVE :: o_ftime_con = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1367 1389 'ftime_con', 'Fraction of time convection Occurs', ' ', & 1368 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) 1369 TYPE(ctrl_out), SAVE :: o_dtdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1370 'dtdyn', 'Dynamics dT', 'K/s', (/ ('', i=1, 9) /)) 1371 TYPE(ctrl_out), SAVE :: o_dqdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1372 'dqdyn', 'Dynamics dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1373 TYPE(ctrl_out), SAVE :: o_dqdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1374 'dqdyn2d', 'Dynamics dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1375 TYPE(ctrl_out), SAVE :: o_dqldyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1376 'dqldyn', 'Dynamics dQL', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1377 TYPE(ctrl_out), SAVE :: o_dqldyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1378 'dqldyn2d', 'Dynamics dQL', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1379 TYPE(ctrl_out), SAVE :: o_dqsdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1380 'dqsdyn', 'Dynamics dQS', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1381 TYPE(ctrl_out), SAVE :: o_dqsdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1382 'dqsdyn2d', 'Dynamics dQS', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1383 TYPE(ctrl_out), SAVE :: o_dudyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1384 'dudyn', 'Dynamics dU', 'm/s2', (/ ('', i=1, 9) /)) 1385 TYPE(ctrl_out), SAVE :: o_dvdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1386 'dvdyn', 'Dynamics dV', 'm/s2', (/ ('', i=1, 9) /)) 1387 TYPE(ctrl_out), SAVE :: o_dtcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1388 'dtcon', 'Convection dT', 'K/s', (/ ('', i=1, 9) /)) 1389 TYPE(ctrl_out), SAVE :: o_ducon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1390 'ducon', 'Convection du', 'm/s2', (/ ('', i=1, 9) /)) 1391 TYPE(ctrl_out), SAVE :: o_dvcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1392 'dvcon', 'Convection dv', 'm/s2', (/ ('', i=1, 9) /)) 1393 TYPE(ctrl_out), SAVE :: o_dqcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1394 'dqcon', 'Convection dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1395 TYPE(ctrl_out), SAVE :: o_dqcon2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1396 'dqcon2d', 'Convection dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1397 TYPE(ctrl_out), SAVE :: o_dtwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1398 'dtwak', 'Wake dT', 'K/s', (/ ('', i=1, 9) /)) 1399 TYPE(ctrl_out), SAVE :: o_dqwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1400 'dqwak', 'Wake dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1401 TYPE(ctrl_out), SAVE :: o_dqwak2d = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1402 'dqwak2d', 'Wake dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1403 TYPE(ctrl_out), SAVE :: o_wake_h = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1404 'wake_h', 'wake_h', '-', (/ ('', i=1, 9) /)) 1405 TYPE(ctrl_out), SAVE :: o_wake_s = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1406 'wake_s', 'wake_s', '-', (/ ('', i=1, 9) /)) 1407 TYPE(ctrl_out), SAVE :: o_wake_deltat = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1408 'wake_deltat', 'wake_deltat', ' ', (/ ('', i=1, 9) /)) 1409 TYPE(ctrl_out), SAVE :: o_wake_deltaq = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1410 'wake_deltaq', 'wake_deltaq', ' ', (/ ('', i=1, 9) /)) 1411 TYPE(ctrl_out), SAVE :: o_wake_omg = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1412 'wake_omg', 'wake_omg', ' ', (/ ('', i=1, 9) /)) 1413 TYPE(ctrl_out), SAVE :: o_wdtrainA = ctrl_out((/ 4, 5, 10, 4, 10, 10, 11, 11, 110 /), & 1414 'wdtrainA', 'precipitation from AA', '-', (/ ('', i=1, 9) /)) 1415 TYPE(ctrl_out), SAVE :: o_wdtrainM = ctrl_out((/ 4, 5, 10, 4, 10, 10, 11, 11, 110 /), & 1416 'wdtrainM', 'precipitation from mixture', '-', (/ ('', i=1, 9) /)) 1417 TYPE(ctrl_out), SAVE :: o_Vprecip = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1418 'Vprecip', 'precipitation vertical profile', '-', (/ ('', i=1, 9) /)) 1419 TYPE(ctrl_out), SAVE :: o_ftd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1420 'ftd', 'tend temp due aux descentes precip', '-', (/ ('', i=1, 9) /)) 1421 TYPE(ctrl_out), SAVE :: o_fqd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), & 1422 'fqd', 'tend vap eau due aux descentes precip', '-', (/ ('', i=1, 9) /)) 1423 TYPE(ctrl_out), SAVE :: o_dtlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1424 'dtlsc', 'Condensation dT', 'K/s', (/ ('', i=1, 9) /)) 1425 TYPE(ctrl_out), SAVE :: o_dtlschr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1426 'dtlschr', 'Large-scale condensational heating rate', 'K/s', (/ ('', i=1, 9) /)) 1427 TYPE(ctrl_out), SAVE :: o_dqlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1428 'dqlsc', 'Condensation dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1429 TYPE(ctrl_out), SAVE :: o_dqlsc2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1430 'dqlsc2d', 'Condensation dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1431 TYPE(ctrl_out), SAVE :: o_beta_prec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1432 'beta_prec', 'LS Conversion rate to prec', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1433 TYPE(ctrl_out), SAVE :: o_dtvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1434 'dtvdf', 'Boundary-layer dT', 'K/s', (/ ('', i=1, 9) /)) 1435 TYPE(ctrl_out), SAVE :: o_dtdis = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1436 'dtdis', 'TKE dissipation dT', 'K/s', (/ ('', i=1, 9) /)) 1437 TYPE(ctrl_out), SAVE :: o_dqvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1438 'dqvdf', 'Boundary-layer dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1439 TYPE(ctrl_out), SAVE :: o_dqvdf2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1440 'dqvdf2d', 'Boundary-layer dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1441 TYPE(ctrl_out), SAVE :: o_dteva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1442 'dteva', 'Reevaporation dT', 'K/s', (/ ('', i=1, 9) /)) 1443 TYPE(ctrl_out), SAVE :: o_dqeva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1444 'dqeva', 'Reevaporation dQ', '(kg/kg)/s', (/ ('', i=1, 9) /)) 1445 TYPE(ctrl_out), SAVE :: o_dqeva2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), & 1446 'dqeva2d', 'Reevaporation dQ', '(kg/m2)/s', (/ ('', i=1, 9) /)) 1390 (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', & 1391 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) 1392 TYPE(ctrl_out), SAVE :: o_dtdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1393 'dtdyn', 'Dynamics dT', 'K/s', (/ ('', i=1, 10) /)) 1394 TYPE(ctrl_out), SAVE :: o_dqdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1395 'dqdyn', 'Dynamics dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1396 TYPE(ctrl_out), SAVE :: o_dqdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1397 'dqdyn2d', 'Dynamics dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1398 TYPE(ctrl_out), SAVE :: o_dqldyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1399 'dqldyn', 'Dynamics dQL', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1400 TYPE(ctrl_out), SAVE :: o_dqldyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1401 'dqldyn2d', 'Dynamics dQL', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1402 TYPE(ctrl_out), SAVE :: o_dqsdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1403 'dqsdyn', 'Dynamics dQS', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1404 TYPE(ctrl_out), SAVE :: o_dqsdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1405 'dqsdyn2d', 'Dynamics dQS', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1406 TYPE(ctrl_out), SAVE :: o_dudyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1407 'dudyn', 'Dynamics dU', 'm/s2', (/ ('', i=1, 10) /)) 1408 TYPE(ctrl_out), SAVE :: o_dvdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1409 'dvdyn', 'Dynamics dV', 'm/s2', (/ ('', i=1, 10) /)) 1410 TYPE(ctrl_out), SAVE :: o_dtcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1411 'dtcon', 'Convection dT', 'K/s', (/ ('', i=1, 10) /)) 1412 TYPE(ctrl_out), SAVE :: o_ducon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1413 'ducon', 'Convection du', 'm/s2', (/ ('', i=1, 10) /)) 1414 TYPE(ctrl_out), SAVE :: o_dvcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1415 'dvcon', 'Convection dv', 'm/s2', (/ ('', i=1, 10) /)) 1416 TYPE(ctrl_out), SAVE :: o_dqcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1417 'dqcon', 'Convection dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1418 TYPE(ctrl_out), SAVE :: o_dqcon2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1419 'dqcon2d', 'Convection dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1420 TYPE(ctrl_out), SAVE :: o_dtwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1421 'dtwak', 'Wake dT', 'K/s', (/ ('', i=1, 10) /)) 1422 TYPE(ctrl_out), SAVE :: o_dqwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1423 'dqwak', 'Wake dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1424 TYPE(ctrl_out), SAVE :: o_dqwak2d = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1425 'dqwak2d', 'Wake dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1426 TYPE(ctrl_out), SAVE :: o_wake_h = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1427 'wake_h', 'wake_h', '-', (/ ('', i=1, 10) /)) 1428 TYPE(ctrl_out), SAVE :: o_wake_s = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1429 'wake_s', 'wake_s', '-', (/ ('', i=1, 10) /)) 1430 TYPE(ctrl_out), SAVE :: o_wake_deltat = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1431 'wake_deltat', 'wake_deltat', ' ', (/ ('', i=1, 10) /)) 1432 TYPE(ctrl_out), SAVE :: o_wake_deltaq = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1433 'wake_deltaq', 'wake_deltaq', ' ', (/ ('', i=1, 10) /)) 1434 TYPE(ctrl_out), SAVE :: o_wake_omg = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1435 'wake_omg', 'wake_omg', ' ', (/ ('', i=1, 10) /)) 1436 TYPE(ctrl_out), SAVE :: o_wdtrainA = ctrl_out((/ 4, 5, 10, 4, 10, 10, 11, 11, 11, 11 /), & 1437 'wdtrainA', 'precipitation from AA', '-', (/ ('', i=1, 10) /)) 1438 TYPE(ctrl_out), SAVE :: o_wdtrainM = ctrl_out((/ 4, 5, 10, 4, 10, 10, 11, 11, 11, 11 /), & 1439 'wdtrainM', 'precipitation from mixture', '-', (/ ('', i=1, 10) /)) 1440 TYPE(ctrl_out), SAVE :: o_Vprecip = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1441 'Vprecip', 'precipitation vertical profile', '-', (/ ('', i=1, 10) /)) 1442 TYPE(ctrl_out), SAVE :: o_ftd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1443 'ftd', 'tend temp due aux descentes precip', '-', (/ ('', i=1, 10) /)) 1444 TYPE(ctrl_out), SAVE :: o_fqd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11, 11/), & 1445 'fqd', 'tend vap eau due aux descentes precip', '-', (/ ('', i=1, 10) /)) 1446 TYPE(ctrl_out), SAVE :: o_dtlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1447 'dtlsc', 'Condensation dT', 'K/s', (/ ('', i=1, 10) /)) 1448 TYPE(ctrl_out), SAVE :: o_dtlschr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1449 'dtlschr', 'Large-scale condensational heating rate', 'K/s', (/ ('', i=1, 10) /)) 1450 TYPE(ctrl_out), SAVE :: o_dqlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1451 'dqlsc', 'Condensation dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1452 TYPE(ctrl_out), SAVE :: o_dqlsc2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1453 'dqlsc2d', 'Condensation dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1454 TYPE(ctrl_out), SAVE :: o_beta_prec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1455 'beta_prec', 'LS Conversion rate to prec', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1456 TYPE(ctrl_out), SAVE :: o_dtvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1457 'dtvdf', 'Boundary-layer dT', 'K/s', (/ ('', i=1, 10) /)) 1458 TYPE(ctrl_out), SAVE :: o_dtdis = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1459 'dtdis', 'TKE dissipation dT', 'K/s', (/ ('', i=1, 10) /)) 1460 TYPE(ctrl_out), SAVE :: o_dqvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1461 'dqvdf', 'Boundary-layer dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1462 TYPE(ctrl_out), SAVE :: o_dqvdf2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1463 'dqvdf2d', 'Boundary-layer dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1464 TYPE(ctrl_out), SAVE :: o_dteva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1465 'dteva', 'Reevaporation dT', 'K/s', (/ ('', i=1, 10) /)) 1466 TYPE(ctrl_out), SAVE :: o_dqeva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1467 'dqeva', 'Reevaporation dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1468 TYPE(ctrl_out), SAVE :: o_dqeva2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1469 'dqeva2d', 'Reevaporation dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1447 1470 1448 1471 !!!!!!!!!!!!!!!! Specifique thermiques 1449 TYPE(ctrl_out), SAVE :: o_dqlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1450 'dqlscth', 'dQ therm.', '(kg/kg)/s', (/ ('', i=1, 9) /))1451 TYPE(ctrl_out), SAVE :: o_dqlscth2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1452 'dqlscth2d', 'dQ therm.', '(kg/m2)/s', (/ ('', i=1, 9) /))1453 TYPE(ctrl_out), SAVE :: o_dqlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1454 'dqlscst', 'dQ strat.', '(kg/kg)/s', (/ ('', i=1, 9) /))1455 TYPE(ctrl_out), SAVE :: o_dqlscst2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1456 'dqlscst2d', 'dQ strat.', '(kg/m2)/s', (/ ('', i=1, 9) /))1457 TYPE(ctrl_out), SAVE :: o_dtlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1458 'dtlscth', 'dQ therm.', 'K/s', (/ ('', i=1, 9) /))1459 TYPE(ctrl_out), SAVE :: o_dtlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1460 'dtlscst', 'dQ strat.', 'K/s', (/ ('', i=1, 9) /))1461 TYPE(ctrl_out), SAVE :: o_plulth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1462 'plulth', 'Rainfall therm.', 'K/s', (/ ('', i=1, 9) /))1463 TYPE(ctrl_out), SAVE :: o_plulst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1464 'plulst', 'Rainfall strat.', 'K/s', (/ ('', i=1, 9) /))1465 TYPE(ctrl_out), SAVE :: o_lmaxth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1466 'lmaxth', "Upper level thermals", "", (/ ('', i=1, 9) /))1467 TYPE(ctrl_out), SAVE :: o_ptconvth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1468 'ptconvth', 'POINTS CONVECTIFS therm.', ' ', (/ ('', i=1, 9) /))1472 TYPE(ctrl_out), SAVE :: o_dqlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1473 'dqlscth', 'dQ therm.', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1474 TYPE(ctrl_out), SAVE :: o_dqlscth2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1475 'dqlscth2d', 'dQ therm.', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1476 TYPE(ctrl_out), SAVE :: o_dqlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1477 'dqlscst', 'dQ strat.', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1478 TYPE(ctrl_out), SAVE :: o_dqlscst2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1479 'dqlscst2d', 'dQ strat.', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1480 TYPE(ctrl_out), SAVE :: o_dtlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1481 'dtlscth', 'dQ therm.', 'K/s', (/ ('', i=1, 10) /)) 1482 TYPE(ctrl_out), SAVE :: o_dtlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1483 'dtlscst', 'dQ strat.', 'K/s', (/ ('', i=1, 10) /)) 1484 TYPE(ctrl_out), SAVE :: o_plulth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1485 'plulth', 'Rainfall therm.', 'K/s', (/ ('', i=1, 10) /)) 1486 TYPE(ctrl_out), SAVE :: o_plulst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1487 'plulst', 'Rainfall strat.', 'K/s', (/ ('', i=1, 10) /)) 1488 TYPE(ctrl_out), SAVE :: o_lmaxth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1489 'lmaxth', "Upper level thermals", "", (/ ('', i=1, 10) /)) 1490 TYPE(ctrl_out), SAVE :: o_ptconvth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1491 'ptconvth', 'POINTS CONVECTIFS therm.', ' ', (/ ('', i=1, 10) /)) 1469 1492 !!!!!!!!!!!!!!!!!!!!!!!! 1470 TYPE(ctrl_out), SAVE :: o_ptconv = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1471 'ptconv', 'POINTS CONVECTIFS', ' ', (/ ('', i=1, 9) /))1472 TYPE(ctrl_out), SAVE :: o_ratqs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1473 'ratqs', 'RATQS', ' ', (/ ('', i=1, 9) /))1474 TYPE(ctrl_out), SAVE :: o_dtthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1475 'dtthe', 'Thermal dT', 'K/s', (/ ('', i=1, 9) /))1476 TYPE(ctrl_out), SAVE :: o_duthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1477 'duthe', 'Thermal du', 'm/s2', (/ ('', i=1, 9) /))1478 TYPE(ctrl_out), SAVE :: o_dvthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1479 'dvthe', 'Thermal dv', 'm/s2', (/ ('', i=1, 9) /))1480 TYPE(ctrl_out), SAVE :: o_f_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1481 'f_th', 'Thermal plume mass flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))1482 TYPE(ctrl_out), SAVE :: o_e_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1483 'e_th', 'Thermal plume entrainment', 'K/s', (/ ('', i=1, 9) /))1484 TYPE(ctrl_out), SAVE :: o_w_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1485 'w_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 9) /))1486 TYPE(ctrl_out), SAVE :: o_lambda_th = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 1487 'lambda_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 9) /))1488 TYPE(ctrl_out), SAVE :: o_ftime_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1489 'ftime_th', 'Fraction of time Shallow convection occurs', ' ', (/ ('', i=1, 9) /))1490 TYPE(ctrl_out), SAVE :: o_q_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1491 'q_th', 'Thermal plume total humidity', 'kg/kg', (/ ('', i=1, 9) /))1492 TYPE(ctrl_out), SAVE :: o_a_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1493 'a_th', "Thermal plume fraction", "", (/ ('', i=1, 9) /))1494 TYPE(ctrl_out), SAVE :: o_d_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1495 'd_th', 'Thermal plume detrainment', 'K/s', (/ ('', i=1, 9) /))1496 TYPE(ctrl_out), SAVE :: o_f0_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1497 'f0_th', 'Thermal closure mass flux', 'K/s', (/ ('', i=1, 9) /))1498 TYPE(ctrl_out), SAVE :: o_zmax_th = ctrl_out((/ 4, 4, 4, 5, 10, 10, 11, 11, 11 1499 'zmax_th', 'Thermal plume height', 'K/s', (/ ('', i=1, 9) /))1500 TYPE(ctrl_out), SAVE :: o_dqthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1501 'dqthe', 'Thermal dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))1502 TYPE(ctrl_out), SAVE :: o_dqthe2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1503 'dqthe2d', 'Thermal dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))1504 TYPE(ctrl_out), SAVE :: o_dtajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1505 'dtajs', 'Dry adjust. dT', 'K/s', (/ ('', i=1, 9) /))1506 TYPE(ctrl_out), SAVE :: o_dqajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1507 'dqajs', 'Dry adjust. dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))1508 TYPE(ctrl_out), SAVE :: o_dqajs2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1509 'dqajs2d', 'Dry adjust. dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))1510 TYPE(ctrl_out), SAVE :: o_dtswr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1511 'dtswr', 'SW radiation dT', 'K/s', (/ ('', i=1, 9) /))1512 TYPE(ctrl_out), SAVE :: o_dtsw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1513 'dtsw0', 'CS SW radiation dT', 'K/s', (/ ('', i=1, 9) /))1514 TYPE(ctrl_out), SAVE :: o_dtlwr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1515 'dtlwr', 'LW radiation dT', 'K/s', (/ ('', i=1, 9) /))1516 TYPE(ctrl_out), SAVE :: o_dtlw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1517 'dtlw0', 'CS LW radiation dT', 'K/s', (/ ('', i=1, 9) /))1518 TYPE(ctrl_out), SAVE :: o_dtec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1519 'dtec', 'Cinetic dissip dT', 'K/s', (/ ('', i=1, 9) /))1520 TYPE(ctrl_out), SAVE :: o_duvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1521 'duvdf', 'Boundary-layer dU', 'm/s2', (/ ('', i=1, 9) /))1522 TYPE(ctrl_out), SAVE :: o_dvvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1523 'dvvdf', 'Boundary-layer dV', 'm/s2', (/ ('', i=1, 9) /))1524 TYPE(ctrl_out), SAVE :: o_duoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1525 'duoro', 'Orography dU', 'm/s2', (/ ('', i=1, 9) /))1526 TYPE(ctrl_out), SAVE :: o_dvoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1527 'dvoro', 'Orography dV', 'm/s2', (/ ('', i=1, 9) /))1528 TYPE(ctrl_out), SAVE :: o_dulif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1529 'dulif', 'Orography dU', 'm/s2', (/ ('', i=1, 9) /))1530 TYPE(ctrl_out), SAVE :: o_dvlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1531 'dvlif', 'Orography dV', 'm/s2', (/ ('', i=1, 9) /))1532 TYPE(ctrl_out), SAVE :: o_du_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1533 'du_gwd_hines', 'Hines GWD dU', 'm/s2', (/ ('', i=1, 9) /))1534 TYPE(ctrl_out), SAVE :: o_dv_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1535 'dv_gwd_hines', 'Hines GWD dV', 'm/s2', (/ ('', i=1, 9) /))1536 TYPE(ctrl_out), SAVE :: o_du_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1537 'du_gwd_front', 'Fronts GWD dU', 'm/s2', (/ ('', i=1, 9) /))1538 TYPE(ctrl_out), SAVE :: o_dv_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1539 'dv_gwd_front', 'Fronts GWD dV', 'm/s2', (/ ('', i=1, 9) /))1540 TYPE(ctrl_out), SAVE :: o_east_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1541 'east_gwstress', 'Eastward GW Stress', 'Pa', (/ ('', i=1, 9) /))1542 TYPE(ctrl_out), SAVE :: o_west_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1543 'west_gwstress', 'Westward GW Stress', 'Pa', (/ ('', i=1, 9) /))1544 TYPE(ctrl_out), SAVE :: o_dtoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1545 'dtoro', 'Orography dT', 'K/s', (/ ('', i=1, 9) /))1546 TYPE(ctrl_out), SAVE :: o_dtlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1547 'dtlif', 'Orography dT', 'K/s', (/ ('', i=1, 9) /))1548 TYPE(ctrl_out), SAVE :: o_dthin = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1549 'dthin', 'Hines GWD dT', 'K/s', (/ ('', i=1, 9) /))1550 TYPE(ctrl_out), SAVE :: o_dqch4 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1551 'dqch4', 'H2O due to CH4 oxidation & photolysis', '(kg/kg)/s', (/ ('', i=1, 9) /))1493 TYPE(ctrl_out), SAVE :: o_ptconv = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1494 'ptconv', 'POINTS CONVECTIFS', ' ', (/ ('', i=1, 10) /)) 1495 TYPE(ctrl_out), SAVE :: o_ratqs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1496 'ratqs', 'RATQS', ' ', (/ ('', i=1, 10) /)) 1497 TYPE(ctrl_out), SAVE :: o_dtthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1498 'dtthe', 'Thermal dT', 'K/s', (/ ('', i=1, 10) /)) 1499 TYPE(ctrl_out), SAVE :: o_duthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1500 'duthe', 'Thermal du', 'm/s2', (/ ('', i=1, 10) /)) 1501 TYPE(ctrl_out), SAVE :: o_dvthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1502 'dvthe', 'Thermal dv', 'm/s2', (/ ('', i=1, 10) /)) 1503 TYPE(ctrl_out), SAVE :: o_f_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1504 'f_th', 'Thermal plume mass flux', 'kg/(m2*s)', (/ ('', i=1, 10) /)) 1505 TYPE(ctrl_out), SAVE :: o_e_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1506 'e_th', 'Thermal plume entrainment', 'K/s', (/ ('', i=1, 10) /)) 1507 TYPE(ctrl_out), SAVE :: o_w_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1508 'w_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 10) /)) 1509 TYPE(ctrl_out), SAVE :: o_lambda_th = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1510 'lambda_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 10) /)) 1511 TYPE(ctrl_out), SAVE :: o_ftime_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1512 'ftime_th', 'Fraction of time Shallow convection occurs', ' ', (/ ('', i=1, 10) /)) 1513 TYPE(ctrl_out), SAVE :: o_q_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1514 'q_th', 'Thermal plume total humidity', 'kg/kg', (/ ('', i=1, 10) /)) 1515 TYPE(ctrl_out), SAVE :: o_a_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1516 'a_th', "Thermal plume fraction", "", (/ ('', i=1, 10) /)) 1517 TYPE(ctrl_out), SAVE :: o_d_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1518 'd_th', 'Thermal plume detrainment', 'K/s', (/ ('', i=1, 10) /)) 1519 TYPE(ctrl_out), SAVE :: o_f0_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1520 'f0_th', 'Thermal closure mass flux', 'K/s', (/ ('', i=1, 10) /)) 1521 TYPE(ctrl_out), SAVE :: o_zmax_th = ctrl_out((/ 4, 4, 4, 5, 10, 10, 11, 11, 11, 11/), & 1522 'zmax_th', 'Thermal plume height', 'K/s', (/ ('', i=1, 10) /)) 1523 TYPE(ctrl_out), SAVE :: o_dqthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1524 'dqthe', 'Thermal dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1525 TYPE(ctrl_out), SAVE :: o_dqthe2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1526 'dqthe2d', 'Thermal dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1527 TYPE(ctrl_out), SAVE :: o_dtajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1528 'dtajs', 'Dry adjust. dT', 'K/s', (/ ('', i=1, 10) /)) 1529 TYPE(ctrl_out), SAVE :: o_dqajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1530 'dqajs', 'Dry adjust. dQ', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1531 TYPE(ctrl_out), SAVE :: o_dqajs2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1532 'dqajs2d', 'Dry adjust. dQ', '(kg/m2)/s', (/ ('', i=1, 10) /)) 1533 TYPE(ctrl_out), SAVE :: o_dtswr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1534 'dtswr', 'SW radiation dT', 'K/s', (/ ('', i=1, 10) /)) 1535 TYPE(ctrl_out), SAVE :: o_dtsw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1536 'dtsw0', 'CS SW radiation dT', 'K/s', (/ ('', i=1, 10) /)) 1537 TYPE(ctrl_out), SAVE :: o_dtlwr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1538 'dtlwr', 'LW radiation dT', 'K/s', (/ ('', i=1, 10) /)) 1539 TYPE(ctrl_out), SAVE :: o_dtlw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1540 'dtlw0', 'CS LW radiation dT', 'K/s', (/ ('', i=1, 10) /)) 1541 TYPE(ctrl_out), SAVE :: o_dtec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1542 'dtec', 'Cinetic dissip dT', 'K/s', (/ ('', i=1, 10) /)) 1543 TYPE(ctrl_out), SAVE :: o_duvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1544 'duvdf', 'Boundary-layer dU', 'm/s2', (/ ('', i=1, 10) /)) 1545 TYPE(ctrl_out), SAVE :: o_dvvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1546 'dvvdf', 'Boundary-layer dV', 'm/s2', (/ ('', i=1, 10) /)) 1547 TYPE(ctrl_out), SAVE :: o_duoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1548 'duoro', 'Orography dU', 'm/s2', (/ ('', i=1, 10) /)) 1549 TYPE(ctrl_out), SAVE :: o_dvoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1550 'dvoro', 'Orography dV', 'm/s2', (/ ('', i=1, 10) /)) 1551 TYPE(ctrl_out), SAVE :: o_dulif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1552 'dulif', 'Orography dU', 'm/s2', (/ ('', i=1, 10) /)) 1553 TYPE(ctrl_out), SAVE :: o_dvlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1554 'dvlif', 'Orography dV', 'm/s2', (/ ('', i=1, 10) /)) 1555 TYPE(ctrl_out), SAVE :: o_du_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1556 'du_gwd_hines', 'Hines GWD dU', 'm/s2', (/ ('', i=1, 10) /)) 1557 TYPE(ctrl_out), SAVE :: o_dv_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1558 'dv_gwd_hines', 'Hines GWD dV', 'm/s2', (/ ('', i=1, 10) /)) 1559 TYPE(ctrl_out), SAVE :: o_du_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1560 'du_gwd_front', 'Fronts GWD dU', 'm/s2', (/ ('', i=1, 10) /)) 1561 TYPE(ctrl_out), SAVE :: o_dv_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1562 'dv_gwd_front', 'Fronts GWD dV', 'm/s2', (/ ('', i=1, 10) /)) 1563 TYPE(ctrl_out), SAVE :: o_east_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1564 'east_gwstress', 'Eastward GW Stress', 'Pa', (/ ('', i=1, 10) /)) 1565 TYPE(ctrl_out), SAVE :: o_west_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1566 'west_gwstress', 'Westward GW Stress', 'Pa', (/ ('', i=1, 10) /)) 1567 TYPE(ctrl_out), SAVE :: o_dtoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1568 'dtoro', 'Orography dT', 'K/s', (/ ('', i=1, 10) /)) 1569 TYPE(ctrl_out), SAVE :: o_dtlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1570 'dtlif', 'Orography dT', 'K/s', (/ ('', i=1, 10) /)) 1571 TYPE(ctrl_out), SAVE :: o_dthin = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1572 'dthin', 'Hines GWD dT', 'K/s', (/ ('', i=1, 10) /)) 1573 TYPE(ctrl_out), SAVE :: o_dqch4 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1574 'dqch4', 'H2O due to CH4 oxidation & photolysis', '(kg/kg)/s', (/ ('', i=1, 10) /)) 1552 1575 1553 1576 type(ctrl_out), save:: o_du_gwd_rando & 1554 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1555 "Random gravity waves dU/dt", "m/s2", (/ ('', i=1, 9) /))1577 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'du_gwd_rando', & 1578 "Random gravity waves dU/dt", "m/s2", (/ ('', i=1, 10) /)) 1556 1579 type(ctrl_out), save:: o_dv_gwd_rando & 1557 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1558 "Random gravity waves dV/dt", "m/s2", (/ ('', i=1, 9) /))1580 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'dv_gwd_rando', & 1581 "Random gravity waves dV/dt", "m/s2", (/ ('', i=1, 10) /)) 1559 1582 type(ctrl_out), save:: o_ustr_gwd_hines & 1560 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1561 "zonal wind stress Hines gravity waves", "Pa", (/ ('', i=1, 9) /))1583 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'ustr_gwd_hines', & 1584 "zonal wind stress Hines gravity waves", "Pa", (/ ('', i=1, 10) /)) 1562 1585 type(ctrl_out), save:: o_vstr_gwd_hines & 1563 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1564 "meridional wind stress Hines gravity waves", "Pa", (/ ('', i=1, 9) /))1586 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'vstr_gwd_hines', & 1587 "meridional wind stress Hines gravity waves", "Pa", (/ ('', i=1, 10) /)) 1565 1588 type(ctrl_out), save:: o_ustr_gwd_front & 1566 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1567 "zonal wind stress fronts gravity waves", "Pa", (/ ('', i=1, 9) /))1589 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'ustr_gwd_front', & 1590 "zonal wind stress fronts gravity waves", "Pa", (/ ('', i=1, 10) /)) 1568 1591 type(ctrl_out), save:: o_vstr_gwd_front & 1569 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1570 "meridional wind stress fronts gravity waves", "Pa", (/ ('', i=1, 9) /))1592 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'vstr_gwd_front', & 1593 "meridional wind stress fronts gravity waves", "Pa", (/ ('', i=1, 10) /)) 1571 1594 type(ctrl_out), save:: o_ustr_gwd_rando & 1572 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1573 "zonal wind stress random gravity waves", "Pa", (/ ('', i=1, 9) /))1595 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'ustr_gwd_rando', & 1596 "zonal wind stress random gravity waves", "Pa", (/ ('', i=1, 10) /)) 1574 1597 type(ctrl_out), save:: o_vstr_gwd_rando & 1575 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1576 "meridional wind stress random gravity waves", "Pa", (/ ('', i=1, 9) /))1598 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), 'vstr_gwd_rando', & 1599 "meridional wind stress random gravity waves", "Pa", (/ ('', i=1, 10) /)) 1577 1600 1578 1601 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_trac(:) … … 1593 1616 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_dry(:) 1594 1617 1595 TYPE(ctrl_out), SAVE :: o_rsu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1596 'rsu', 'SW upward radiation', 'W m-2', (/ ('', i=1, 9) /))1597 TYPE(ctrl_out), SAVE :: o_rsd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1598 'rsd', 'SW downward radiation', 'W m-2', (/ ('', i=1, 9) /))1599 TYPE(ctrl_out), SAVE :: o_rlu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1600 'rlu', 'LW upward radiation', 'W m-2', (/ ('', i=1, 9) /))1601 TYPE(ctrl_out), SAVE :: o_rld = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1602 'rld', 'LW downward radiation', 'W m-2', (/ ('', i=1, 9) /))1603 TYPE(ctrl_out), SAVE :: o_rsucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1604 'rsucs', 'SW CS upward radiation', 'W m-2', (/ ('', i=1, 9) /))1605 TYPE(ctrl_out), SAVE :: o_rsdcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1606 'rsdcs', 'SW CS downward radiation', 'W m-2', (/ ('', i=1, 9) /))1607 TYPE(ctrl_out), SAVE :: o_rlucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1608 'rlucs', 'LW CS upward radiation', 'W m-2', (/ ('', i=1, 9) /))1609 TYPE(ctrl_out), SAVE :: o_rldcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1610 'rldcs', 'LW CS downward radiation', 'W m-2', (/ ('', i=1, 9) /))1611 TYPE(ctrl_out), SAVE :: o_tnt = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1612 'tnt', 'Tendency of air temperature', 'K s-1', (/ ('', i=1, 9) /))1613 TYPE(ctrl_out), SAVE :: o_tntc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1614 'tntc', 'Tendency of air temperature due to Moist Convection', 'K s-1', (/ ('', i=1, 9) /))1615 TYPE(ctrl_out), SAVE :: o_tntr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1616 'tntr', 'Air temperature tendency due to Radiative heating', 'K s-1', (/ ('', i=1, 9) /))1617 TYPE(ctrl_out), SAVE :: o_tntscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1618 TYPE(ctrl_out), SAVE :: o_rsu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1619 'rsu', 'SW upward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1620 TYPE(ctrl_out), SAVE :: o_rsd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1621 'rsd', 'SW downward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1622 TYPE(ctrl_out), SAVE :: o_rlu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1623 'rlu', 'LW upward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1624 TYPE(ctrl_out), SAVE :: o_rld = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1625 'rld', 'LW downward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1626 TYPE(ctrl_out), SAVE :: o_rsucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1627 'rsucs', 'SW CS upward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1628 TYPE(ctrl_out), SAVE :: o_rsdcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1629 'rsdcs', 'SW CS downward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1630 TYPE(ctrl_out), SAVE :: o_rlucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1631 'rlucs', 'LW CS upward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1632 TYPE(ctrl_out), SAVE :: o_rldcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1633 'rldcs', 'LW CS downward radiation', 'W m-2', (/ ('', i=1, 10) /)) 1634 TYPE(ctrl_out), SAVE :: o_tnt = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1635 'tnt', 'Tendency of air temperature', 'K s-1', (/ ('', i=1, 10) /)) 1636 TYPE(ctrl_out), SAVE :: o_tntc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1637 'tntc', 'Tendency of air temperature due to Moist Convection', 'K s-1', (/ ('', i=1, 10) /)) 1638 TYPE(ctrl_out), SAVE :: o_tntr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1639 'tntr', 'Air temperature tendency due to Radiative heating', 'K s-1', (/ ('', i=1, 10) /)) 1640 TYPE(ctrl_out), SAVE :: o_tntscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1618 1641 'tntscpbl', 'Air temperature tendency due to St cloud and precipitation and BL mixing', & 1619 'K s-1', (/ ('', i=1, 9) /))1620 TYPE(ctrl_out), SAVE :: o_tnhus = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1621 'tnhus', 'Tendency of specific humidity', 's-1', (/ ('', i=1, 9) /))1622 TYPE(ctrl_out), SAVE :: o_tnhusc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1623 'tnhusc', 'Tendency of specific humidity due to convection', 's-1', (/ ('', i=1, 9) /))1624 TYPE(ctrl_out), SAVE :: o_tnhusscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1625 'tnhusscpbl', 'Tendency of Specific humidity due to ST cl, precip and BL mixing', 's-1', (/ ('', i=1, 9) /))1626 TYPE(ctrl_out), SAVE :: o_evu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1627 'evu', 'Eddy viscosity coefficient for Momentum Variables', 'm2 s-1', (/ ('', i=1, 9) /))1628 TYPE(ctrl_out), SAVE :: o_h2o = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1629 'h2o', 'Mass Fraction of Water', '1', (/ ('', i=1, 9) /))1630 TYPE(ctrl_out), SAVE :: o_mcd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1631 'mcd', 'Downdraft COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))1632 TYPE(ctrl_out), SAVE :: o_dmc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1633 'dmc', 'Deep COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))1634 TYPE(ctrl_out), SAVE :: o_ref_liq = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1635 'ref_liq', 'Effective radius of convective cloud liquid water particle', 'm', (/ ('', i=1, 9) /))1636 TYPE(ctrl_out), SAVE :: o_ref_ice = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 1637 'ref_ice', 'Effective radius of startiform cloud ice particle', 'm', (/ ('', i=1, 9) /))1638 TYPE(ctrl_out), SAVE :: o_rsut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1639 'rsut4co2', 'TOA Out SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1640 TYPE(ctrl_out), SAVE :: o_rlut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1641 'rlut4co2', 'TOA Out LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1642 TYPE(ctrl_out), SAVE :: o_rsutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1643 'rsutcs4co2', 'TOA Out CS SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1644 TYPE(ctrl_out), SAVE :: o_rlutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1645 'rlutcs4co2', 'TOA Out CS LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1646 TYPE(ctrl_out), SAVE :: o_rsu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1647 'rsu4co2', 'Upwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1648 TYPE(ctrl_out), SAVE :: o_rlu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1649 'rlu4co2', 'Upwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1650 TYPE(ctrl_out), SAVE :: o_rsucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1651 'rsucs4co2', 'Upwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1652 TYPE(ctrl_out), SAVE :: o_rlucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1653 'rlucs4co2', 'Upwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1654 TYPE(ctrl_out), SAVE :: o_rsd4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1655 'rsd4co2', 'Downwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1656 TYPE(ctrl_out), SAVE :: o_rld4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1657 'rld4co2', 'Downwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1658 TYPE(ctrl_out), SAVE :: o_rsdcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1659 'rsdcs4co2', 'Downwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1660 TYPE(ctrl_out), SAVE :: o_rldcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 1661 'rldcs4co2', 'Downwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))1662 TYPE(ctrl_out), SAVE :: o_snowsrf = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1663 'snowsrf', 'Snow mass at surface', 'kg/m2', (/ ('', i=1, 9) /))1664 TYPE(ctrl_out), SAVE :: o_qsnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1665 'qsnow', 'Water contained in snow', 'kg/m2', (/ ('', i=1, 9) /))1666 TYPE(ctrl_out), SAVE :: o_snowhgt = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1667 'snowhgt', 'Snow height at surface', 'm', (/ ('', i=1, 9) /))1668 TYPE(ctrl_out), SAVE :: o_toice = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1669 'to_ice', 'Snow passed to ice model', 'kg/m2', (/ ('', i=1, 9) /))1670 TYPE(ctrl_out), SAVE :: o_sissnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1671 'sissnow', 'Snow in snow model', 'kg/m2', (/ ('', i=1, 9) /))1672 TYPE(ctrl_out), SAVE :: o_runoff = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 1673 'runoff', 'Run-off rate land ice', 'kg/m2/s', (/ ('', i=1, 9) /))1674 TYPE(ctrl_out), SAVE :: o_albslw3 = ctrl_out((/ 1, 1, 1, 1, 10, 10, 11, 11, 11 1675 'albslw3', 'Surface albedo LW3', '-', (/ ('', i=1, 9) /))1642 'K s-1', (/ ('', i=1, 10) /)) 1643 TYPE(ctrl_out), SAVE :: o_tnhus = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1644 'tnhus', 'Tendency of specific humidity', 's-1', (/ ('', i=1, 10) /)) 1645 TYPE(ctrl_out), SAVE :: o_tnhusc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1646 'tnhusc', 'Tendency of specific humidity due to convection', 's-1', (/ ('', i=1, 10) /)) 1647 TYPE(ctrl_out), SAVE :: o_tnhusscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1648 'tnhusscpbl', 'Tendency of Specific humidity due to ST cl, precip and BL mixing', 's-1', (/ ('', i=1, 10) /)) 1649 TYPE(ctrl_out), SAVE :: o_evu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1650 'evu', 'Eddy viscosity coefficient for Momentum Variables', 'm2 s-1', (/ ('', i=1, 10) /)) 1651 TYPE(ctrl_out), SAVE :: o_h2o = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1652 'h2o', 'Mass Fraction of Water', '1', (/ ('', i=1, 10) /)) 1653 TYPE(ctrl_out), SAVE :: o_mcd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1654 'mcd', 'Downdraft COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 10) /)) 1655 TYPE(ctrl_out), SAVE :: o_dmc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1656 'dmc', 'Deep COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 10) /)) 1657 TYPE(ctrl_out), SAVE :: o_ref_liq = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1658 'ref_liq', 'Effective radius of convective cloud liquid water particle', 'm', (/ ('', i=1, 10) /)) 1659 TYPE(ctrl_out), SAVE :: o_ref_ice = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1660 'ref_ice', 'Effective radius of startiform cloud ice particle', 'm', (/ ('', i=1, 10) /)) 1661 TYPE(ctrl_out), SAVE :: o_rsut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1662 'rsut4co2', 'TOA Out SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1663 TYPE(ctrl_out), SAVE :: o_rlut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1664 'rlut4co2', 'TOA Out LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1665 TYPE(ctrl_out), SAVE :: o_rsutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1666 'rsutcs4co2', 'TOA Out CS SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1667 TYPE(ctrl_out), SAVE :: o_rlutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1668 'rlutcs4co2', 'TOA Out CS LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1669 TYPE(ctrl_out), SAVE :: o_rsu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1670 'rsu4co2', 'Upwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1671 TYPE(ctrl_out), SAVE :: o_rlu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1672 'rlu4co2', 'Upwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1673 TYPE(ctrl_out), SAVE :: o_rsucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1674 'rsucs4co2', 'Upwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1675 TYPE(ctrl_out), SAVE :: o_rlucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1676 'rlucs4co2', 'Upwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1677 TYPE(ctrl_out), SAVE :: o_rsd4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1678 'rsd4co2', 'Downwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1679 TYPE(ctrl_out), SAVE :: o_rld4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1680 'rld4co2', 'Downwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1681 TYPE(ctrl_out), SAVE :: o_rsdcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1682 'rsdcs4co2', 'Downwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1683 TYPE(ctrl_out), SAVE :: o_rldcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11, 11/), & 1684 'rldcs4co2', 'Downwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 10) /)) 1685 TYPE(ctrl_out), SAVE :: o_snowsrf = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1686 'snowsrf', 'Snow mass at surface', 'kg/m2', (/ ('', i=1, 10) /)) 1687 TYPE(ctrl_out), SAVE :: o_qsnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1688 'qsnow', 'Water contained in snow', 'kg/m2', (/ ('', i=1, 10) /)) 1689 TYPE(ctrl_out), SAVE :: o_snowhgt = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1690 'snowhgt', 'Snow height at surface', 'm', (/ ('', i=1, 10) /)) 1691 TYPE(ctrl_out), SAVE :: o_toice = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1692 'to_ice', 'Snow passed to ice model', 'kg/m2', (/ ('', i=1, 10) /)) 1693 TYPE(ctrl_out), SAVE :: o_sissnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1694 'sissnow', 'Snow in snow model', 'kg/m2', (/ ('', i=1, 10) /)) 1695 TYPE(ctrl_out), SAVE :: o_runoff = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 1696 'runoff', 'Run-off rate land ice', 'kg/m2/s', (/ ('', i=1, 10) /)) 1697 TYPE(ctrl_out), SAVE :: o_albslw3 = ctrl_out((/ 1, 1, 1, 1, 10, 10, 11, 11, 11, 11/), & 1698 'albslw3', 'Surface albedo LW3', '-', (/ ('', i=1, 10) /)) 1676 1699 1677 1700 !!!!!!!!!!!!! Sorties niveaux standards de pression NMC 1678 TYPE(ctrl_out), SAVE :: o_tnondef = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1701 TYPE(ctrl_out), SAVE :: o_tnondef = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1679 1702 'tnondef', 'Undefined value of T', 'K', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1680 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1681 TYPE(ctrl_out), SAVE :: o_ta = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1703 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1704 TYPE(ctrl_out), SAVE :: o_ta = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1682 1705 'ta', 'Air temperature', 'K', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1683 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1684 TYPE(ctrl_out), SAVE :: o_zg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1706 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1707 TYPE(ctrl_out), SAVE :: o_zg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1685 1708 'zg', 'Geopotential height', 'm', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1686 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1687 TYPE(ctrl_out), SAVE :: o_hus = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1709 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1710 TYPE(ctrl_out), SAVE :: o_hus = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1688 1711 'hus', 'Specific humidity', '1', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1689 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1690 TYPE(ctrl_out), SAVE :: o_hur = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1712 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1713 TYPE(ctrl_out), SAVE :: o_hur = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1691 1714 'hur', 'Relative humidity', '%', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1692 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1693 TYPE(ctrl_out), SAVE :: o_ua = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1715 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1716 TYPE(ctrl_out), SAVE :: o_ua = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1694 1717 'ua', 'Eastward wind', 'm s-1', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", & 1695 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1696 TYPE(ctrl_out), SAVE :: o_va = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1697 'va', 'Northward wind', 'm s-1', (/ ('', i=1, 9)/))1698 TYPE(ctrl_out), SAVE :: o_wap = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1718 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1719 TYPE(ctrl_out), SAVE :: o_va = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1720 'va', 'Northward wind', 'm s-1', (/ ('', i=1, 10)/)) 1721 TYPE(ctrl_out), SAVE :: o_wap = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1699 1722 'wap', 'Lagrangian tendency of air pressure', 'Pa s-1', (/ "inst(X)", "inst(X)", "inst(X)", & 1700 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1701 TYPE(ctrl_out), SAVE :: o_psbg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1723 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1724 TYPE(ctrl_out), SAVE :: o_psbg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1702 1725 'psbg', 'Pressure sfce below ground', '%', (/ "inst(X)", "inst(X)", "inst(X)", & 1703 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1704 TYPE(ctrl_out), SAVE :: o_tro3 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1726 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1727 TYPE(ctrl_out), SAVE :: o_tro3 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1705 1728 'tro3', 'Ozone mole fraction', '1e-9', (/ "inst(X)", "inst(X)", "inst(X)", & 1706 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1707 TYPE(ctrl_out), SAVE :: o_tro3_daylight = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 1729 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1730 TYPE(ctrl_out), SAVE :: o_tro3_daylight = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5, 11/), & 1708 1731 'tro3_daylight', 'Daylight ozone mole fraction', '1e-9', (/ "inst(X)", "inst(X)", "inst(X)", & 1709 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1710 TYPE(ctrl_out), SAVE :: o_uxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1732 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1733 TYPE(ctrl_out), SAVE :: o_uxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1711 1734 'uv', 'uv', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", & 1712 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1713 TYPE(ctrl_out), SAVE :: o_vxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1735 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1736 TYPE(ctrl_out), SAVE :: o_vxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1714 1737 'vxq', 'vxq', 'm/s * (kg/kg)', (/ "inst(X)", "inst(X)", "inst(X)", & 1715 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1716 TYPE(ctrl_out), SAVE :: o_vxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1738 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1739 TYPE(ctrl_out), SAVE :: o_vxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1717 1740 'vT', 'vT', 'mK/s', (/ "inst(X)", "inst(X)", "inst(X)", & 1718 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1719 TYPE(ctrl_out), SAVE :: o_wxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1741 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1742 TYPE(ctrl_out), SAVE :: o_wxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1720 1743 'wq', 'wq', '(Pa/s)*(kg/kg)', (/ "inst(X)", "inst(X)", "inst(X)", & 1721 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1722 TYPE(ctrl_out), SAVE :: o_vxphi = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1744 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1745 TYPE(ctrl_out), SAVE :: o_vxphi = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1723 1746 'vphi', 'vphi', 'm2/s', (/ "inst(X)", "inst(X)", "inst(X)", & 1724 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1725 TYPE(ctrl_out), SAVE :: o_wxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1747 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1748 TYPE(ctrl_out), SAVE :: o_wxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1726 1749 'wT', 'wT', '"K*Pa/s', (/ "inst(X)", "inst(X)", "inst(X)", & 1727 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1728 TYPE(ctrl_out), SAVE :: o_uxu = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1750 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1751 TYPE(ctrl_out), SAVE :: o_uxu = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1729 1752 'u2', 'u2', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", & 1730 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1731 TYPE(ctrl_out), SAVE :: o_vxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1753 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1754 TYPE(ctrl_out), SAVE :: o_vxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1732 1755 'v2', 'v2', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", & 1733 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1734 TYPE(ctrl_out), SAVE :: o_TxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 1756 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1757 TYPE(ctrl_out), SAVE :: o_TxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6, 11/), & 1735 1758 'T2', 'T2', 'K2', (/ "inst(X)", "inst(X)", "inst(X)", & 1736 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))1759 "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /)) 1737 1760 1738 1761 #ifdef CPP_Dust -
LMDZ5/trunk/libf/phylmd/phys_output_mod.F90
r2704 r2752 113 113 INTEGER, DIMENSION(nfiles) :: phys_out_filelevels 114 114 CHARACTER(LEN=20), DIMENSION(nfiles) :: chtimestep = (/ 'Default', 'Default', 'Default', 'Default', 'Default', & 115 'Default', 'Default', 'Default', 'Default' /)115 'Default', 'Default', 'Default', 'Default', 'Default' /) 116 116 LOGICAL, DIMENSION(nfiles) :: phys_out_filekeys 117 117 LOGICAL, DIMENSION(nfiles) :: phys_out_filestations … … 120 120 ! entre [phys_out_lonmin,phys_out_lonmax] et [phys_out_latmin,phys_out_latmax] 121 121 122 LOGICAL, DIMENSION(nfiles), SAVE :: phys_out_regfkey = (/ .FALSE., .FALSE., .FALSE., .FALSE., &123 .FALSE., .FALSE., .FALSE., .FALSE.,.FALSE. /)124 REAL, DIMENSION(nfiles), SAVE :: phys_out_lonmin = (/ -180., -180., -180.,-180., &125 -180., -180., -180., -180.,-180. /)126 REAL, DIMENSION(nfiles), SAVE :: phys_out_lonmax = (/ 180., 180., 180.,180., &127 180., 180., 180., 180.,180. /)128 REAL, DIMENSION(nfiles), SAVE :: phys_out_latmin = (/ -90., -90., -90.,-90., &129 -90., -90., -90., -90.,-90. /)130 REAL, DIMENSION(nfiles), SAVE :: phys_out_latmax = (/ 90., 90., 90.,90., &131 90., 90., 90., 90.,90. /)122 LOGICAL, DIMENSION(nfiles), SAVE :: phys_out_regfkey = (/ .FALSE., .FALSE., .FALSE., .FALSE., .FALSE., & 123 .FALSE., .FALSE., .FALSE., .FALSE., .FALSE. /) 124 REAL, DIMENSION(nfiles), SAVE :: phys_out_lonmin = (/ -180., -180., -180., -180., -180., & 125 -180., -180., -180., -180., -180. /) 126 REAL, DIMENSION(nfiles), SAVE :: phys_out_lonmax = (/ 180., 180., 180., 180., 180., & 127 180., 180., 180., 180., 180. /) 128 REAL, DIMENSION(nfiles), SAVE :: phys_out_latmin = (/ -90., -90., -90., -90., -90., & 129 -90., -90., -90., -90., -90. /) 130 REAL, DIMENSION(nfiles), SAVE :: phys_out_latmax = (/ 90., 90., 90., 90., 90., & 131 90., 90., 90., 90., 90. /) 132 132 #ifdef CPP_XIOS 133 133 ! ug Variables utilis\'ees pour r\'ecup\'erer le calendrier pour xios … … 149 149 ALLOCATE(o_dtr_dry(nqtot),o_dtr_vdf(nqtot)) 150 150 151 152 levmax = (/ klev, klev, klev, klev, klev, klev, nlevSTD, nlevSTD, nlevSTD /) 151 levmax = (/ klev, klev, klev, klev, klev, klev, nlevSTD, nlevSTD, nlevSTD, klev /) 153 152 154 153 phys_out_filenames(1) = 'histmth' … … 160 159 phys_out_filenames(7) = 'histmthNMC' 161 160 phys_out_filenames(8) = 'histdayNMC' 162 phys_out_filenames(9) = 'histhfNMC.nc' 161 phys_out_filenames(9) = 'histhfNMC' 162 phys_out_filenames(10)= 'histstrataer' 163 163 164 164 type_ecri(1) = 'ave(X)' … … 171 171 type_ecri(8) = 'inst(X)' 172 172 type_ecri(9) = 'inst(X)' 173 type_ecri(10)= 'ave(X)' 173 174 174 175 clef_files(1) = ok_mensuel … … 181 182 clef_files(8) = ok_histNMC(2) 182 183 clef_files(9) = ok_histNMC(3) 184 #ifdef CPP_StratAer 185 clef_files(10)= .TRUE. 186 #else 187 clef_files(10)= .FALSE. 188 #endif 183 189 184 190 !sortir des fichiers "stations" si clef_stations(:)=.TRUE. … … 192 198 clef_stations(8) = .FALSE. 193 199 clef_stations(9) = .FALSE. 200 clef_stations(10)= .FALSE. 194 201 195 202 lev_files(1) = lev_histmth … … 202 209 lev_files(8) = levout_histNMC(2) 203 210 lev_files(9) = levout_histNMC(3) 211 lev_files(10)= 5 204 212 205 213 ecrit_files(1) = ecrit_mth … … 212 220 ecrit_files(8) = freq_outNMC(2) 213 221 ecrit_files(9) = freq_outNMC(3) 222 ecrit_files(10)= ecrit_mth 214 223 215 224 !! Lectures des parametres de sorties dans physiq.def … … 248 257 WRITE(lunout,*)'phys_out_filestations=',clef_stations 249 258 WRITE(lunout,*)'phys_out_filelevels=',lev_files 259 WRITE(lunout,*)'phys_out_regfkey=',phys_out_regfkey 250 260 251 261 ! A noter pour … … 331 341 print*,'phys_output_open: Declare vertical axes for each file' 332 342 ENDIF 333 IF (iff. le.6) THEN343 IF (iff.LE.6.OR.iff.EQ.10) THEN 334 344 CALL wxios_add_vaxis("presnivs", & 335 345 levmax(iff) - levmin(iff) + 1, presnivs(levmin(iff):levmax(iff))) … … 392 402 itau_phy,zjulian,dtime,nhorim(iff),nid_files(iff)) 393 403 ELSE 404 405 IF (prt_level >= 10) THEN 406 WRITE(lunout,*)'phys_output_open: iff=',iff,' phys_out_filenames(iff)=',phys_out_filenames(iff) 407 ENDIF 408 394 409 CALL histbeg_phy_all(phys_out_filenames(iff),itau_phy,zjulian,& 395 410 dtime,nhorim(iff),nid_files(iff)) … … 397 412 398 413 #ifndef CPP_IOIPSL_NO_OUTPUT 399 IF (iff. le.6) THEN414 IF (iff.LE.6.OR.iff.EQ.10) THEN 400 415 CALL histvert(nid_files(iff), "presnivs", "Vertical levels", "Pa", & 401 416 levmax(iff) - levmin(iff) + 1, & … … 412 427 413 428 ELSE 429 ! NMC files 414 430 CALL histvert(nid_files(iff), "plev", "pressure", "Pa", & 415 431 levmax(iff) - levmin(iff) + 1, & … … 424 440 DO iq=nqo+1,nqtot 425 441 iiq=niadv(iq) 426 o_trac(iq-nqo) = ctrl_out((/ 1, 5, 5, 5, 10, 10, 11, 11, 11 /), &442 o_trac(iq-nqo) = ctrl_out((/ 1, 5, 5, 5, 10, 10, 11, 11, 11, 11 /), & 427 443 tname(iiq),'Tracer '//ttext(iiq), "-", & 428 (/ '', '', '', '', '', '', '', '', '' /))429 o_dtr_vdf(iq-nqo) = ctrl_out((/ 4, 7, 7, 7, 10, 10, 11, 11, 11 /), &444 (/ '', '', '', '', '', '', '', '', '', '' /)) 445 o_dtr_vdf(iq-nqo) = ctrl_out((/ 4, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 430 446 'd'//trim(tname(iq))//'_vdf', & 431 447 'Tendance tracer '//ttext(iiq), "-" , & 432 (/ '', '', '', '', '', '', '', '', '' /))433 434 o_dtr_the(iq-nqo) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11 /), &448 (/ '', '', '', '', '', '', '', '', '', '' /)) 449 450 o_dtr_the(iq-nqo) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 435 451 'd'//trim(tname(iq))//'_the', & 436 452 'Tendance tracer '//ttext(iiq), "-", & 437 (/ '', '', '', '', '', '', '', '', '' /))438 439 o_dtr_con(iq-nqo) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11 /), &453 (/ '', '', '', '', '', '', '', '', '', '' /)) 454 455 o_dtr_con(iq-nqo) = ctrl_out((/ 5, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 440 456 'd'//trim(tname(iq))//'_con', & 441 457 'Tendance tracer '//ttext(iiq), "-", & 442 (/ '', '', '', '', '', '', '', '', '' /))443 444 o_dtr_lessi_impa(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &458 (/ '', '', '', '', '', '', '', '', '', '' /)) 459 460 o_dtr_lessi_impa(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 445 461 'd'//trim(tname(iq))//'_lessi_impa', & 446 462 'Tendance tracer '//ttext(iiq), "-", & 447 (/ '', '', '', '', '', '', '', '', '' /))448 449 o_dtr_lessi_nucl(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &463 (/ '', '', '', '', '', '', '', '', '', '' /)) 464 465 o_dtr_lessi_nucl(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 450 466 'd'//trim(tname(iq))//'_lessi_nucl', & 451 467 'Tendance tracer '//ttext(iiq), "-", & 452 (/ '', '', '', '', '', '', '', '', '' /))453 454 o_dtr_insc(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &468 (/ '', '', '', '', '', '', '', '', '', '' /)) 469 470 o_dtr_insc(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 455 471 'd'//trim(tname(iq))//'_insc', & 456 472 'Tendance tracer '//ttext(iiq), "-", & 457 (/ '', '', '', '', '', '', '', '', '' /))458 459 o_dtr_bcscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &473 (/ '', '', '', '', '', '', '', '', '', '' /)) 474 475 o_dtr_bcscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 460 476 'd'//trim(tname(iq))//'_bcscav', & 461 477 'Tendance tracer '//ttext(iiq), "-", & 462 (/ '', '', '', '', '', '', '', '', '' /))463 464 o_dtr_evapls(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &478 (/ '', '', '', '', '', '', '', '', '', '' /)) 479 480 o_dtr_evapls(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 465 481 'd'//trim(tname(iq))//'_evapls', & 466 482 'Tendance tracer '//ttext(iiq), "-", & 467 (/ '', '', '', '', '', '', '', '', '' /))468 469 o_dtr_ls(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &483 (/ '', '', '', '', '', '', '', '', '', '' /)) 484 485 o_dtr_ls(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 470 486 'd'//trim(tname(iq))//'_ls', & 471 487 'Tendance tracer '//ttext(iiq), "-", & 472 (/ '', '', '', '', '', '', '', '', '' /))473 474 o_dtr_trsp(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &488 (/ '', '', '', '', '', '', '', '', '', '' /)) 489 490 o_dtr_trsp(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 475 491 'd'//trim(tname(iq))//'_trsp', & 476 492 'Tendance tracer '//ttext(iiq), "-", & 477 (/ '', '', '', '', '', '', '', '', '' /))478 479 o_dtr_sscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &493 (/ '', '', '', '', '', '', '', '', '', '' /)) 494 495 o_dtr_sscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 480 496 'd'//trim(tname(iq))//'_sscav', & 481 497 'Tendance tracer '//ttext(iiq), "-", & 482 (/ '', '', '', '', '', '', '', '', '' /))483 484 o_dtr_sat(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &498 (/ '', '', '', '', '', '', '', '', '', '' /)) 499 500 o_dtr_sat(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 485 501 'd'//trim(tname(iq))//'_sat', & 486 502 'Tendance tracer '//ttext(iiq), "-", & 487 (/ '', '', '', '', '', '', '', '', '' /))488 489 o_dtr_uscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &503 (/ '', '', '', '', '', '', '', '', '', '' /)) 504 505 o_dtr_uscav(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 490 506 'd'//trim(tname(iq))//'_uscav', & 491 507 'Tendance tracer '//ttext(iiq), "-", & 492 (/ '', '', '', '', '', '', '', '', '' /))493 494 o_dtr_dry(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11 /), &508 (/ '', '', '', '', '', '', '', '', '', '' /)) 509 510 o_dtr_dry(iq-nqo) = ctrl_out((/ 7, 7, 7, 7, 10, 10, 11, 11, 11, 11 /), & 495 511 'cum'//'d'//trim(tname(iq))//'_dry', & 496 512 'tracer tendency dry deposition'//ttext(iiq), "-", & 497 (/ '', '', '', '', '', '', '', '', '' /))498 499 o_trac_cum(iq-nqo) = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /), &513 (/ '', '', '', '', '', '', '', '', '', '' /)) 514 515 o_trac_cum(iq-nqo) = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11, 11 /), & 500 516 'cum'//tname(iiq),& 501 517 'Cumulated tracer '//ttext(iiq), "-", & 502 (/ '', '', '', '', '', '', '', '', '' /))518 (/ '', '', '', '', '', '', '', '', '', '' /)) 503 519 ENDDO 504 520 ENDIF … … 547 563 type=str(ipos+1:il) 548 564 549 550 565 IF ( il == ipos ) THEN 551 566 type='day' -
LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90
r2585 r2752 46 46 47 47 ! ug Plein de variables venues de phys_output_mod 48 INTEGER, PARAMETER :: nfiles = 948 INTEGER, PARAMETER :: nfiles = 10 49 49 LOGICAL, DIMENSION(nfiles), SAVE :: clef_files 50 50 LOGICAL, DIMENSION(nfiles), SAVE :: clef_stations -
LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
r2733 r2752 185 185 #ifdef CPP_StratAer 186 186 USE phys_output_ctrlout_mod, ONLY: & 187 o_sulf_convert, o_sulf_nucl, o_sulf_cond_evap, o_ocs_convert, & 188 o_sfluxaer, o_R2SO4, o_OCS_lifetime, o_SO2_lifetime, & 189 o_OCS_backgr_tend, o_SO2_backgr_tend, o_sulf_dep_dry, o_sulf_dep_wet, & 187 o_budg_3D_nucl, o_budg_3D_cond_evap, o_budg_3D_ocs_to_so2, o_budg_3D_so2_to_h2so4, & 188 o_budg_sed_part, o_R2SO4, o_OCS_lifetime, o_SO2_lifetime, & 189 o_budg_3D_backgr_ocs, o_budg_3D_backgr_so2, & 190 o_budg_dep_dry_h2so4, o_budg_dep_wet_h2so4, & 191 o_budg_dep_dry_part, o_budg_dep_wet_part, & 192 o_budg_emi_ocs, o_budg_emi_so2, o_budg_emi_h2so4, o_budg_emi_part, & 193 o_budg_ocs_to_so2, o_budg_so2_to_h2so4, o_budg_h2so4_to_part, & 190 194 o_surf_PM25_sulf, o_ext_strat_550, o_tau_strat_550, & 191 195 o_p_tropopause, o_vsed_aer, o_tau_strat_1020, o_ext_strat_1020, o_f_r_wet … … 284 288 #ifdef CPP_StratAer 285 289 USE phys_local_var_mod, ONLY: & 286 sulf_convert, sulf_nucl, sulf_cond_evap, ocs_convert, & 287 sfluxaer, R2SO4, OCS_lifetime, SO2_lifetime, & 288 OCS_backgr_tend, SO2_backgr_tend, sulf_dep_dry, sulf_dep_wet, & 290 budg_3D_nucl, budg_3D_cond_evap, budg_3D_ocs_to_so2, budg_3D_so2_to_h2so4, & 291 budg_sed_part, R2SO4, OCS_lifetime, SO2_lifetime, & 292 budg_3D_backgr_ocs, budg_3D_backgr_so2, & 293 budg_dep_dry_h2so4, budg_dep_wet_h2so4, & 294 budg_dep_dry_part, budg_dep_wet_part, & 295 budg_emi_ocs, budg_emi_so2, budg_emi_h2so4, budg_emi_part, & 296 budg_ocs_to_so2, budg_so2_to_h2so4, budg_h2so4_to_part, & 289 297 surf_PM25_sulf, tau_strat_550, p_tropopause, tausum_strat, & 290 298 vsed_aer, tau_strat_1020, f_r_wet … … 385 393 TYPE(xios_field) :: child 386 394 #endif 395 #ifdef CPP_StratAer 396 LOGICAL, PARAMETER :: debug_strataer=.FALSE. 397 #endif 387 398 388 399 ! On calcul le nouveau tau: … … 406 417 iiq=niadv(iq) 407 418 varname=trim(tname(iiq)) 408 WRITE (lunout,*) 'XIOS var=', nqo, iq, varname419 WRITE (lunout,*) 'XIOS var=', nqo, iq, nqtot, varname 409 420 CALL xios_add_child(group_handle, child, varname) 410 421 CALL xios_set_attr(child, name=varname, unit="kg kg-1") … … 455 466 iiq=niadv(iq) 456 467 varname='cum'//trim(tname(iiq)) 457 WRITE (lunout,*) 'XIOS var=', iq, varname468 WRITE (lunout,*) 'XIOS var=', iq, nqtot, varname 458 469 CALL xios_add_child(group_handle, child, varname) 459 470 CALL xios_set_attr(child, name=varname, unit="kg m-2") … … 1194 1205 #ifdef CPP_StratAer 1195 1206 IF (type_trac=='coag') THEN 1196 CALL histwrite_phy(o_sulf_convert, sulf_convert)1197 CALL histwrite_phy(o_sulf_nucl, sulf_nucl)1198 CALL histwrite_phy(o_sulf_cond_evap, sulf_cond_evap)1199 CALL histwrite_phy(o_ocs_convert, ocs_convert)1200 1207 CALL histwrite_phy(o_R2SO4, R2SO4) 1201 1208 CALL histwrite_phy(o_OCS_lifetime, OCS_lifetime) 1202 1209 CALL histwrite_phy(o_SO2_lifetime, SO2_lifetime) 1203 CALL histwrite_phy(o_OCS_backgr_tend, OCS_backgr_tend) 1204 CALL histwrite_phy(o_SO2_backgr_tend, SO2_backgr_tend) 1205 CALL histwrite_phy(o_sulf_dep_dry, sulf_dep_dry) 1206 CALL histwrite_phy(o_sulf_dep_wet, sulf_dep_wet) 1210 CALL histwrite_phy(o_budg_3D_backgr_ocs, budg_3D_backgr_ocs) 1211 CALL histwrite_phy(o_budg_3D_backgr_so2, budg_3D_backgr_so2) 1212 CALL histwrite_phy(o_budg_3D_ocs_to_so2, budg_3D_ocs_to_so2) 1213 CALL histwrite_phy(o_budg_3D_so2_to_h2so4, budg_3D_so2_to_h2so4) 1214 CALL histwrite_phy(o_budg_3D_nucl, budg_3D_nucl) 1215 CALL histwrite_phy(o_budg_3D_cond_evap, budg_3D_cond_evap) 1216 CALL histwrite_phy(o_budg_dep_dry_h2so4, budg_dep_dry_h2so4) 1217 CALL histwrite_phy(o_budg_dep_wet_h2so4, budg_dep_wet_h2so4) 1218 CALL histwrite_phy(o_budg_dep_dry_part, budg_dep_dry_part) 1219 CALL histwrite_phy(o_budg_dep_wet_part, budg_dep_wet_part) 1220 CALL histwrite_phy(o_budg_emi_ocs, budg_emi_ocs) 1221 CALL histwrite_phy(o_budg_emi_so2, budg_emi_so2) 1222 CALL histwrite_phy(o_budg_emi_h2so4, budg_emi_h2so4) 1223 CALL histwrite_phy(o_budg_emi_part, budg_emi_part) 1224 CALL histwrite_phy(o_budg_ocs_to_so2, budg_ocs_to_so2) 1225 CALL histwrite_phy(o_budg_so2_to_h2so4, budg_so2_to_h2so4) 1226 CALL histwrite_phy(o_budg_h2so4_to_part, budg_h2so4_to_part) 1227 CALL histwrite_phy(o_budg_sed_part, budg_sed_part) 1207 1228 CALL histwrite_phy(o_surf_PM25_sulf, surf_PM25_sulf) 1208 1229 CALL histwrite_phy(o_p_tropopause, p_tropopause) 1209 CALL histwrite_phy(o_sfluxaer, sfluxaer)1210 1230 CALL histwrite_phy(o_vsed_aer, vsed_aer) 1211 1231 CALL histwrite_phy(o_f_r_wet, f_r_wet) -
LMDZ5/trunk/libf/phylmd/phytrac_mod.F90
r2710 r2752 103 103 #ifdef CPP_StratAer 104 104 USE traccoag_mod 105 USE phys_local_var_mod, ONLY: mdw, sulf_dep_dry, sulf_dep_wet 105 USE phys_local_var_mod, ONLY: mdw 106 USE phys_local_var_mod, ONLY: budg_dep_dry_h2so4, budg_dep_wet_h2so4 107 USE phys_local_var_mod, ONLY: budg_dep_dry_part, budg_dep_wet_part 106 108 USE infotrac, ONLY: nbtr_sulgas, id_SO2_strat, id_H2SO4_strat 107 109 USE aerophys … … 698 700 IF (type_trac=='coag') THEN 699 701 ! initialize wet deposition flux of sulfur 700 sulf_dep_wet(:)=0.0 702 budg_dep_wet_h2so4(:)=0.0 703 budg_dep_wet_part(:)=0.0 701 704 ! compute wet deposition flux of sulfur (sum over gases and particles) 702 705 ! and convert to kg(S)/m2/s … … 706 709 !do not include SO2 because most of it comes trom the troposphere 707 710 IF (it==id_H2SO4_strat) THEN 708 sulf_dep_wet(i)=sulf_dep_wet(i)+d_tr_cv(i,k,it)*(mSatom/mH2SO4mol) &711 budg_dep_wet_h2so4(i)=budg_dep_wet_h2so4(i)+d_tr_cv(i,k,it)*(mSatom/mH2SO4mol) & 709 712 & *(paprs(i,k)-paprs(i,k+1))/RG/pdtphys 710 713 ELSEIF (it.GT.nbtr_sulgas) THEN 711 sulf_dep_wet(i)=sulf_dep_wet(i)+d_tr_cv(i,k,it)*(mSatom/mH2SO4mol) &714 budg_dep_wet_part(i)=budg_dep_wet_part(i)+d_tr_cv(i,k,it)*(mSatom/mH2SO4mol) & 712 715 & *dens_aer_dry*4./3.*RPI*(mdw(it-nbtr_sulgas)/2.)**3 & 713 716 & *(paprs(i,k)-paprs(i,k+1))/RG/pdtphys … … 766 769 767 770 ! initialize dry deposition flux of sulfur 768 sulf_dep_dry(:)=0.0 771 budg_dep_dry_h2so4(:)=0.0 772 budg_dep_dry_part(:)=0.0 769 773 770 774 ! compute dry deposition velocity as function of surface type (numbers … … 800 804 ! compute dry deposition flux of sulfur (sum over gases and particles) 801 805 IF (it==id_H2SO4_strat) THEN 802 sulf_dep_dry(:)=sulf_dep_dry(:)-source(:,it)*(mSatom/mH2SO4mol)806 budg_dep_dry_h2so4(:)=budg_dep_dry_h2so4(:)-source(:,it)*(mSatom/mH2SO4mol) 803 807 ELSEIF (it.GT.nbtr_sulgas) THEN 804 sulf_dep_dry(:)=sulf_dep_dry(:)-source(:,it)*(mSatom/mH2SO4mol)*dens_aer_dry &808 budg_dep_dry_part(:)=budg_dep_dry_part(:)-source(:,it)*(mSatom/mH2SO4mol)*dens_aer_dry & 805 809 & *4./3.*RPI*(mdw(it-nbtr_sulgas)/2.)**3 806 810 ENDIF … … 886 890 DO it = 1, nbtr 887 891 IF (it==id_H2SO4_strat) THEN 888 sulf_dep_wet(i)=sulf_dep_wet(i)+d_tr_ls(i,k,it)*(mSatom/mH2SO4mol) &892 budg_dep_wet_h2so4(i)=budg_dep_wet_h2so4(i)+d_tr_ls(i,k,it)*(mSatom/mH2SO4mol) & 889 893 & *(paprs(i,k)-paprs(i,k+1))/RG/pdtphys 890 894 ELSEIF (it.GT.nbtr_sulgas) THEN 891 sulf_dep_wet(i)=sulf_dep_wet(i)+d_tr_ls(i,k,it)*(mSatom/mH2SO4mol) &895 budg_dep_wet_part(i)=budg_dep_wet_part(i)+d_tr_ls(i,k,it)*(mSatom/mH2SO4mol) & 892 896 & *dens_aer_dry*4./3.*RPI*(mdw(it-nbtr_sulgas)/2.)**3 & 893 897 & *(paprs(i,k)-paprs(i,k+1))/RG/pdtphys
Note: See TracChangeset
for help on using the changeset viewer.
