- Timestamp:
- 2017-05-26T12:09:41+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r7179 r8079 51 51 USE agrif_opa_interp 52 52 #endif 53 USE iom_def, ONLY : lwxios 53 54 54 55 IMPLICIT NONE … … 405 406 ! Caution : extra-hallow 406 407 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 407 CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj) ) 408 CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj) ) 408 IF( lwxios ) CALL iom_swap( wxios_context ) 409 CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj), lxios = lwxios ) 410 CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj), lxios = lwxios ) 411 IF( lwxios ) CALL iom_swap( cxios_context ) 409 412 ENDIF 410 413 !
Note: See TracChangeset
for help on using the changeset viewer.