- Timestamp:
- 2020-06-03T12:48:36+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/ZDF/zdfosm.F90
r12489 r13016 1459 1459 !!----------------------------------------------------------------------------- 1460 1460 IF( TRIM(cdrw) == 'READ'.AND. ln_rstart) THEN 1461 IF(lrxios) CALL iom_swap( TRIM(crxios_context) ) 1461 1462 id1 = iom_varid( numror, 'wn' , ldstop = .FALSE. ) 1462 1463 IF( id1 > 0 ) THEN ! 'wn' exists; read … … 1477 1478 WRITE(numout,*) ' ===>>>> : previous run without osmosis scheme, hbl computed from stratification' 1478 1479 END IF 1480 IF(lrxios) CALL iom_swap( TRIM(cxios_context) ) 1479 1481 END IF 1480 1482
Note: See TracChangeset
for help on using the changeset viewer.