- Timestamp:
- 2017-10-20T10:04:07+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r7646 r8644 34 34 USE timing ! Timing 35 35 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 36 USE iom_def, ONLY : lwxios 36 37 37 38 IMPLICIT NONE … … 1140 1141 CALL gls_rst( nit000, 'READ' ) !* read or initialize all required files 1141 1142 ! 1143 IF( lwxios ) THEN 1144 CALL set_rstw_var_active('en') 1145 CALL set_rstw_var_active('avt') 1146 CALL set_rstw_var_active('avm') 1147 CALL set_rstw_var_active('avmu') 1148 CALL set_rstw_var_active('avmv') 1149 CALL set_rstw_var_active('mxln') 1150 ENDIF 1151 1142 1152 IF( nn_timing == 1 ) CALL timing_stop('zdf_gls_init') 1143 1153 ! … … 1200 1210 ! ! ------------------- 1201 1211 IF(lwp) WRITE(numout,*) '---- gls-rst ----' 1202 CALL iom_rstput( kt, nitrst, numrow, 'en' , en ) 1203 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k ) 1204 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k ) 1205 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k ) 1206 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 1207 CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln ) 1212 IF( lwxios ) CALL iom_swap( wxios_context ) 1213 CALL iom_rstput( kt, nitrst, numrow, 'en' , en, lxios = lwxios ) 1214 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k, lxios = lwxios ) 1215 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k, lxios = lwxios ) 1216 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, lxios = lwxios ) 1217 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, lxios = lwxios ) 1218 CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln, lxios = lwxios ) 1219 IF( lwxios ) CALL iom_swap( cxios_context ) 1208 1220 ! 1209 1221 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.