Changeset 2196 for LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/finemission.F
- Timestamp:
- Feb 6, 2015, 6:53:57 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/finemission.F
r2175 r2196 68 68 DO i=1,klon 69 69 IF (iregion_ind(i).GT.0) THEN 70 source_tr(i,id_fine)=source_tr(i,id_fine)+70 IF(id_fine>0) source_tr(i,id_fine)=source_tr(i,id_fine)+ 71 71 . (scale_param_ff(iregion_ind(i))*lmt_bcff(i)+ !g/m2/s 72 72 . scale_param_ff(iregion_ind(i))*lmt_omff(i) 73 73 . ) * 1.e4 !g/m2/s 74 74 c 75 flux_tr(i,id_fine)=flux_tr(i,id_fine)+75 IF(id_fine>0) flux_tr(i,id_fine)=flux_tr(i,id_fine)+ 76 76 . (scale_param_ff(iregion_ind(i))*lmt_bcff(i)+ !mg/m2/s 77 77 . scale_param_ff(iregion_ind(i))*lmt_omff(i) … … 84 84 ENDIF 85 85 IF (iregion_bb(i).GT.0) THEN 86 source_tr(i,id_fine)=source_tr(i,id_fine)+86 IF(id_fine>0) source_tr(i,id_fine)=source_tr(i,id_fine)+ 87 87 . (scale_param_bb(iregion_bb(i))*lmt_bcbb_l(i)+ !g/m2/s 88 88 . scale_param_bb(iregion_bb(i))*lmt_ombb_l(i) !g/m2/s 89 89 . ) * 1.e4 !g/m2/s 90 90 c 91 flux_tr(i,id_fine)=flux_tr(i,id_fine)+91 IF(id_fine>0) flux_tr(i,id_fine)=flux_tr(i,id_fine)+ 92 92 . (scale_param_bb(iregion_bb(i))*lmt_bcbb_l(i)+ !mg/m2/s 93 93 . scale_param_bb(iregion_bb(i))*lmt_ombb_l(i)+ !mg/m2/s … … 101 101 . *1.e4*1.e3 102 102 ENDIF 103 source_tr(i,id_fine)=source_tr(i,id_fine)+103 IF(id_fine>0) source_tr(i,id_fine)=source_tr(i,id_fine)+ 104 104 . (lmt_bcnff(i)+lmt_bcba(i)+lmt_omnff(i)+ 105 105 . lmt_omnat(i)+lmt_omba(i)) * 1.e4 !g/m2/s 106 106 c 107 flux_tr(i,id_fine)=flux_tr(i,id_fine)+107 IF(id_fine>0) flux_tr(i,id_fine)=flux_tr(i,id_fine)+ 108 108 . (lmt_bcnff(i)+lmt_omnff(i)+lmt_omnat(i)+ 109 109 . lmt_omba(i)+lmt_bcba(i)) * 1.e4 *1.e3 !mg/m2/s … … 135 135 c 136 136 IF (iregion_bb(i) .GT.0) THEN 137 tr_seri(i,k,id_fine)=tr_seri(i,k,id_fine)+137 IF(id_fine>0) tr_seri(i,k,id_fine)=tr_seri(i,k,id_fine)+ 138 138 . (scale_param_bb(iregion_bb(i))*lmt_bcbb_h(i)+ 139 139 . scale_param_bb(iregion_bb(i))*lmt_ombb_h(i))
Note: See TracChangeset
for help on using the changeset viewer.