- Timestamp:
- 2015-09-13T09:42:41+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r5407 r5737 197 197 END SUBROUTINE rst_read_open 198 198 199 199 200 SUBROUTINE rst_read 200 201 !!---------------------------------------------------------------------- … … 265 266 hdivb(:,:,:) = hdivn(:,:,:) 266 267 sshb (:,:) = sshn (:,:) 267 268 ! 268 269 IF( lk_vvl ) THEN 269 270 DO jk = 1, jpk … … 271 272 END DO 272 273 ENDIF 273 274 ! 274 275 ENDIF 275 276 !
Note: See TracChangeset
for help on using the changeset viewer.