- Timestamp:
- 2018-11-13T18:21:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r6486 r10302 19 19 USE iom ! IOM library 20 20 USE lib_mpp ! MPP library 21 USE timing 21 22 22 23 IMPLICIT NONE … … 143 144 IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN 144 145 IF(lwp) WRITE(numout,*) 'sbc_apr: ssh_ibb read in the restart file' 146 IF(nn_timing == 2) CALL timing_start('iom_rstget') 145 147 CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb ) ! before inv. barometer ssh 148 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 146 149 ! 147 150 ELSE !* no restart: set from nit000 values … … 156 159 IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 157 160 IF(lwp) WRITE(numout,*) '~~~~' 161 IF(nn_timing == 2) CALL timing_start('iom_rstput') 158 162 CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 163 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 159 164 ENDIF 160 165 !
Note: See TracChangeset
for help on using the changeset viewer.