Changes between Version 122 and Version 123 of user/flavoni/libIGCM
- Timestamp:
- 2009-01-23T11:13:24+01:00 (15 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
user/flavoni/libIGCM
v122 v123 310 310 '''DO ji = 1, jpi''' 311 311 '''sd(jf)%fnow(ji,jj) = ztintb * sd(jf)%fdta(ji,jj,1) + ztinta * sd(jf)%fdta(ji,jj,2)''' 312 '''END DO''' 312 '''END DO'''[[BR]] 313 313 '''END DO''' 314 314 315 315 in lines 172-181: 316 316 317 '''sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2) ! piecewise constant field''' 317 '''sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2) ! piecewise constant field'''[[BR]] 318 318 '''DO jj = 1, jpj''' 319 319 '''DO ji = 1, jpi'''