- Timestamp:
- 2015-08-04T14:45:33+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5427 r5666 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 USE diatmb ! Top,middle,bottom output 85 88 USE dia25h ! 25h mean output … … 186 189 ! 187 190 #if defined key_agrif 188 CALL Agrif_ParentGrid_To_ChildGrid() 189 IF( lk_diaobs ) CALL dia_obs_wri 190 IF( nn_timing == 1 ) CALL timing_finalize 191 CALL Agrif_ChildGrid_To_ParentGrid() 191 IF ( Agrif_Level() < Agrif_MaxLevel() ) THEN 192 CALL Agrif_ParentGrid_To_ChildGrid() 193 IF( lk_diaobs ) CALL dia_obs_wri 194 IF( nn_timing == 1 ) CALL timing_finalize 195 CALL Agrif_ChildGrid_To_ParentGrid() 196 ENDIF 192 197 #endif 193 198 IF( nn_timing == 1 ) CALL timing_finalize … … 197 202 #if defined key_iomput 198 203 CALL xios_finalize ! end mpp communications with xios 199 IF( lk_ cpl) CALL cpl_finalize ! end coupling and mpp communications with OASIS204 IF( lk_oasis ) CALL cpl_finalize ! end coupling and mpp communications with OASIS 200 205 #else 201 IF( lk_ cpl) THEN206 IF( lk_oasis ) THEN 202 207 CALL cpl_finalize ! end coupling and mpp communications with OASIS 203 208 ELSE … … 228 233 ! 229 234 cltxt = '' 235 cxios_context = 'nemo' 230 236 ! 231 237 ! ! Open reference namelist and configuration namelist files … … 274 280 #if defined key_iomput 275 281 IF( Agrif_Root() ) THEN 276 IF( lk_ cpl) THEN277 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis278 CALL xios_initialize( " oceanx",local_comm=ilocal_comm ) ! send nemo communicator to xios282 IF( lk_oasis ) THEN 283 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 284 CALL xios_initialize( "not used",local_comm=ilocal_comm ) ! send nemo communicator to xios 279 285 ELSE 280 CALL xios_initialize( " nemo",return_comm=ilocal_comm ) ! nemo local communicator given by xios286 CALL xios_initialize( "for_xios_mpi_id",return_comm=ilocal_comm ) ! nemo local communicator given by xios 281 287 ENDIF 282 288 ENDIF 283 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 289 ! Nodes selection (control print return in cltxt) 290 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 284 291 #else 285 IF( lk_ cpl) THEN292 IF( lk_oasis ) THEN 286 293 IF( Agrif_Root() ) THEN 287 CALL cpl_init( ilocal_comm )! nemo local communicator given by oasis294 CALL cpl_init( "oceanx", ilocal_comm ) ! nemo local communicator given by oasis 288 295 ENDIF 289 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! 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, ilocal_comm ) 290 298 ELSE 291 299 ilocal_comm = 0 292 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt) 300 ! Nodes selection (control print return in cltxt) 301 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop ) 293 302 ENDIF 294 303 #endif … … 434 443 IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 ) CALL cla_init ! Cross Land Advection 435 444 CALL icb_init( rdt, nit000) ! initialise icebergs instance 445 CALL sto_par_init ! Stochastic parametrization 446 IF( ln_sto_eos ) CALL sto_pts_init ! RRandom T/S fluctuations 436 447 437 448 #if defined key_top
Note: See TracChangeset
for help on using the changeset viewer.