| 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 | IF(id_prec>0) CALL histwrite_phy( o_trm01 , trm01 ) |
|---|
| 58 | IF(id_fine>0) CALL histwrite_phy( o_trm02 , trm02 ) |
|---|
| 59 | IF(id_coss>0) CALL histwrite_phy( o_trm03 , trm03 ) |
|---|
| 60 | IF(id_codu>0) CALL histwrite_phy( o_trm04 , trm04 ) |
|---|
| 61 | IF(id_scdu>0) CALL histwrite_phy( o_trm05 , trm05 ) |
|---|
| 62 | IF(id_prec>0) CALL histwrite_phy( o_sconc01 , sconc01 ) |
|---|
| 63 | IF(id_fine>0) CALL histwrite_phy( o_sconc02 , sconc02 ) |
|---|
| 64 | IF(id_coss>0) CALL histwrite_phy( o_sconc03 , sconc03 ) |
|---|
| 65 | IF(id_codu>0) CALL histwrite_phy( o_sconc04 , sconc04 ) |
|---|
| 66 | IF(id_scdu>0) CALL histwrite_phy( o_sconc05 , sconc05 ) |
|---|
| 67 | |
|---|
| 68 | ! Lessivage |
|---|
| 69 | |
|---|
| 70 | IF(id_prec>0) CALL histwrite_phy( o_flux01 , flux01 ) |
|---|
| 71 | IF(id_fine>0) CALL histwrite_phy( o_flux02 , flux02 ) |
|---|
| 72 | IF(id_coss>0) CALL histwrite_phy( o_flux03 , flux03 ) |
|---|
| 73 | IF(id_codu>0) CALL histwrite_phy( o_flux04 , flux04 ) |
|---|
| 74 | IF(id_scdu>0) CALL histwrite_phy( o_flux05 , flux05 ) |
|---|
| 75 | IF(id_prec>0) CALL histwrite_phy( o_ds01 , ds01 ) |
|---|
| 76 | IF(id_fine>0) CALL histwrite_phy( o_ds02 , ds02 ) |
|---|
| 77 | IF(id_coss>0) CALL histwrite_phy( o_ds03 , ds03 ) |
|---|
| 78 | IF(id_codu>0) CALL histwrite_phy( o_ds04 , ds04 ) |
|---|
| 79 | IF(id_scdu>0) CALL histwrite_phy( o_ds05 , ds05 ) |
|---|
| 80 | IF(id_prec>0) CALL histwrite_phy( o_dh01 , dh01 ) |
|---|
| 81 | IF(id_fine>0) CALL histwrite_phy( o_dh02 , dh02 ) |
|---|
| 82 | IF(id_coss>0) CALL histwrite_phy( o_dh03 , dh03 ) |
|---|
| 83 | IF(id_codu>0) CALL histwrite_phy( o_dh04 , dh04 ) |
|---|
| 84 | IF(id_scdu>0) CALL histwrite_phy( o_dh05 , dh05 ) |
|---|
| 85 | IF(id_prec>0) CALL histwrite_phy( o_dtrconv01 , dtrconv01 ) |
|---|
| 86 | IF(id_fine>0) CALL histwrite_phy( o_dtrconv02 , dtrconv02 ) |
|---|
| 87 | IF(id_coss>0) CALL histwrite_phy( o_dtrconv03 , dtrconv03 ) |
|---|
| 88 | IF(id_codu>0) CALL histwrite_phy( o_dtrconv04 , dtrconv04 ) |
|---|
| 89 | IF(id_scdu>0) CALL histwrite_phy( o_dtrconv05 , dtrconv05 ) |
|---|
| 90 | IF(id_prec>0) CALL histwrite_phy( o_dtherm01 , dtherm01 ) |
|---|
| 91 | IF(id_fine>0) CALL histwrite_phy( o_dtherm02 , dtherm02 ) |
|---|
| 92 | IF(id_coss>0) CALL histwrite_phy( o_dtherm03 , dtherm03 ) |
|---|
| 93 | IF(id_codu>0) CALL histwrite_phy( o_dtherm04 , dtherm04 ) |
|---|
| 94 | IF(id_scdu>0) CALL histwrite_phy( o_dtherm05 , dtherm05 ) |
|---|
| 95 | IF(id_prec>0) CALL histwrite_phy( o_dhkecv01 , dhkecv01 ) |
|---|
| 96 | IF(id_fine>0) CALL histwrite_phy( o_dhkecv02 , dhkecv02 ) |
|---|
| 97 | IF(id_coss>0) CALL histwrite_phy( o_dhkecv03 , dhkecv03 ) |
|---|
| 98 | IF(id_codu>0) CALL histwrite_phy( o_dhkecv04 , dhkecv04 ) |
|---|
| 99 | IF(id_scdu>0) CALL histwrite_phy( o_dhkecv05 , dhkecv05 ) |
|---|
| 100 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_ds01 , d_tr_ds01 ) |
|---|
| 101 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_ds02 , d_tr_ds02 ) |
|---|
| 102 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_ds03 , d_tr_ds03 ) |
|---|
| 103 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_ds04 , d_tr_ds04 ) |
|---|
| 104 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_ds05 , d_tr_ds05 ) |
|---|
| 105 | IF(id_prec>0) CALL histwrite_phy( o_dhkelsc01 , dhkelsc01 ) |
|---|
| 106 | IF(id_fine>0) CALL histwrite_phy( o_dhkelsc02 , dhkelsc02 ) |
|---|
| 107 | IF(id_coss>0) CALL histwrite_phy( o_dhkelsc03 , dhkelsc03 ) |
|---|
| 108 | IF(id_codu>0) CALL histwrite_phy( o_dhkelsc04 , dhkelsc04 ) |
|---|
| 109 | IF(id_scdu>0) CALL histwrite_phy( o_dhkelsc05 , dhkelsc05 ) |
|---|
| 110 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_cv01 , d_tr_cv01 ) |
|---|
| 111 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_cv02 , d_tr_cv02 ) |
|---|
| 112 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_cv03 , d_tr_cv03 ) |
|---|
| 113 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_cv04 , d_tr_cv04 ) |
|---|
| 114 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cv05 , d_tr_cv05 ) |
|---|
| 115 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_trsp01 , d_tr_trsp01 ) |
|---|
| 116 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_trsp02 , d_tr_trsp02 ) |
|---|
| 117 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_trsp03 , d_tr_trsp03 ) |
|---|
| 118 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_trsp04 , d_tr_trsp04 ) |
|---|
| 119 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_trsp05 , d_tr_trsp05 ) |
|---|
| 120 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_sscav01 , d_tr_sscav01 ) |
|---|
| 121 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_sscav02 , d_tr_sscav02 ) |
|---|
| 122 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_sscav03 , d_tr_sscav03 ) |
|---|
| 123 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_sscav04 , d_tr_sscav04 ) |
|---|
| 124 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_sscav05 , d_tr_sscav05 ) |
|---|
| 125 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_sat01 , d_tr_sat01 ) |
|---|
| 126 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_sat02 , d_tr_sat02 ) |
|---|
| 127 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_sat03 , d_tr_sat03 ) |
|---|
| 128 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_sat04 , d_tr_sat04 ) |
|---|
| 129 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_sat05 , d_tr_sat05 ) |
|---|
| 130 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_uscav01 , d_tr_uscav01 ) |
|---|
| 131 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_uscav02 , d_tr_uscav02 ) |
|---|
| 132 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_uscav03 , d_tr_uscav03 ) |
|---|
| 133 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_uscav04 , d_tr_uscav04 ) |
|---|
| 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 ) |
|---|
| 136 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_insc02 , d_tr_insc02 ) |
|---|
| 137 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_insc03 , d_tr_insc03 ) |
|---|
| 138 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_insc04 , d_tr_insc04 ) |
|---|
| 139 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_insc05 , d_tr_insc05 ) |
|---|
| 140 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_bcscav01 , d_tr_bcscav01 ) |
|---|
| 141 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_bcscav02 , d_tr_bcscav02 ) |
|---|
| 142 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_bcscav03 , d_tr_bcscav03 ) |
|---|
| 143 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_bcscav04 , d_tr_bcscav04 ) |
|---|
| 144 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_bcscav05 , d_tr_bcscav05 ) |
|---|
| 145 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_evapls01 , d_tr_evapls01 ) |
|---|
| 146 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_evapls02 , d_tr_evapls02 ) |
|---|
| 147 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_evapls03 , d_tr_evapls03 ) |
|---|
| 148 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_evapls04 , d_tr_evapls04 ) |
|---|
| 149 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_evapls05 , d_tr_evapls05 ) |
|---|
| 150 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_ls01 , d_tr_ls01 ) |
|---|
| 151 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_ls02 , d_tr_ls02 ) |
|---|
| 152 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_ls03 , d_tr_ls03 ) |
|---|
| 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 | |
|---|
| 156 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_dyn01 , d_tr_dyn01 ) |
|---|
| 157 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_dyn02 , d_tr_dyn02 ) |
|---|
| 158 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_dyn03 , d_tr_dyn03 ) |
|---|
| 159 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_dyn04 , d_tr_dyn04 ) |
|---|
| 160 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_dyn05 , d_tr_dyn05 ) |
|---|
| 161 | |
|---|
| 162 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_cl01 , d_tr_cl01 ) |
|---|
| 163 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_cl02 , d_tr_cl02 ) |
|---|
| 164 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_cl03 , d_tr_cl03 ) |
|---|
| 165 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_cl04 , d_tr_cl04 ) |
|---|
| 166 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cl05 , d_tr_cl05 ) |
|---|
| 167 | IF(id_prec>0) CALL histwrite_phy( o_d_tr_th01 , d_tr_th01 ) |
|---|
| 168 | IF(id_fine>0) CALL histwrite_phy( o_d_tr_th02 , d_tr_th02 ) |
|---|
| 169 | IF(id_coss>0) CALL histwrite_phy( o_d_tr_th03 , d_tr_th03 ) |
|---|
| 170 | IF(id_codu>0) CALL histwrite_phy( o_d_tr_th04 , d_tr_th04 ) |
|---|
| 171 | IF(id_scdu>0) CALL histwrite_phy( o_d_tr_th05 , d_tr_th05 ) |
|---|
| 172 | |
|---|
| 173 | IF(id_coss>0) CALL histwrite_phy( o_sed_ss , sed_ss) |
|---|
| 174 | IF(id_codu>0) CALL histwrite_phy( o_sed_dust , sed_dust) |
|---|
| 175 | IF(id_scdu>0) CALL histwrite_phy( o_sed_dustsco , sed_dustsco) |
|---|
| 176 | IF(id_prec>0) CALL histwrite_phy( o_g2p_gas , his_g2pgas ) |
|---|
| 177 | IF(id_fine>0) CALL histwrite_phy( o_g2p_aer , his_g2paer) |
|---|
| 178 | |
|---|
| 179 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 180 | IF(id_coss>0) CALL histwrite_phy( o_sed_ss3D , sed_ss3D) |
|---|
| 181 | IF(id_codu>0) CALL histwrite_phy( o_sed_dust3D , sed_dust3D) |
|---|
| 182 | IF(id_scdu>0) CALL histwrite_phy( o_sed_dustsco3D , sed_dustsco3D) |
|---|
| 183 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 184 | ! histrac_spl |
|---|
| 185 | ! |
|---|
| 186 | CALL histwrite_phy( o_fluxbb , fluxbb ) |
|---|
| 187 | CALL histwrite_phy( o_fluxff , fluxff ) |
|---|
| 188 | CALL histwrite_phy( o_fluxbcbb , fluxbcbb ) |
|---|
| 189 | CALL histwrite_phy( o_fluxbcff , fluxbcff ) |
|---|
| 190 | CALL histwrite_phy( o_fluxbcnff , fluxbcnff ) |
|---|
| 191 | CALL histwrite_phy( o_fluxbcba , fluxbcba ) |
|---|
| 192 | CALL histwrite_phy( o_fluxbc , fluxbc ) |
|---|
| 193 | CALL histwrite_phy( o_fluxombb , fluxombb ) |
|---|
| 194 | CALL histwrite_phy( o_fluxomff , fluxomff ) |
|---|
| 195 | CALL histwrite_phy( o_fluxomnff , fluxomnff ) |
|---|
| 196 | CALL histwrite_phy( o_fluxomba , fluxomba ) |
|---|
| 197 | CALL histwrite_phy( o_fluxomnat , fluxomnat ) |
|---|
| 198 | CALL histwrite_phy( o_fluxom , fluxom ) |
|---|
| 199 | CALL histwrite_phy( o_fluxh2sff , fluxh2sff ) |
|---|
| 200 | CALL histwrite_phy( o_fluxh2snff , fluxh2snff ) |
|---|
| 201 | CALL histwrite_phy( o_fluxso2ff , fluxso2ff ) |
|---|
| 202 | CALL histwrite_phy( o_fluxso2nff , fluxso2nff ) |
|---|
| 203 | CALL histwrite_phy( o_fluxso2bb , fluxso2bb ) |
|---|
| 204 | CALL histwrite_phy( o_fluxso2vol , fluxso2vol ) |
|---|
| 205 | CALL histwrite_phy( o_fluxso2ba , fluxso2ba ) |
|---|
| 206 | CALL histwrite_phy( o_fluxso2 , fluxso2 ) |
|---|
| 207 | CALL histwrite_phy( o_fluxso4ff , fluxso4ff ) |
|---|
| 208 | CALL histwrite_phy( o_fluxso4nff , fluxso4nff ) |
|---|
| 209 | CALL histwrite_phy( o_fluxso4bb , fluxso4bb ) |
|---|
| 210 | CALL histwrite_phy( o_fluxso4ba , fluxso4ba ) |
|---|
| 211 | CALL histwrite_phy( o_fluxso4 , fluxso4 ) |
|---|
| 212 | CALL histwrite_phy( o_fluxdms , fluxdms ) |
|---|
| 213 | CALL histwrite_phy( o_fluxh2sbio , fluxh2sbio ) |
|---|
| 214 | CALL histwrite_phy( o_fluxdustec , fluxdustec ) |
|---|
| 215 | CALL histwrite_phy( o_fluxddfine , fluxddfine ) |
|---|
| 216 | CALL histwrite_phy( o_fluxddcoa , fluxddcoa ) |
|---|
| 217 | CALL histwrite_phy( o_fluxddsco , fluxddsco ) |
|---|
| 218 | CALL histwrite_phy( o_fluxdd , fluxdd ) |
|---|
| 219 | CALL histwrite_phy( o_fluxssfine , fluxssfine ) |
|---|
| 220 | CALL histwrite_phy( o_fluxsscoa , fluxsscoa ) |
|---|
| 221 | CALL histwrite_phy( o_fluxss , fluxss ) |
|---|
| 222 | CALL histwrite_phy( o_flux_sparam_ind , flux_sparam_ind ) |
|---|
| 223 | CALL histwrite_phy( o_flux_sparam_bb , flux_sparam_bb ) |
|---|
| 224 | CALL histwrite_phy( o_flux_sparam_ff , flux_sparam_ff ) |
|---|
| 225 | CALL histwrite_phy( o_flux_sparam_ddfine , flux_sparam_ddfine ) |
|---|
| 226 | CALL histwrite_phy( o_flux_sparam_ddcoa , flux_sparam_ddcoa ) |
|---|
| 227 | CALL histwrite_phy( o_flux_sparam_ddsco , flux_sparam_ddsco ) |
|---|
| 228 | CALL histwrite_phy( o_flux_sparam_ssfine , flux_sparam_ssfine ) |
|---|
| 229 | CALL histwrite_phy( o_flux_sparam_sscoa , flux_sparam_sscoa ) |
|---|
| 230 | CALL histwrite_phy( o_u10m_ss , u10m_ss ) |
|---|
| 231 | CALL histwrite_phy( o_v10m_ss , v10m_ss ) |
|---|
