Changeset 609 for codes/icosagcm/devel/src/initial
- Timestamp:
- 11/21/17 15:09:25 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/initial/etat0_heldsz.f90
r549 r609 245 245 DO i=ii_begin-1,ii_end+1 246 246 ij=(j-1)*iim+i 247 theta(ij,l)=theta(ij,l) - dt*(theta(ij,l)-theta_eq(ij,l))* &247 theta(ij,l)=theta(ij,l) - itau_physics*dt*(theta(ij,l)-theta_eq(ij,l))* & 248 248 (knewt_g+knewt_t(l)*COS(lat(ij))**4 ) 249 249 ENDDO … … 253 253 254 254 Do l=1,llm 255 u(:,l)=u(:,l)*(1.- dt*kfrict(l))255 u(:,l)=u(:,l)*(1.-itau_physics*dt*kfrict(l)) 256 256 END DO 257 257
Note: See TracChangeset
for help on using the changeset viewer.