Changeset 5600 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2015-07-15T17:46:12+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5034 r5600 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 … … 184 187 ! 185 188 #if defined key_agrif 186 CALL Agrif_ParentGrid_To_ChildGrid() 187 IF( lk_diaobs ) CALL dia_obs_wri 188 IF( nn_timing == 1 ) CALL timing_finalize 189 CALL Agrif_ChildGrid_To_ParentGrid() 189 IF ( Agrif_Level() < Agrif_MaxLevel() ) THEN 190 CALL Agrif_ParentGrid_To_ChildGrid() 191 IF( lk_diaobs ) CALL dia_obs_wri 192 IF( nn_timing == 1 ) CALL timing_finalize 193 CALL Agrif_ChildGrid_To_ParentGrid() 194 ENDIF 190 195 #endif 191 196 IF( nn_timing == 1 ) CALL timing_finalize … … 195 200 #if defined key_iomput 196 201 CALL xios_finalize ! end mpp communications with xios 197 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 198 203 #else 199 IF( lk_ cpl) THEN204 IF( lk_oasis ) THEN 200 205 CALL cpl_finalize ! end coupling and mpp communications with OASIS 201 206 ELSE … … 222 227 & nn_bench, nn_timing 223 228 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 224 & jpizoom, jpjzoom, jperio 229 & jpizoom, jpjzoom, jperio, ln_use_jattr 225 230 !!---------------------------------------------------------------------- 226 231 ! 227 232 cltxt = '' 233 cxios_context = 'nemo' 228 234 ! 229 235 ! ! Open reference namelist and configuration namelist files … … 261 267 nperio = 0 262 268 jperio = 0 269 ln_use_jattr = .false. 263 270 ENDIF 264 271 #endif … … 271 278 #if defined key_iomput 272 279 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 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 276 283 ELSE 277 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 278 285 ENDIF 279 286 ENDIF 280 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 ) 281 289 #else 282 IF( lk_ cpl) THEN290 IF( lk_oasis ) THEN 283 291 IF( Agrif_Root() ) THEN 284 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis292 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 285 293 ENDIF 286 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 ) 287 296 ELSE 288 297 ilocal_comm = 0 289 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 ) 290 300 ENDIF 291 301 #endif … … 341 351 WRITE(numout,*) ' NEMO team' 342 352 WRITE(numout,*) ' Ocean General Circulation Model' 343 WRITE(numout,*) ' version 3. 4 (2011) '353 WRITE(numout,*) ' version 3.6 (2015) ' 344 354 WRITE(numout,*) 345 355 WRITE(numout,*) … … 383 393 IF( lk_tide ) CALL tide_init( nit000 ) ! Initialisation of the tidal harmonics 384 394 395 CALL sbc_init ! Forcings : surface module (clem: moved here for bdy purpose) 396 385 397 IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation 386 398 IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays … … 389 401 390 402 CALL dyn_nept_init ! simplified form of Neptune effect 391 392 403 ! 393 404 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid 394 405 ! 395 406 ! Ocean physics 396 CALL sbc_init ! Forcings : surface module397 407 ! ! Vertical physics 398 408 CALL zdf_init ! namelist read … … 431 441 IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 ) CALL cla_init ! Cross Land Advection 432 442 CALL icb_init( rdt, nit000) ! initialise icebergs instance 443 CALL sto_par_init ! Stochastic parametrization 444 IF( ln_sto_eos ) CALL sto_pts_init ! RRandom T/S fluctuations 433 445 434 446 #if defined key_top … … 506 518 WRITE(numout,*) ' left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 507 519 WRITE(numout,*) ' lateral cond. type (between 0 and 6) jperio = ', jperio 520 WRITE(numout,*) ' use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr 508 521 ENDIF 509 522 ! ! Parameter control
Note: See TracChangeset
for help on using the changeset viewer.