- Timestamp:
- 2015-07-09T12:14:37+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5107_hadgem3_cplseq/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5481 r5572 83 83 USE crsini ! initialise grid coarsening utility 84 84 USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 85 USE sbc_oce, ONLY: lk_oasis 86 USE stopar 87 USE stopts 85 88 86 89 IMPLICIT NONE … … 208 211 #if defined key_iomput 209 212 CALL xios_finalize ! end mpp communications with xios 210 IF( lk_ cpl) CALL cpl_finalize ! end coupling and mpp communications with OASIS213 IF( lk_oasis ) CALL cpl_finalize ! end coupling and mpp communications with OASIS 211 214 #else 212 IF( lk_ cpl) THEN215 IF( lk_oasis ) THEN 213 216 CALL cpl_finalize ! end coupling and mpp communications with OASIS 214 217 ELSE … … 235 238 & nn_bench, nn_timing 236 239 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 237 & jpizoom, jpjzoom, jperio 240 & jpizoom, jpjzoom, jperio, ln_use_jattr 238 241 !!---------------------------------------------------------------------- 239 242 ! 240 243 cltxt = '' 244 cxios_context = 'nemo' 241 245 ! 242 246 ! ! Open reference namelist and configuration namelist files … … 274 278 nperio = 0 275 279 jperio = 0 280 ln_use_jattr = .false. 276 281 ENDIF 277 282 #endif … … 284 289 #if defined key_iomput 285 290 IF( Agrif_Root() ) THEN 286 IF( lk_ cpl) THEN287 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis288 CALL xios_initialize( " oceanx",local_comm=ilocal_comm ) ! send nemo communicator to xios291 IF( lk_oasis ) THEN 292 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 293 CALL xios_initialize( "not used",local_comm=ilocal_comm ) ! send nemo communicator to xios 289 294 ELSE 290 CALL xios_initialize( " nemo",return_comm=ilocal_comm ) ! nemo local communicator given by xios295 CALL xios_initialize( "for_xios_mpi_id",return_comm=ilocal_comm ) ! nemo local communicator given by xios 291 296 ENDIF 292 297 ENDIF 293 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 298 ! Nodes selection (control print return in cltxt) 299 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 294 300 #else 295 IF( lk_ cpl) THEN301 IF( lk_oasis ) THEN 296 302 IF( Agrif_Root() ) THEN 297 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis303 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 298 304 ENDIF 299 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt) 305 ! Nodes selection (control print return in cltxt) 306 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 300 307 ELSE 301 308 ilocal_comm = 0 302 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt) 309 ! Nodes selection (control print return in cltxt) 310 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop ) 303 311 ENDIF 304 312 #endif … … 354 362 WRITE(numout,*) ' NEMO team' 355 363 WRITE(numout,*) ' Ocean General Circulation Model' 356 WRITE(numout,*) ' version 3. 4 (2011) '364 WRITE(numout,*) ' version 3.6 (2015) ' 357 365 WRITE(numout,*) 358 366 WRITE(numout,*) … … 396 404 IF( lk_tide ) CALL tide_init( nit000 ) ! Initialisation of the tidal harmonics 397 405 406 CALL sbc_init ! Forcings : surface module (clem: moved here for bdy purpose) 407 398 408 IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation 399 409 IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays … … 402 412 403 413 CALL dyn_nept_init ! simplified form of Neptune effect 404 405 414 ! 406 415 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid 407 416 ! 408 417 ! Ocean physics 409 CALL sbc_init ! Forcings : surface module410 418 ! ! Vertical physics 411 419 CALL zdf_init ! namelist read … … 444 452 IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 ) CALL cla_init ! Cross Land Advection 445 453 CALL icb_init( rdt, nit000) ! initialise icebergs instance 454 CALL sto_par_init ! Stochastic parametrization 455 IF( ln_sto_eos ) CALL sto_pts_init ! RRandom T/S fluctuations 446 456 447 457 #if defined key_top … … 519 529 WRITE(numout,*) ' left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 520 530 WRITE(numout,*) ' lateral cond. type (between 0 and 6) jperio = ', jperio 531 WRITE(numout,*) ' use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr 521 532 ENDIF 522 533 ! ! Parameter control
Note: See TracChangeset
for help on using the changeset viewer.