Changeset 9237 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2018-01-15T16:58:44+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r9163 r9237 178 178 ! 179 179 ! !* Restart: read in restart file 180 IF( ln_rsttr .AND. iom_varid( numrtr, 'qsr_mean' , ldstop = .FALSE. ) > 0 .AND.&181 iom_varid( numrtr, 'qsr_arr_1', ldstop = .FALSE. ) > 0 .AND.&182 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 183 183 IF(lwp) WRITE(numout,*) 'trc_qsr_mean: qsr_mean read in the restart file' 184 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.