- Timestamp:
- 2017-06-29T11:41:55+02:00 (7 years ago)
- Location:
- branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/DYN
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r7924 r8243 52 52 #endif 53 53 USE iom_def, ONLY : lxios_read 54 USE iom_def, ONLY : lwxios 54 55 55 56 IMPLICIT NONE … … 406 407 ! Caution : extra-hallow 407 408 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 408 CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj) ) 409 CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj) ) 409 IF( lwxios ) CALL iom_swap( wxios_context ) 410 CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj), lxios = lwxios ) 411 CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj), lxios = lwxios ) 412 IF( lwxios ) CALL iom_swap( cxios_context ) 410 413 ENDIF 411 414 ! -
branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r7924 r8243 49 49 #endif 50 50 USE iom_def, ONLY : lxios_read 51 USE iom_def, ONLY : lwxios 51 52 52 53 IMPLICIT NONE … … 1039 1040 ! 1040 1041 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 1041 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:) ) 1042 CALL iom_rstput( kt, nitrst, numrow, 'vb2_b' , vb2_b (:,:) ) 1042 IF( lwxios ) CALL iom_swap( wxios_context ) 1043 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:), lxios = lwxios ) 1044 CALL iom_rstput( kt, nitrst, numrow, 'vb2_b' , vb2_b (:,:), lxios = lwxios ) 1043 1045 ! 1044 1046 IF (.NOT.ln_bt_av) THEN 1045 CALL iom_rstput( kt, nitrst, numrow, 'sshbb_e' , sshbb_e(:,:) )1046 CALL iom_rstput( kt, nitrst, numrow, 'ubb_e' , ubb_e(:,:) )1047 CALL iom_rstput( kt, nitrst, numrow, 'vbb_e' , vbb_e(:,:) )1048 CALL iom_rstput( kt, nitrst, numrow, 'sshb_e' , sshb_e(:,:) )1049 CALL iom_rstput( kt, nitrst, numrow, 'ub_e' , ub_e(:,:) )1050 CALL iom_rstput( kt, nitrst, numrow, 'vb_e' , vb_e(:,:) )1047 CALL iom_rstput( kt, nitrst, numrow, 'sshbb_e' , sshbb_e(:,:), lxios = lwxios ) 1048 CALL iom_rstput( kt, nitrst, numrow, 'ubb_e' , ubb_e(:,:), lxios = lwxios ) 1049 CALL iom_rstput( kt, nitrst, numrow, 'vbb_e' , vbb_e(:,:), lxios = lwxios ) 1050 CALL iom_rstput( kt, nitrst, numrow, 'sshb_e' , sshb_e(:,:), lxios = lwxios ) 1051 CALL iom_rstput( kt, nitrst, numrow, 'ub_e' , ub_e(:,:), lxios = lwxios ) 1052 CALL iom_rstput( kt, nitrst, numrow, 'vb_e' , vb_e(:,:), lxios = lwxios ) 1051 1053 ENDIF 1052 1054 #if defined key_agrif 1053 1055 ! Save time integrated fluxes 1054 1056 IF ( .NOT.Agrif_Root() ) THEN 1055 CALL iom_rstput( kt, nitrst, numrow, 'ub2_i_b' , ub2_i_b(:,:) ) 1056 CALL iom_rstput( kt, nitrst, numrow, 'vb2_i_b' , vb2_i_b(:,:) ) 1057 ENDIF 1058 #endif 1057 CALL iom_rstput( kt, nitrst, numrow, 'ub2_i_b' , ub2_i_b(:,:), lxios = lwxios ) 1058 CALL iom_rstput( kt, nitrst, numrow, 'vb2_i_b' , vb2_i_b(:,:), lxios = lwxios ) 1059 ENDIF 1060 #endif 1061 IF( lwxios ) CALL iom_swap( cxios_context ) 1059 1062 ENDIF 1060 1063 !
Note: See TracChangeset
for help on using the changeset viewer.