- Timestamp:
- 2015-07-21T13:25:36+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5123 r5621 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 … … 226 231 ! 227 232 cltxt = '' 233 cxios_context = 'nemo' 228 234 ! 229 235 ! ! Open reference namelist and configuration namelist files … … 272 278 #if defined key_iomput 273 279 IF( Agrif_Root() ) THEN 274 IF( lk_ cpl) THEN275 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis276 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 277 283 ELSE 278 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 279 285 ENDIF 280 286 ENDIF 281 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 ) 282 289 #else 283 IF( lk_ cpl) THEN290 IF( lk_oasis ) THEN 284 291 IF( Agrif_Root() ) THEN 285 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis292 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 286 293 ENDIF 287 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 ) 288 296 ELSE 289 297 ilocal_comm = 0 290 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 ) 291 300 ENDIF 292 301 #endif … … 432 441 IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 ) CALL cla_init ! Cross Land Advection 433 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 434 445 435 446 #if defined key_top
Note: See TracChangeset
for help on using the changeset viewer.