Changeset 1483 for trunk/NEMO
- Timestamp:
- 2009-07-03T18:13:24+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/restart.F90
r1481 r1483 132 132 CALL iom_rstput( kt, nitrst, numrow, 'rhop' , rhop ) 133 133 134 #if defined key_zdfddm 134 135 IF( lk_zdfddm ) CALL iom_rstput( kt, nitrst, numrow, 'rrau' , rrau ) 136 #endif 135 137 136 138 IF( kt == nitrst ) THEN … … 206 208 CALL iom_get( numror, jpdom_autoglo, 'rhop', rhop ) ! now mixed layer depth 207 209 210 #if defined key_zdfddm 208 211 IF( lk_zdfddm ) THEN 209 212 IF( iom_varid( numror, 'rrau', ldstop = .FALSE. ) > 0 ) THEN … … 214 217 ENDIF 215 218 ENDIF 219 #endif 216 220 217 221 IF( neuler == 0 ) THEN ! Euler restart (neuler=0)
Note: See TracChangeset
for help on using the changeset viewer.