Changeset 1322 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/calwake.F
- Timestamp:
- Mar 12, 2010, 11:54:11 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/calwake.F
r990 r1322 1 ! 2 ! $Id$ 3 ! 1 4 SUBROUTINE CALWAKE(paprs,pplay,dtime 2 5 : ,t,q,omgb … … 189 192 $ ,Cstar,d_deltat_gw 190 193 $ ,d_deltatw,d_deltaqw) 191 192 DO i=1,klon193 IF (ktopw(i) .GT. 0) THEN194 DO l=1,klev194 c 195 DO l=1,klev 196 DO i=1,klon 197 IF (ktopw(i) .GT. 0) THEN 195 198 wake_deltat(i,l)= dtw(i,l) 196 199 wake_deltaq(i,l)= dqw(i,l) … … 212 215 wake_ddeltat(i,l) = d_deltatw(i,l) 213 216 wake_ddeltaq(i,l) = d_deltaqw(i,l) 214 ENDDO 215 ELSE 216 DO l = 1,klev 217 ELSE 217 218 wake_deltat(i,l)= 0. 218 219 wake_deltaq(i,l)= 0. … … 222 223 wake_dtKE(i,l) = 0. 223 224 wake_dqKE(i,l) = 0. 225 wake_dtPBL(i,l) = 0. 226 wake_dqPBL(i,l) = 0. 224 227 wake_omg(i,l) = 0. 225 228 wake_dp_deltomg(i,l) = 0. … … 230 233 undi_t(i,l)=te(i,l) 231 234 undi_q(i,l)=qe(i,l) 232 ENDDO 233 ENDIF 234 235 wake_ddeltat(i,l) = 0. 236 wake_ddeltaq(i,l) = 0. 237 ENDIF 238 ENDDO 239 ENDDO 240 c 241 DO i=1,klon 235 242 wake_h(i)= hw(i) 236 243 wake_s(i)= sigmaw(i) … … 241 248 wake_Cstar(i) = Cstar(i) 242 249 wake_dens(i) = wdens(i) 243 c 244 cIM 290108 999 CONTINUE 245 c 246 ENDDO 250 ENDDO 251 c 247 252 RETURN 248 253 END 254 249 255 SUBROUTINE CALWAKE_scal(paprs,pplay,dtime 250 256 : ,t,q,omgb
Note: See TracChangeset
for help on using the changeset viewer.