- Timestamp:
- 2018-02-28T17:23:20+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfosm.F90
r9190 r9367 1509 1509 ghamv(:,:,:) = 0. 1510 1510 ! 1511 IF( lwxios ) THEN 1512 CALL iom_set_rstw_var_active('wn') 1513 CALL iom_set_rstw_var_active('hbl') 1514 CALL iom_set_rstw_var_active('hbli') 1515 ENDIF 1511 1516 END SUBROUTINE zdf_osm_init 1512 1517 … … 1540 1545 id1 = iom_varid( numror, 'wn' , ldstop = .FALSE. ) 1541 1546 IF( id1 > 0 ) THEN ! 'wn' exists; read 1542 CALL iom_get( numror, jpdom_autoglo, 'wn', wn )1547 CALL iom_get( numror, jpdom_autoglo, 'wn', wn, ldxios = lrxios ) 1543 1548 WRITE(numout,*) ' ===>>>> : wn read from restart file' 1544 1549 ELSE … … 1549 1554 id2 = iom_varid( numror, 'hbli' , ldstop = .FALSE. ) 1550 1555 IF( id1 > 0 .AND. id2 > 0) THEN ! 'hbl' exists; read and return 1551 CALL iom_get( numror, jpdom_autoglo, 'hbl' , hbl)1552 CALL iom_get( numror, jpdom_autoglo, 'hbli', hbli )1556 CALL iom_get( numror, jpdom_autoglo, 'hbl' , hbl , ldxios = lrxios ) 1557 CALL iom_get( numror, jpdom_autoglo, 'hbli', hbli, ldxios = lrxios ) 1553 1558 WRITE(numout,*) ' ===>>>> : hbl & hbli read from restart file' 1554 1559 RETURN … … 1563 1568 IF( TRIM(cdrw) == 'WRITE') THEN !* Write hbli into the restart file, then return 1564 1569 IF(lwp) WRITE(numout,*) '---- osm-rst ----' 1565 CALL iom_rstput( kt, nitrst, numrow, 'wn' , wn)1566 CALL iom_rstput( kt, nitrst, numrow, 'hbl' , hbl)1567 CALL iom_rstput( kt, nitrst, numrow, 'hbli' , hbli 1570 CALL iom_rstput( kt, nitrst, numrow, 'wn' , wn , ldxios = lwxios ) 1571 CALL iom_rstput( kt, nitrst, numrow, 'hbl' , hbl , ldxios = lwxios ) 1572 CALL iom_rstput( kt, nitrst, numrow, 'hbli' , hbli, ldxios = lwxios ) 1568 1573 RETURN 1569 1574 END IF
Note: See TracChangeset
for help on using the changeset viewer.