Changeset 14124 for NEMO/branches
- Timestamp:
- 2020-12-07T20:40:20+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r14118_ticket2377/src/OCE/SBC/sbcfwb.F90
r14123 r14124 131 131 IF ( ln_rstart .AND. iom_varid( numror, 'a_fwb', ldstop = .FALSE. ) > 0 ) THEN ! as read from restart file 132 132 IF(lwp) WRITE(numout,*) 'sbc_fwb : reading FW-budget adjustment from restart file' 133 CALL iom_get( numror, 'a_fwb', a_fwb , ldxios = lrxios)133 CALL iom_get( numror, 'a_fwb', a_fwb ) 134 134 ELSE ! as specified in namelist 135 135 a_fwb = rn_fwb0 … … 139 139 IF(lwp)WRITE(numout,*)'sbc_fwb : initial freshwater-budget adjustment = ', a_fwb, 'kg/m2/s' 140 140 ! 141 IF( lwxios ) THEN ! Activate output of restart variables142 CALL iom_set_rstw_var_active( 'a_fwb' )143 END IF144 141 ENDIF 145 142 ! ! Update a_fwb if new year start … … 163 160 IF(lwp) WRITE(numout,*) 'sbc_fwb : writing FW-budget adjustment to ocean restart file at it = ', kt 164 161 IF(lwp) WRITE(numout,*) '~~~~' 165 IF( lwxios ) CALL iom_swap( cwxios_context ) 166 CALL iom_rstput( kt, nitrst, numrow, 'a_fwb', a_fwb, ldxios = lwxios ) 167 IF( lwxios ) CALL iom_swap( cxios_context ) 162 CALL iom_rstput( kt, nitrst, numrow, 'a_fwb', a_fwb ) 168 163 END IF 169 164 !
Note: See TracChangeset
for help on using the changeset viewer.