- Timestamp:
- 2015-07-16T13:55:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5601 r5602 83 83 USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 84 84 USE trabbl_crs 85 USE sbc_oce, ONLY: lk_oasis 86 USE stopar 87 USE stopts 85 88 86 89 IMPLICIT NONE … … 197 200 #if defined key_iomput 198 201 CALL xios_finalize ! end mpp communications with xios 199 IF( lk_ cpl) CALL cpl_finalize ! end coupling and mpp communications with OASIS202 IF( lk_oasis ) CALL cpl_finalize ! end coupling and mpp communications with OASIS 200 203 #else 201 IF( lk_ cpl) THEN204 IF( lk_oasis ) THEN 202 205 CALL cpl_finalize ! end coupling and mpp communications with OASIS 203 206 ELSE … … 224 227 & nn_bench, nn_timing 225 228 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 226 & jpizoom, jpjzoom, jperio 229 & jpizoom, jpjzoom, jperio, ln_use_jattr 227 230 !!---------------------------------------------------------------------- 228 231 ! 229 232 cltxt = '' 233 cxios_context = 'nemo' 230 234 ! 231 235 ! ! Open reference namelist and configuration namelist files … … 263 267 nperio = 0 264 268 jperio = 0 269 ln_use_jattr = .false. 265 270 ENDIF 266 271 #endif … … 273 278 #if defined key_iomput 274 279 IF( Agrif_Root() ) THEN 275 IF( lk_ cpl) THEN276 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis277 CALL xios_initialize( " oceanx",local_comm=ilocal_comm ) ! send nemo communicator to xios280 IF( lk_oasis ) THEN 281 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 282 CALL xios_initialize( "not used",local_comm=ilocal_comm ) ! send nemo communicator to xios 278 283 ELSE 279 CALL xios_initialize( " nemo",return_comm=ilocal_comm ) ! nemo local communicator given by xios284 CALL xios_initialize( "for_xios_mpi_id",return_comm=ilocal_comm ) ! nemo local communicator given by xios 280 285 ENDIF 281 286 ENDIF 282 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 287 ! Nodes selection (control print return in cltxt) 288 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 283 289 #else 284 IF( lk_ cpl) THEN290 IF( lk_oasis ) THEN 285 291 IF( Agrif_Root() ) THEN 286 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis292 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 287 293 ENDIF 288 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt) 294 ! Nodes selection (control print return in cltxt) 295 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 289 296 ELSE 290 297 ilocal_comm = 0 291 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt) 298 ! Nodes selection (control print return in cltxt) 299 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop ) 292 300 ENDIF 293 301 #endif … … 343 351 WRITE(numout,*) ' NEMO team' 344 352 WRITE(numout,*) ' Ocean General Circulation Model' 345 WRITE(numout,*) ' version 3. 4 (2011) '353 WRITE(numout,*) ' version 3.6 (2015) ' 346 354 WRITE(numout,*) 347 355 WRITE(numout,*) … … 385 393 IF( lk_tide ) CALL tide_init( nit000 ) ! Initialisation of the tidal harmonics 386 394 395 CALL sbc_init ! Forcings : surface module (clem: moved here for bdy purpose) 396 387 397 IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation 388 398 IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays … … 391 401 392 402 CALL dyn_nept_init ! simplified form of Neptune effect 393 394 403 ! 395 404 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid 396 405 ! 397 406 ! Ocean physics 398 CALL sbc_init ! Forcings : surface module399 407 ! ! Vertical physics 400 408 CALL zdf_init ! namelist read … … 445 453 IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 ) CALL cla_init ! Cross Land Advection 446 454 CALL icb_init( rdt, nit000) ! initialise icebergs instance 455 CALL sto_par_init ! Stochastic parametrization 456 IF( ln_sto_eos ) CALL sto_pts_init ! RRandom T/S fluctuations 447 457 448 458 #if defined key_top … … 522 532 WRITE(numout,*) ' left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 523 533 WRITE(numout,*) ' lateral cond. type (between 0 and 6) jperio = ', jperio 534 WRITE(numout,*) ' use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr 524 535 ENDIF 525 536 ! ! Parameter control
Note: See TracChangeset
for help on using the changeset viewer.