- 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/TOP_SRC/trcstp.F90
r8442 r10302 19 19 USE trcwri 20 20 USE trcrst 21 USE trcstat 21 22 USE trdtrc_oce 22 23 USE trdmxl_trc … … 177 178 ! 178 179 ! !* Restart: read in restart file 179 IF( ln_rsttr .AND. iom_varid( numrtr, 'qsr_mean' , ldstop = .FALSE. ) > 0 .AND.&180 iom_varid( numrtr, 'qsr_arr_1', ldstop = .FALSE. ) > 0 .AND.&181 iom_varid( numrtr, 'zsecfst' , ldstop = .FALSE. ) > 0 ) THEN180 IF( ln_rsttr .AND. nn_rsttr /= 0 .AND. iom_varid( numrtr, 'qsr_mean' , ldstop = .FALSE. ) > 0 & 181 .AND. iom_varid( numrtr, 'qsr_arr_1', ldstop = .FALSE. ) > 0 & 182 .AND. iom_varid( numrtr, 'zsecfst' , ldstop = .FALSE. ) > 0 ) THEN 182 183 IF(lwp) WRITE(numout,*) 'trc_qsr_mean: qsr_mean read in the restart file' 183 184 CALL iom_get( numrtr, jpdom_autoglo, 'qsr_mean', qsr_mean ) ! A mean of qsr
Note: See TracChangeset
for help on using the changeset viewer.