- Timestamp:
- Feb 22, 2021, 12:44:07 PM (4 years ago)
- Location:
- LMDZ6/branches/LMDZ-tracers
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-tracers/libf/phylmd/Dust/spla_output_write.h
r2752 r3851 9 9 CALL histwrite_phy( o_taue670 , diag_aod670_tot ) 10 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 )11 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_tr2 , diff_aod550_tr2 ) 12 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_tr2 , diag_aod670_tr2 ) 13 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_tr2 , diag_aod865_tr2 ) 14 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_ss , diag_aod550_ss ) 15 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_ss , diag_aod670_ss ) 16 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_ss , diag_aod865_ss ) 17 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_dust , diag_aod550_dust ) 18 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_dust , diag_aod670_dust ) 19 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_dust , diag_aod865_dust ) 20 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_dustsco , diag_aod550_dustsco ) 21 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_dustsco , diag_aod670_dustsco ) 22 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_dustsco , diag_aod865_dustsco ) 23 23 CALL histwrite_phy( o_taue550_aqua , aod550_aqua ) 24 24 CALL histwrite_phy( o_taue550_terra , aod550_terra ) … … 28 28 CALL histwrite_phy( o_taue865_terra , aod865_terra ) 29 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 )30 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_fine_aqua ,aod550_tr2_aqua ) 31 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_fine_aqua ,aod670_tr2_aqua ) 32 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_fine_aqua ,aod865_tr2_aqua ) 33 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_coss_aqua ,aod550_ss_aqua ) 34 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_coss_aqua ,aod670_ss_aqua ) 35 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_coss_aqua ,aod865_ss_aqua ) 36 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_codu_aqua ,aod550_dust_aqua ) 37 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_codu_aqua ,aod670_dust_aqua ) 38 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_codu_aqua ,aod865_dust_aqua ) 39 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_scdu_aqua ,aod670_dustsco_aqua ) 40 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_scdu_aqua ,aod550_dustsco_aqua ) 41 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_scdu_aqua ,aod865_dustsco_aqua ) 42 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 )43 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_fine_terra ,aod550_tr2_terra ) 44 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_fine_terra ,aod670_tr2_terra ) 45 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_fine_terra ,aod865_tr2_terra ) 46 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_coss_terra ,aod550_ss_terra ) 47 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_coss_terra ,aod670_ss_terra ) 48 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_coss_terra ,aod865_ss_terra ) 49 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_codu_terra ,aod550_dust_terra ) 50 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_codu_terra ,aod670_dust_terra ) 51 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_codu_terra ,aod865_dust_terra ) 52 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue670_scdu_terra ,aod670_dustsco_terra ) 53 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue550_scdu_terra ,aod550_dustsco_terra ) 54 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_taue865_scdu_terra ,aod865_dustsco_terra ) 55 56 57 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_trm01 , trm01 ) 58 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_trm02 , trm02 ) 59 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_trm03 , trm03 ) 60 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_trm04 , trm04 ) 61 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_trm05 , trm05 ) 62 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sconc01 , sconc01 ) 63 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sconc02 , sconc02 ) 64 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sconc03 , sconc03 ) 65 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sconc04 , sconc04 ) 66 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sconc05 , sconc05 ) 67 67 68 68 ! Lessivage 69 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 )70 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_flux01 , flux01 ) 71 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_flux02 , flux02 ) 72 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_flux03 , flux03 ) 73 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_flux04 , flux04 ) 74 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_flux05 , flux05 ) 75 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_ds01 , ds01 ) 76 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_ds02 , ds02 ) 77 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_ds03 , ds03 ) 78 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_ds04 , ds04 ) 79 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_ds05 , ds05 ) 80 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dh01 , dh01 ) 81 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dh02 , dh02 ) 82 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dh03 , dh03 ) 83 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dh04 , dh04 ) 84 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dh05 , dh05 ) 85 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtrconv01 , dtrconv01 ) 86 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtrconv02 , dtrconv02 ) 87 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtrconv03 , dtrconv03 ) 88 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtrconv04 , dtrconv04 ) 89 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtrconv05 , dtrconv05 ) 90 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtherm01 , dtherm01 ) 91 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtherm02 , dtherm02 ) 92 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtherm03 , dtherm03 ) 93 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtherm04 , dtherm04 ) 94 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dtherm05 , dtherm05 ) 95 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkecv01 , dhkecv01 ) 96 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkecv02 , dhkecv02 ) 97 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkecv03 , dhkecv03 ) 98 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkecv04 , dhkecv04 ) 99 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkecv05 , dhkecv05 ) 100 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ds01 , d_tr_ds01 ) 101 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ds02 , d_tr_ds02 ) 102 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ds03 , d_tr_ds03 ) 103 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ds04 , d_tr_ds04 ) 104 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ds05 , d_tr_ds05 ) 105 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkelsc01 , dhkelsc01 ) 106 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkelsc02 , dhkelsc02 ) 107 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkelsc03 , dhkelsc03 ) 108 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkelsc04 , dhkelsc04 ) 109 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_dhkelsc05 , dhkelsc05 ) 110 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cv01 , d_tr_cv01 ) 111 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cv02 , d_tr_cv02 ) 112 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cv03 , d_tr_cv03 ) 113 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cv04 , d_tr_cv04 ) 114 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cv05 , d_tr_cv05 ) 115 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_trsp01 , d_tr_trsp01 ) 116 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_trsp02 , d_tr_trsp02 ) 117 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_trsp03 , d_tr_trsp03 ) 118 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_trsp04 , d_tr_trsp04 ) 119 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_trsp05 , d_tr_trsp05 ) 120 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sscav01 , d_tr_sscav01 ) 121 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sscav02 , d_tr_sscav02 ) 122 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sscav03 , d_tr_sscav03 ) 123 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sscav04 , d_tr_sscav04 ) 124 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sscav05 , d_tr_sscav05 ) 125 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sat01 , d_tr_sat01 ) 126 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sat02 , d_tr_sat02 ) 127 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sat03 , d_tr_sat03 ) 128 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sat04 , d_tr_sat04 ) 129 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_sat05 , d_tr_sat05 ) 130 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_uscav01 , d_tr_uscav01 ) 131 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_uscav02 , d_tr_uscav02 ) 132 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_uscav03 , d_tr_uscav03 ) 133 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_uscav04 , d_tr_uscav04 ) 134 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_uscav05 , d_tr_uscav05 ) 135 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_insc01 , d_tr_insc01 ) 136 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_insc02 , d_tr_insc02 ) 137 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_insc03 , d_tr_insc03 ) 138 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_insc04 , d_tr_insc04 ) 139 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_insc05 , d_tr_insc05 ) 140 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_bcscav01 , d_tr_bcscav01 ) 141 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_bcscav02 , d_tr_bcscav02 ) 142 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_bcscav03 , d_tr_bcscav03 ) 143 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_bcscav04 , d_tr_bcscav04 ) 144 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_bcscav05 , d_tr_bcscav05 ) 145 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_evapls01 , d_tr_evapls01 ) 146 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_evapls02 , d_tr_evapls02 ) 147 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_evapls03 , d_tr_evapls03 ) 148 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_evapls04 , d_tr_evapls04 ) 149 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_evapls05 , d_tr_evapls05 ) 150 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ls01 , d_tr_ls01 ) 151 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ls02 , d_tr_ls02 ) 152 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ls03 , d_tr_ls03 ) 153 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ls04 , d_tr_ls04 ) 154 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_ls05 , d_tr_ls05 ) 155 156 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_dyn01 , d_tr_dyn01 ) 157 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_dyn02 , d_tr_dyn02 ) 158 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_dyn03 , d_tr_dyn03 ) 159 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_dyn04 , d_tr_dyn04 ) 160 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_dyn05 , d_tr_dyn05 ) 161 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)162 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cl01 , d_tr_cl01 ) 163 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cl02 , d_tr_cl02 ) 164 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cl03 , d_tr_cl03 ) 165 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cl04 , d_tr_cl04 ) 166 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_cl05 , d_tr_cl05 ) 167 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_th01 , d_tr_th01 ) 168 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_th02 , d_tr_th02 ) 169 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_th03 , d_tr_th03 ) 170 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_th04 , d_tr_th04 ) 171 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_d_tr_th05 , d_tr_th05 ) 172 173 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sed_ss , sed_ss) 174 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sed_dust , sed_dust) 175 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sed_dustsco , sed_dustsco) 176 IF(id_prec>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_g2p_gas , his_g2pgas ) 177 IF(id_fine>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_g2p_aer , his_g2paer) 178 178 179 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)180 IF(id_coss>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sed_ss3D , sed_ss3D) 181 IF(id_codu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sed_dust3D , sed_dust3D) 182 IF(id_scdu>0 .OR. .NOT. vars_defined) CALL histwrite_phy( o_sed_dustsco3D , sed_dustsco3D) 183 183 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 184 184 ! histrac_spl
Note: See TracChangeset
for help on using the changeset viewer.