source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/spla_output_write.h

Last change on this file was 2303, checked in by jescribano, 10 years ago

Bugs corrections, control vector is now fine mode+coarse mode and seasalt coarse+fine, change in emission scheme parameters, more outputs at 10h30 and 13h30 LT. (Pending correct optical and sedimentation parameters)
File size: 12.1 KB
Line 
1!! Output SPLA
2! JE20141223
3      IF(ok_chimeredust) CALL histwrite_phy(o_m1dflux,m1dflux)
4      IF(ok_chimeredust) CALL histwrite_phy(o_m2dflux,m2dflux)
5      IF(ok_chimeredust) CALL histwrite_phy(o_m3dflux,m3dflux)
6! traceur
7
8      CALL histwrite_phy( o_taue550          , diff_aod550_tot          )
9      CALL histwrite_phy( o_taue670          , diag_aod670_tot   )
10      CALL histwrite_phy( o_taue865          , diag_aod865_tot  ) 
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   )
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       )
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   )
18      IF(id_codu>0) CALL histwrite_phy( o_taue670_dust     , diag_aod670_dust )
19      IF(id_codu>0) CALL histwrite_phy( o_taue865_dust     , diag_aod865_dust )
20      IF(id_scdu>0) CALL histwrite_phy( o_taue550_dustsco  , diag_aod550_dustsco )
21      IF(id_scdu>0) CALL histwrite_phy( o_taue670_dustsco  , diag_aod670_dustsco )
22      IF(id_scdu>0) CALL histwrite_phy( o_taue865_dustsco  , diag_aod865_dustsco )
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    )
29
30      IF(id_fine>0) CALL histwrite_phy( o_taue550_fine_aqua     ,aod550_tr2_aqua   )
31      IF(id_fine>0) CALL histwrite_phy( o_taue670_fine_aqua     ,aod670_tr2_aqua   )
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    )
42     
43      IF(id_fine>0) CALL histwrite_phy( o_taue550_fine_terra     ,aod550_tr2_terra   )
44      IF(id_fine>0) CALL histwrite_phy( o_taue670_fine_terra     ,aod670_tr2_terra   )
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    )
55
56
57
58      IF(id_prec>0) CALL histwrite_phy( o_trm01 , trm01 )
59      IF(id_fine>0) CALL histwrite_phy( o_trm02 , trm02 )
60      IF(id_coss>0) CALL histwrite_phy( o_trm03 , trm03 )
61      IF(id_codu>0) CALL histwrite_phy( o_trm04 , trm04 )
62      IF(id_scdu>0) CALL histwrite_phy( o_trm05 , trm05 )
63      IF(id_prec>0) CALL histwrite_phy( o_sconc01 , sconc01 )
64      IF(id_fine>0) CALL histwrite_phy( o_sconc02 , sconc02 )
65      IF(id_coss>0) CALL histwrite_phy( o_sconc03 , sconc03 )
66      IF(id_codu>0) CALL histwrite_phy( o_sconc04 , sconc04 )
67      IF(id_scdu>0) CALL histwrite_phy( o_sconc05 , sconc05 )
68
69! Lessivage
70
71      IF(id_prec>0) CALL histwrite_phy( o_flux01       , flux01 )
72      IF(id_fine>0) CALL histwrite_phy( o_flux02       , flux02 )
73      IF(id_coss>0) CALL histwrite_phy( o_flux03       , flux03 )
74      IF(id_codu>0) CALL histwrite_phy( o_flux04       , flux04 )
75      IF(id_scdu>0) CALL histwrite_phy( o_flux05       , flux05 )
76      IF(id_prec>0) CALL histwrite_phy( o_ds01         , ds01 )
77      IF(id_fine>0) CALL histwrite_phy( o_ds02         , ds02 )
78      IF(id_coss>0) CALL histwrite_phy( o_ds03         , ds03 )
79      IF(id_codu>0) CALL histwrite_phy( o_ds04         , ds04 )
80      IF(id_scdu>0) CALL histwrite_phy( o_ds05         , ds05 )
81      IF(id_prec>0) CALL histwrite_phy( o_dh01         , dh01 )
82      IF(id_fine>0) CALL histwrite_phy( o_dh02         , dh02 )
83      IF(id_coss>0) CALL histwrite_phy( o_dh03         , dh03 )
84      IF(id_codu>0) CALL histwrite_phy( o_dh04         , dh04 )
85      IF(id_scdu>0) CALL histwrite_phy( o_dh05         , dh05 )
86      IF(id_prec>0) CALL histwrite_phy( o_dtrconv01    , dtrconv01 )
87      IF(id_fine>0) CALL histwrite_phy( o_dtrconv02    , dtrconv02 )
88      IF(id_coss>0) CALL histwrite_phy( o_dtrconv03    , dtrconv03 )
89      IF(id_codu>0) CALL histwrite_phy( o_dtrconv04    , dtrconv04 )
90      IF(id_scdu>0) CALL histwrite_phy( o_dtrconv05    , dtrconv05 )
91      IF(id_prec>0) CALL histwrite_phy( o_dtherm01     , dtherm01 )
92      IF(id_fine>0) CALL histwrite_phy( o_dtherm02     , dtherm02 )
93      IF(id_coss>0) CALL histwrite_phy( o_dtherm03     , dtherm03 )
94      IF(id_codu>0) CALL histwrite_phy( o_dtherm04     , dtherm04 )
95      IF(id_scdu>0) CALL histwrite_phy( o_dtherm05     , dtherm05 )
96      IF(id_prec>0) CALL histwrite_phy( o_dhkecv01     , dhkecv01 )
97      IF(id_fine>0) CALL histwrite_phy( o_dhkecv02     , dhkecv02 )
98      IF(id_coss>0) CALL histwrite_phy( o_dhkecv03     , dhkecv03 )
99      IF(id_codu>0) CALL histwrite_phy( o_dhkecv04     , dhkecv04 )
100      IF(id_scdu>0) CALL histwrite_phy( o_dhkecv05     , dhkecv05 )
101      IF(id_prec>0) CALL histwrite_phy( o_dhkelsc01    , dhkelsc01 )
102      IF(id_fine>0) CALL histwrite_phy( o_dhkelsc02    , dhkelsc02 )
103      IF(id_coss>0) CALL histwrite_phy( o_dhkelsc03    , dhkelsc03 )
104      IF(id_codu>0) CALL histwrite_phy( o_dhkelsc04    , dhkelsc04 )
105      IF(id_scdu>0) CALL histwrite_phy( o_dhkelsc05    , dhkelsc05 )
106      IF(id_prec>0) CALL histwrite_phy( o_d_tr_cv01    , d_tr_cv01 )
107      IF(id_fine>0) CALL histwrite_phy( o_d_tr_cv02    , d_tr_cv02 )
108      IF(id_coss>0) CALL histwrite_phy( o_d_tr_cv03    , d_tr_cv03 )
109      IF(id_codu>0) CALL histwrite_phy( o_d_tr_cv04    , d_tr_cv04 )
110      IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cv05    , d_tr_cv05 )
111      IF(id_prec>0) CALL histwrite_phy( o_d_tr_trsp01  , d_tr_trsp01 )
112      IF(id_fine>0) CALL histwrite_phy( o_d_tr_trsp02  , d_tr_trsp02 )
113      IF(id_coss>0) CALL histwrite_phy( o_d_tr_trsp03  , d_tr_trsp03 )
114      IF(id_codu>0) CALL histwrite_phy( o_d_tr_trsp04  , d_tr_trsp04 )
115      IF(id_scdu>0) CALL histwrite_phy( o_d_tr_trsp05  , d_tr_trsp05 )
116      IF(id_prec>0) CALL histwrite_phy( o_d_tr_sscav01 , d_tr_sscav01 )
117      IF(id_fine>0) CALL histwrite_phy( o_d_tr_sscav02 , d_tr_sscav02 )
118      IF(id_coss>0) CALL histwrite_phy( o_d_tr_sscav03 , d_tr_sscav03 )
119      IF(id_codu>0) CALL histwrite_phy( o_d_tr_sscav04 , d_tr_sscav04 )
120      IF(id_scdu>0) CALL histwrite_phy( o_d_tr_sscav05 , d_tr_sscav05 )
121      IF(id_prec>0) CALL histwrite_phy( o_d_tr_sat01   , d_tr_sat01 )
122      IF(id_fine>0) CALL histwrite_phy( o_d_tr_sat02   , d_tr_sat02 )
123      IF(id_coss>0) CALL histwrite_phy( o_d_tr_sat03   , d_tr_sat03 )
124      IF(id_codu>0) CALL histwrite_phy( o_d_tr_sat04   , d_tr_sat04 )
125      IF(id_scdu>0) CALL histwrite_phy( o_d_tr_sat05   , d_tr_sat05 )
126      IF(id_prec>0) CALL histwrite_phy( o_d_tr_uscav01 , d_tr_uscav01 )
127      IF(id_fine>0) CALL histwrite_phy( o_d_tr_uscav02 , d_tr_uscav02 )
128      IF(id_coss>0) CALL histwrite_phy( o_d_tr_uscav03 , d_tr_uscav03 )
129      IF(id_codu>0) CALL histwrite_phy( o_d_tr_uscav04 , d_tr_uscav04 )
130      IF(id_scdu>0) CALL histwrite_phy( o_d_tr_uscav05 , d_tr_uscav05 )
131
132
133      IF(id_coss>0) CALL histwrite_phy( o_sed_ss , sed_ss)
134      IF(id_codu>0) CALL histwrite_phy( o_sed_dust , sed_dust)
135      IF(id_scdu>0) CALL histwrite_phy( o_sed_dustsco , sed_dustsco)
136      IF(id_prec>0) CALL histwrite_phy( o_g2p_gas , his_g2pgas )
137      IF(id_fine>0) CALL histwrite_phy( o_g2p_aer , his_g2paer)
138
139! histrac_spl
140!
141      CALL histwrite_phy( o_fluxbb              , fluxbb               )
142      CALL histwrite_phy( o_fluxff              , fluxff               )
143      CALL histwrite_phy( o_fluxbcbb            , fluxbcbb             )
144      CALL histwrite_phy( o_fluxbcff            , fluxbcff             )
145      CALL histwrite_phy( o_fluxbcnff           , fluxbcnff            )
146      CALL histwrite_phy( o_fluxbcba            , fluxbcba             )
147      CALL histwrite_phy( o_fluxbc              , fluxbc               )
148      CALL histwrite_phy( o_fluxombb            , fluxombb             )
149      CALL histwrite_phy( o_fluxomff            , fluxomff             )
150      CALL histwrite_phy( o_fluxomnff           , fluxomnff            )
151      CALL histwrite_phy( o_fluxomba            , fluxomba             )
152      CALL histwrite_phy( o_fluxomnat           , fluxomnat            )
153      CALL histwrite_phy( o_fluxom              , fluxom               )
154      CALL histwrite_phy( o_fluxh2sff           , fluxh2sff            )
155      CALL histwrite_phy( o_fluxh2snff          , fluxh2snff           )
156      CALL histwrite_phy( o_fluxso2ff           , fluxso2ff            )
157      CALL histwrite_phy( o_fluxso2nff          , fluxso2nff           )
158      CALL histwrite_phy( o_fluxso2bb           , fluxso2bb            )
159      CALL histwrite_phy( o_fluxso2vol          , fluxso2vol           )
160      CALL histwrite_phy( o_fluxso2ba           , fluxso2ba            )
161      CALL histwrite_phy( o_fluxso2             , fluxso2              )
162      CALL histwrite_phy( o_fluxso4ff           , fluxso4ff            )
163      CALL histwrite_phy( o_fluxso4nff          , fluxso4nff           )
164      CALL histwrite_phy( o_fluxso4bb           , fluxso4bb            )
165      CALL histwrite_phy( o_fluxso4ba           , fluxso4ba            )
166      CALL histwrite_phy( o_fluxso4             , fluxso4              )
167      CALL histwrite_phy( o_fluxdms             , fluxdms              )
168      CALL histwrite_phy( o_fluxh2sbio          , fluxh2sbio           )
169      CALL histwrite_phy( o_fluxdustec          , fluxdustec           )
170      CALL histwrite_phy( o_fluxddfine          , fluxddfine           )
171      CALL histwrite_phy( o_fluxddcoa           , fluxddcoa            )
172      CALL histwrite_phy( o_fluxddsco           , fluxddsco            )
173      CALL histwrite_phy( o_fluxdd              , fluxdd               )
174      CALL histwrite_phy( o_fluxssfine          , fluxssfine           )
175      CALL histwrite_phy( o_fluxsscoa           , fluxsscoa            )
176      CALL histwrite_phy( o_fluxss              , fluxss               )
177      CALL histwrite_phy( o_flux_sparam_ind     , flux_sparam_ind      )
178      CALL histwrite_phy( o_flux_sparam_bb      , flux_sparam_bb       )
179      CALL histwrite_phy( o_flux_sparam_ff      , flux_sparam_ff       )
180      CALL histwrite_phy( o_flux_sparam_ddfine  , flux_sparam_ddfine   )
181      CALL histwrite_phy( o_flux_sparam_ddcoa   , flux_sparam_ddcoa    )
182      CALL histwrite_phy( o_flux_sparam_ddsco   , flux_sparam_ddsco    )
183      CALL histwrite_phy( o_flux_sparam_ssfine  , flux_sparam_ssfine   )
184      CALL histwrite_phy( o_flux_sparam_sscoa   , flux_sparam_sscoa    )
185      CALL histwrite_phy( o_u10m_ss             , u10m_ss              )
186      CALL histwrite_phy( o_v10m_ss             , v10m_ss              )
187
188!      CALL histwrite_phy(  ,)
189!
190
191
192
193
Note: See TracBrowser for help on using the repository browser.