- Timestamp:
- 2020-11-25T12:51:29+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/TOP/trcstp.F90
r13727 r13871 110 110 IF( kt == nittrc000 ) THEN 111 111 CALL iom_close( numrtr ) ! close input tracer restart file 112 IF(lr txios) CALL iom_context_finalize( crtxios_context )112 IF(lrxios) CALL iom_context_finalize( cr_toprst_cxt ) 113 113 IF(lwm) CALL FLUSH( numont ) ! flush namelist output 114 114 ENDIF … … 197 197 & .AND. iom_varid( numrtr, 'ktdcy' , ldstop = .FALSE. ) > 0 & 198 198 & .AND. iom_varid( numrtr, 'nrdcy' , ldstop = .FALSE. ) > 0 ) THEN 199 IF(lr txios) CALL iom_swap(crtxios_context)200 CALL iom_get( numrtr, 'ktdcy', zkt, ldxios = lr txios )199 IF(lrxios) CALL iom_swap(cr_toprst_cxt) 200 CALL iom_get( numrtr, 'ktdcy', zkt, ldxios = lrxios ) 201 201 rsecfst = INT( zkt ) * rn_Dt 202 202 IF(lwp) WRITE(numout,*) 'trc_qsr_mean: qsr_mean read in the restart file at time-step rsecfst =', rsecfst, ' s ' 203 CALL iom_get( numrtr, jpdom_auto, 'qsr_mean', qsr_mean, ldxios = lr txios ) ! A mean of qsr204 CALL iom_get( numrtr, 'nrdcy', zrec, ldxios = lr txios ) ! Number of record per days203 CALL iom_get( numrtr, jpdom_auto, 'qsr_mean', qsr_mean, ldxios = lrxios ) ! A mean of qsr 204 CALL iom_get( numrtr, 'nrdcy', zrec, ldxios = lrxios ) ! Number of record per days 205 205 IF( INT( zrec ) == nb_rec_per_day ) THEN 206 206 DO jn = 1, nb_rec_per_day 207 207 IF( jn <= 9 ) THEN 208 208 WRITE(cl1,'(i1)') jn 209 CALL iom_get( numrtr, jpdom_auto, 'qsr_arr_'//cl1, qsr_arr(:,:,jn), ldxios = lr txios ) ! A mean of qsr209 CALL iom_get( numrtr, jpdom_auto, 'qsr_arr_'//cl1, qsr_arr(:,:,jn), ldxios = lrxios ) ! A mean of qsr 210 210 ELSE 211 211 WRITE(cl2,'(i2.2)') jn 212 CALL iom_get( numrtr, jpdom_auto, 'qsr_arr_'//cl2, qsr_arr(:,:,jn), ldxios = lr txios ) ! A mean of qsr212 CALL iom_get( numrtr, jpdom_auto, 'qsr_arr_'//cl2, qsr_arr(:,:,jn), ldxios = lrxios ) ! A mean of qsr 213 213 ENDIF 214 214 END DO … … 218 218 ENDDO 219 219 ENDIF 220 IF(lr txios) CALL iom_swap(cxios_context)220 IF(lrxios) CALL iom_swap(cxios_context) 221 221 ELSE !* no restart: set from nit000 values 222 222 IF(lwp) WRITE(numout,*) 'trc_qsr_mean: qsr_mean set to nit000 values' … … 252 252 zkt = REAL( ktdcy, wp ) 253 253 zrec = REAL( nb_rec_per_day, wp ) 254 IF( lwxios ) CALL iom_swap( cw txios_context )254 IF( lwxios ) CALL iom_swap( cw_toprst_cxt ) 255 255 CALL iom_rstput( kt, nitrst, numrtw, 'ktdcy', zkt, ldxios = lwxios ) 256 256 CALL iom_rstput( kt, nitrst, numrtw, 'nrdcy', zrec, ldxios = lwxios )
Note: See TracChangeset
for help on using the changeset viewer.