Changeset 8651
- Timestamp:
- 2017-10-23T13:07:22+02:00 (7 years ago)
- Location:
- branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 14 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r8644 r8651 371 371 IF(lwxios) THEN 372 372 ! define variables in restart file when writing with XIOS 373 CALL set_rstw_var_active('frc_v')374 CALL set_rstw_var_active('frc_t')375 CALL set_rstw_var_active('frc_s')373 CALL iom_set_rstw_var_active('frc_v') 374 CALL iom_set_rstw_var_active('frc_t') 375 CALL iom_set_rstw_var_active('frc_s') 376 376 IF( ln_linssh ) THEN 377 CALL set_rstw_var_active('frc_wn_t')378 CALL set_rstw_var_active('frc_wn_s')377 CALL iom_set_rstw_var_active('frc_wn_t') 378 CALL iom_set_rstw_var_active('frc_wn_s') 379 379 ENDIF 380 CALL set_rstw_var_active('surf_ini')381 CALL set_rstw_var_active('ssh_ini')382 CALL set_rstw_var_active('e3t_ini')383 CALL set_rstw_var_active('hc_loc_ini')384 CALL set_rstw_var_active('sc_loc_ini')380 CALL iom_set_rstw_var_active('surf_ini') 381 CALL iom_set_rstw_var_active('ssh_ini') 382 CALL iom_set_rstw_var_active('e3t_ini') 383 CALL iom_set_rstw_var_active('hc_loc_ini') 384 CALL iom_set_rstw_var_active('sc_loc_ini') 385 385 IF( ln_linssh ) THEN 386 CALL set_rstw_var_active('ssh_hc_loc_ini')387 CALL set_rstw_var_active('ssh_sc_loc_ini')386 CALL iom_set_rstw_var_active('ssh_hc_loc_ini') 387 CALL iom_set_rstw_var_active('ssh_sc_loc_ini') 388 388 ENDIF 389 389 ENDIF -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r8644 r8651 146 146 IF( lwxios ) THEN 147 147 ! define variables in restart file when writing with XIOS 148 CALL set_rstw_var_active('kt')149 CALL set_rstw_var_active('ndastp')150 CALL set_rstw_var_active('adatrj')151 CALL set_rstw_var_active('ntime')148 CALL iom_set_rstw_var_active('kt') 149 CALL iom_set_rstw_var_active('ndastp') 150 CALL iom_set_rstw_var_active('adatrj') 151 CALL iom_set_rstw_var_active('ntime') 152 152 ENDIF 153 153 -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r8650 r8651 48 48 USE timing ! Timing 49 49 USE iom_def, ONLY:lwxios, wxioso, rst_wfields ! write restart flag and output type 50 USE iom, ONLY : set_rst_vars,set_rstw_core50 USE iom, ONLY : iom_set_rst_vars, iom_set_rstw_core 51 51 IMPLICIT NONE 52 52 PRIVATE … … 132 132 IF( lwxios ) THEN 133 133 !define names for restart write and set core output (restart.F90) 134 CALL set_rst_vars(rst_wfields)135 CALL set_rstw_core()134 CALL iom_set_rst_vars(rst_wfields) 135 CALL iom_set_rstw_core() 136 136 ENDIF 137 137 ! -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r8650 r8651 245 245 IF(lwxios) THEN 246 246 ! define variables in restart file when writing with XIOS 247 CALL set_rstw_var_active('e3t_b')248 CALL set_rstw_var_active('e3t_n')247 CALL iom_set_rstw_var_active('e3t_b') 248 CALL iom_set_rstw_var_active('e3t_n') 249 249 ! ! ----------------------- ! 250 250 IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN ! z_tilde and layer cases ! 251 251 ! ! ----------------------- ! 252 CALL set_rstw_var_active('tilde_e3t_b')253 CALL set_rstw_var_active('tilde_e3t_n')252 CALL iom_set_rstw_var_active('tilde_e3t_b') 253 CALL iom_set_rstw_var_active('tilde_e3t_n') 254 254 END IF 255 255 ! ! -------------! 256 256 IF( ln_vvl_ztilde ) THEN ! z_tilde case ! 257 257 ! ! ------------ ! 258 CALL set_rstw_var_active('hdiv_lf')258 CALL iom_set_rstw_var_active('hdiv_lf') 259 259 ENDIF 260 260 ! -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r8644 r8651 1327 1327 IF( lwxios ) THEN 1328 1328 ! define variables in restart file when writing with XIOS 1329 CALL set_rstw_var_active('ub2_b')1330 CALL set_rstw_var_active('vb2_b')1329 CALL iom_set_rstw_var_active('ub2_b') 1330 CALL iom_set_rstw_var_active('vb2_b') 1331 1331 ! 1332 1332 IF (.NOT.ln_bt_av) THEN 1333 CALL set_rstw_var_active('sshbb_e')1334 CALL set_rstw_var_active('ubb_e')1335 CALL set_rstw_var_active('vbb_e')1336 CALL set_rstw_var_active('sshb_e')1337 CALL set_rstw_var_active('ub_e')1338 CALL set_rstw_var_active('vb_e')1333 CALL iom_set_rstw_var_active('sshbb_e') 1334 CALL iom_set_rstw_var_active('ubb_e') 1335 CALL iom_set_rstw_var_active('vbb_e') 1336 CALL iom_set_rstw_var_active('sshb_e') 1337 CALL iom_set_rstw_var_active('ub_e') 1338 CALL iom_set_rstw_var_active('vb_e') 1339 1339 ENDIF 1340 1340 #if defined key_agrif 1341 1341 ! Save time integrated fluxes 1342 1342 IF ( .NOT.Agrif_Root() ) THEN 1343 CALL set_rstw_var_active('ub2_i_b')1344 CALL set_rstw_var_active('vb2_i_b')1343 CALL iom_set_rstw_var_active('ub2_i_b') 1344 CALL iom_set_rstw_var_active('vb2_i_b') 1345 1345 ENDIF 1346 1346 #endif -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8650 r8651 66 66 PRIVATE iom_set_domain_attr, iom_set_axis_attr, iom_set_field_attr, iom_set_file_attr, iom_get_file_attr, iom_set_grid_attr 67 67 PRIVATE set_grid, set_grid_bounds, set_scalar, set_xmlatt, set_mooring, iom_update_file_name, iom_sdate 68 PRIVATE set_rst_context,set_rstw_active69 PUBLIC set_rstw_var_active,set_rst_vars68 PRIVATE iom_set_rst_context, iom_set_rstw_active 69 PUBLIC iom_set_rstw_var_active, iom_set_rst_vars 70 70 # endif 71 71 … … 211 211 IF( TRIM(cdname) == TRIM(wxios_context) ) THEN 212 212 !set names of the fields in restart file IF using XIOS to read/write data 213 CALL set_rst_context()214 CALL set_rst_vars(rst_wfields)213 CALL iom_set_rst_context() 214 CALL iom_set_rst_vars(rst_wfields) 215 215 !set which fields are to be read from restart file 216 CALL set_rstw_active(fname)216 CALL iom_set_rstw_active(fname) 217 217 ELSE 218 218 CALL set_xmlatt … … 232 232 END SUBROUTINE iom_init 233 233 234 SUBROUTINE set_rstw_var_active(field)234 SUBROUTINE iom_set_rstw_var_active(field) 235 235 CHARACTER(len = *), INTENT(IN) :: field 236 236 INTEGER :: i … … 248 248 !Warn if variable is not in defined in rst_wfields 249 249 IF(.NOT.is_set) THEN 250 IF(lwp) write(numout,*) 'E R R O R in set_rstw_var_active: variable ', field ,' is available for writing but not defined'250 IF(lwp) write(numout,*) 'E R R O R in iom_set_rstw_var_active: variable ', field ,' is available for writing but not defined' 251 251 nstop = nstop + 1 252 252 ENDIF 253 253 254 END SUBROUTINE set_rstw_var_active254 END SUBROUTINE iom_set_rstw_var_active 255 255 256 SUBROUTINE set_rstw_core()256 SUBROUTINE iom_set_rstw_core() 257 257 !from restart.F90 258 CALL set_rstw_var_active("rdt")258 CALL iom_set_rstw_var_active("rdt") 259 259 IF ( .NOT. ln_diurnal_only ) THEN 260 CALL set_rstw_var_active('ub' )261 CALL set_rstw_var_active('vb' )262 CALL set_rstw_var_active('tb' )263 CALL set_rstw_var_active('sb' )264 CALL set_rstw_var_active('sshb')260 CALL iom_set_rstw_var_active('ub' ) 261 CALL iom_set_rstw_var_active('vb' ) 262 CALL iom_set_rstw_var_active('tb' ) 263 CALL iom_set_rstw_var_active('sb' ) 264 CALL iom_set_rstw_var_active('sshb') 265 265 ! 266 CALL set_rstw_var_active('un' )267 CALL set_rstw_var_active('vn' )268 CALL set_rstw_var_active('tn' )269 CALL set_rstw_var_active('sn' )270 CALL set_rstw_var_active('sshn')271 CALL set_rstw_var_active('rhop')266 CALL iom_set_rstw_var_active('un' ) 267 CALL iom_set_rstw_var_active('vn' ) 268 CALL iom_set_rstw_var_active('tn' ) 269 CALL iom_set_rstw_var_active('sn' ) 270 CALL iom_set_rstw_var_active('sshn') 271 CALL iom_set_rstw_var_active('rhop') 272 272 ! extra variable needed for the ice sheet coupling 273 273 IF ( ln_iscpl ) THEN 274 CALL set_rstw_var_active('tmask')275 CALL set_rstw_var_active('umask')276 CALL set_rstw_var_active('vmask')277 CALL set_rstw_var_active('smask')278 CALL set_rstw_var_active('e3t_n')279 CALL set_rstw_var_active('e3u_n')280 CALL set_rstw_var_active('e3v_n')281 CALL set_rstw_var_active('gdepw_n')274 CALL iom_set_rstw_var_active('tmask') 275 CALL iom_set_rstw_var_active('umask') 276 CALL iom_set_rstw_var_active('vmask') 277 CALL iom_set_rstw_var_active('smask') 278 CALL iom_set_rstw_var_active('e3t_n') 279 CALL iom_set_rstw_var_active('e3u_n') 280 CALL iom_set_rstw_var_active('e3v_n') 281 CALL iom_set_rstw_var_active('gdepw_n') 282 282 END IF 283 283 ELSE 284 CALL set_rstw_var_active('Dsst')284 CALL iom_set_rstw_var_active('Dsst') 285 285 ENDIF 286 286 !from trasbc.F90 287 CALL set_rstw_var_active('sbc_hc_b')288 CALL set_rstw_var_active('sbc_sc_b')289 END SUBROUTINE set_rstw_core290 291 SUBROUTINE set_rst_vars(fields)287 CALL iom_set_rstw_var_active('sbc_hc_b') 288 CALL iom_set_rstw_var_active('sbc_sc_b') 289 END SUBROUTINE iom_set_rstw_core 290 291 SUBROUTINE iom_set_rst_vars(fields) 292 292 !set names for variables in restart file 293 293 TYPE(RST_FIELD), INTENT(INOUT) :: fields(max_rst_fields) … … 392 392 393 393 IF( i-1 > max_rst_fields) THEN 394 IF(lwp) write(numout,*) 'E R R O R : set_rst_vars SIZE of RST_FIELD array is too small'394 IF(lwp) write(numout,*) 'E R R O R : iom_set_rst_vars SIZE of RST_FIELD array is too small' 395 395 nstop = nstop + 1 396 396 ENDIF 397 397 398 END SUBROUTINE set_rst_vars399 400 401 SUBROUTINE set_rstw_active(rst_file)398 END SUBROUTINE iom_set_rst_vars 399 400 401 SUBROUTINE iom_set_rstw_active(rst_file) 402 402 !sets enabled = .TRUE. for each field in restart file 403 403 CHARACTER(len=*) :: rst_file … … 442 442 ENDIF 443 443 END DO 444 END SUBROUTINE set_rstw_active445 446 SUBROUTINE set_rst_context( )444 END SUBROUTINE iom_set_rstw_active 445 446 SUBROUTINE iom_set_rst_context( ) 447 447 #if defined key_iomput 448 448 TYPE(xios_domaingroup) :: domaingroup_hdl … … 467 467 CALL xios_add_child(scalargroup_hdl, scalar_hdl, "grid_scalar") 468 468 #endif 469 END SUBROUTINE set_rst_context469 END SUBROUTINE iom_set_rst_context 470 470 471 471 SUBROUTINE iom_swap( cdname ) -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r8644 r8651 111 111 ! 112 112 IF( lwxios ) THEN 113 CALL set_rstw_var_active('ssh_ibb')113 CALL iom_set_rstw_var_active('ssh_ibb') 114 114 ENDIF 115 115 END SUBROUTINE sbc_apr_init -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90
r8644 r8651 397 397 398 398 IF( lwxios ) THEN 399 CALL set_rstw_var_active('fwf_isf_b')400 CALL set_rstw_var_active('isf_hc_b')401 CALL set_rstw_var_active('isf_sc_b')399 CALL iom_set_rstw_var_active('fwf_isf_b') 400 CALL iom_set_rstw_var_active('isf_hc_b') 401 CALL iom_set_rstw_var_active('isf_sc_b') 402 402 ENDIF 403 403 -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8644 r8651 343 343 ! 344 344 IF( lwxios ) THEN 345 CALL set_rstw_var_active('utau_b')346 CALL set_rstw_var_active('vtau_b')347 CALL set_rstw_var_active('qns_b')345 CALL iom_set_rstw_var_active('utau_b') 346 CALL iom_set_rstw_var_active('vtau_b') 347 CALL iom_set_rstw_var_active('qns_b') 348 348 ! The 3D heat content due to qsr forcing is treated in traqsr 349 ! CALL set_rstw_var_active('qsr_b')350 CALL set_rstw_var_active('emp_b')351 CALL set_rstw_var_active('sfx_b')349 ! CALL iom_set_rstw_var_active('qsr_b') 350 CALL iom_set_rstw_var_active('emp_b') 351 CALL iom_set_rstw_var_active('sfx_b') 352 352 ENDIF 353 353 -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r8644 r8651 476 476 ! 477 477 IF( lwxios ) THEN 478 CALL set_rstw_var_active('rnf_b')479 CALL set_rstw_var_active('rnf_hc_b')480 CALL set_rstw_var_active('rnf_sc_b')478 CALL iom_set_rstw_var_active('rnf_b') 479 CALL iom_set_rstw_var_active('rnf_hc_b') 480 CALL iom_set_rstw_var_active('rnf_sc_b') 481 481 ENDIF 482 482 -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r8644 r8651 255 255 ! 256 256 IF( lwxios.AND.nn_fsbc > 1 ) THEN 257 CALL set_rstw_var_active('nn_fsbc')258 CALL set_rstw_var_active('ssu_m')259 CALL set_rstw_var_active('ssv_m')260 CALL set_rstw_var_active('sst_m')261 CALL set_rstw_var_active('sss_m')262 CALL set_rstw_var_active('ssh_m')263 CALL set_rstw_var_active('e3t_m')264 CALL set_rstw_var_active('frq_m')257 CALL iom_set_rstw_var_active('nn_fsbc') 258 CALL iom_set_rstw_var_active('ssu_m') 259 CALL iom_set_rstw_var_active('ssv_m') 260 CALL iom_set_rstw_var_active('sst_m') 261 CALL iom_set_rstw_var_active('sss_m') 262 CALL iom_set_rstw_var_active('ssh_m') 263 CALL iom_set_rstw_var_active('e3t_m') 264 CALL iom_set_rstw_var_active('frq_m') 265 265 ENDIF 266 266 -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r8644 r8651 439 439 ! 440 440 IF( lwxios ) THEN 441 CALL set_rstw_var_active('qsr_hc_b')442 CALL set_rstw_var_active('fraqsr_1lev')441 CALL iom_set_rstw_var_active('qsr_hc_b') 442 CALL iom_set_rstw_var_active('fraqsr_1lev') 443 443 ENDIF 444 444 IF( nn_timing == 1 ) CALL timing_stop('tra_qsr_init') -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r8644 r8651 1142 1142 ! 1143 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')1144 CALL iom_set_rstw_var_active('en') 1145 CALL iom_set_rstw_var_active('avt') 1146 CALL iom_set_rstw_var_active('avm') 1147 CALL iom_set_rstw_var_active('avmu') 1148 CALL iom_set_rstw_var_active('avmv') 1149 CALL iom_set_rstw_var_active('mxln') 1150 1150 ENDIF 1151 1151 -
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r8644 r8651 816 816 ! 817 817 IF( lwxios ) THEN 818 CALL set_rstw_var_active('en')819 CALL set_rstw_var_active('avt')820 CALL set_rstw_var_active('avm')821 CALL set_rstw_var_active('avmu')822 CALL set_rstw_var_active('avmv')823 CALL set_rstw_var_active('dissl')818 CALL iom_set_rstw_var_active('en') 819 CALL iom_set_rstw_var_active('avt') 820 CALL iom_set_rstw_var_active('avm') 821 CALL iom_set_rstw_var_active('avmu') 822 CALL iom_set_rstw_var_active('avmv') 823 CALL iom_set_rstw_var_active('dissl') 824 824 ENDIF 825 825
Note: See TracChangeset
for help on using the changeset viewer.