Changeset 2194 for trunk/LMDZ.VENUS/libf
- Timestamp:
- Dec 13, 2019, 11:37:38 AM (5 years ago)
- Location:
- trunk/LMDZ.VENUS/libf/phyvenus
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F
r2193 r2194 1113 1113 ! tendency due to sedimentation 1114 1114 1115 do iq = nqmax - nmicro + 1,nqmax 1116 tr_seri(:,:,iq) = tr_seri(:,:,iq) + d_tr_sed(:,:,iq) 1115 do iq = nqmax-nmicro+1,nqmax 1117 1116 d_tr_sed(:,:,iq) = d_tr_sed(:,:,iq)/zctime 1118 1117 end do … … 1130 1129 ! update tracers (sedimentation) 1131 1130 1131 if (ok_sedim) then 1132 if (cl_scheme == 1) then 1132 1133 tr_seri(:,:,i_h2so4liq) = tr_seri(:,:,i_h2so4liq) 1133 1134 $ + d_tr_sed(:,:,1)*dtime 1134 1135 tr_seri(:,:,i_h2oliq) = tr_seri(:,:,i_h2oliq) 1135 1136 $ + d_tr_sed(:,:,2)*dtime 1137 else if (cl_scheme == 2) then 1138 do iq = nqmax-nmicro+1,nqmax 1139 tr_seri(:,:,iq) = tr_seri(:,:,iq) + d_tr_sed(:,:,iq)*dtime 1140 end do 1141 end if ! cl_scheme 1142 end if ! ok_sedim 1143 !==================================================================== 1144 ! End Case 3: Full chemistry and/or clouds. 1145 !==================================================================== 1136 1146 1137 1147 end if ! tr_scheme -
trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F
r2193 r2194 269 269 end do 270 270 271 ! liquid phase 271 ! liquid phase or moments 272 272 273 273 if (ok_cloud .and. cl_scheme == 1) then … … 282 282 end if 283 283 284 285 if (ok_cloud .and. cl_scheme == 2) then 286 do iq = nqmax-nmicro+1,nqmax 287 d_tr_chem(:,:,iq) = (ztrac(:,:,iq) - trac(:,:,iq))/pdtphys 288 end do 289 end if 290 284 291 end subroutine phytrac_chimie
Note: See TracChangeset
for help on using the changeset viewer.