Changeset 561 for trunk/NEMO/TOP_SRC/trcrst.F90
- Timestamp:
- 2006-11-13T14:29:55+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcrst.F90
r494 r561 202 202 clname = 'qint' 203 203 clname1 = 'qtr' 204 205 CALL iom_get( inum, jpdom_local, clname , qint(:,:,:) ) 206 CALL iom_get( inum, jpdom_local, clname1, qtr (:,:,:) ) 204 DO jn = 1, jptra 205 CALL iom_get( inum, jpdom_unknown, clname, qint(:,:,jn), jn ) 206 CALL iom_get( inum, jpdom_unknown, clname1, qtr (:,:,jn), jn ) 207 ENDDO 207 208 #endif 208 209
Note: See TracChangeset
for help on using the changeset viewer.