- Timestamp:
- 2015-06-22T16:40:58+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/restart_datestamp/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5420 r5462 82 82 USE crsini ! initialise grid coarsening utility 83 83 USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 84 USE sbc_oce, ONLY: lk_oasis 85 USE stopar 86 USE stopts 84 87 85 88 IMPLICIT NONE … … 195 198 #if defined key_iomput 196 199 CALL xios_finalize ! end mpp communications with xios 197 IF( lk_ cpl) CALL cpl_finalize ! end coupling and mpp communications with OASIS200 IF( lk_oasis ) CALL cpl_finalize ! end coupling and mpp communications with OASIS 198 201 #else 199 IF( lk_ cpl) THEN202 IF( lk_oasis ) THEN 200 203 CALL cpl_finalize ! end coupling and mpp communications with OASIS 201 204 ELSE … … 222 225 & nn_bench, nn_timing 223 226 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 224 & jpizoom, jpjzoom, jperio 227 & jpizoom, jpjzoom, jperio, ln_use_jattr 225 228 !!---------------------------------------------------------------------- 226 229 ! 227 230 cltxt = '' 231 cxios_context = 'nemo' 228 232 ! 229 233 ! ! Open reference namelist and configuration namelist files … … 261 265 nperio = 0 262 266 jperio = 0 267 ln_use_jattr = .false. 263 268 ENDIF 264 269 #endif … … 271 276 #if defined key_iomput 272 277 IF( Agrif_Root() ) THEN 273 IF( lk_ cpl) THEN274 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis275 CALL xios_initialize( " oceanx",local_comm=ilocal_comm ) ! send nemo communicator to xios278 IF( lk_oasis ) THEN 279 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 280 CALL xios_initialize( "not used",local_comm=ilocal_comm ) ! send nemo communicator to xios 276 281 ELSE 277 CALL xios_initialize( " nemo",return_comm=ilocal_comm ) ! nemo local communicator given by xios282 CALL xios_initialize( "for_xios_mpi_id",return_comm=ilocal_comm ) ! nemo local communicator given by xios 278 283 ENDIF 279 284 ENDIF 280 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 285 ! Nodes selection (control print return in cltxt) 286 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 281 287 #else 282 IF( lk_ cpl) THEN288 IF( lk_oasis ) THEN 283 289 IF( Agrif_Root() ) THEN 284 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis290 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 285 291 ENDIF 286 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt) 292 ! Nodes selection (control print return in cltxt) 293 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 287 294 ELSE 288 295 ilocal_comm = 0 289 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt) 296 ! Nodes selection (control print return in cltxt) 297 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop ) 290 298 ENDIF 291 299 #endif … … 341 349 WRITE(numout,*) ' NEMO team' 342 350 WRITE(numout,*) ' Ocean General Circulation Model' 343 WRITE(numout,*) ' version 3. 4 (2011) '351 WRITE(numout,*) ' version 3.6 (2015) ' 344 352 WRITE(numout,*) 345 353 WRITE(numout,*) … … 383 391 IF( lk_tide ) CALL tide_init( nit000 ) ! Initialisation of the tidal harmonics 384 392 393 CALL sbc_init ! Forcings : surface module (clem: moved here for bdy purpose) 394 385 395 IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation 386 396 IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays … … 389 399 390 400 CALL dyn_nept_init ! simplified form of Neptune effect 391 392 401 ! 393 402 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid 394 403 ! 395 404 ! Ocean physics 396 CALL sbc_init ! Forcings : surface module397 405 ! ! Vertical physics 398 406 CALL zdf_init ! namelist read … … 431 439 IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 ) CALL cla_init ! Cross Land Advection 432 440 CALL icb_init( rdt, nit000) ! initialise icebergs instance 441 CALL sto_par_init ! Stochastic parametrization 442 IF( ln_sto_eos ) CALL sto_pts_init ! RRandom T/S fluctuations 433 443 434 444 #if defined key_top … … 506 516 WRITE(numout,*) ' left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 507 517 WRITE(numout,*) ' lateral cond. type (between 0 and 6) jperio = ', jperio 518 WRITE(numout,*) ' use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr 508 519 ENDIF 509 520 ! ! Parameter control
Note: See TracChangeset
for help on using the changeset viewer.