Changeset 5965 for branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OOO_SRC/nemogcm.F90
- Timestamp:
- 2015-12-01T16:35:30+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.5_SST_BIAS_CORRECTION/NEMOGCM/NEMO/OOO_SRC/nemogcm.F90
r4624 r5965 54 54 USE icbini ! handle bergs, initialisation 55 55 USE icbstp ! handle bergs, calving, themodynamics and transport 56 #if defined key_oasis357 56 USE cpl_oasis3 ! OASIS3 coupling 58 #elif defined key_oasis459 USE cpl_oasis4 ! OASIS4 coupling (not working)60 #endif61 57 USE lib_mpp ! distributed memory computing 62 58 #if defined key_iomput … … 133 129 & nn_bench, nn_timing 134 130 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 135 & jpizoom, jpjzoom, jperio 131 & jpizoom, jpjzoom, jperio, ln_use_jattr 136 132 !!---------------------------------------------------------------------- 137 133 ! 138 134 cltxt = '' 135 cxios_context = 'nemo' 139 136 ! 140 137 ! ! Open reference namelist and configuration namelist files … … 166 163 #if defined key_iomput 167 164 IF( Agrif_Root() ) THEN 168 # if defined key_oasis3 || defined key_oasis4 169 CALL cpl_prism_init( ilocal_comm ) ! nemo local communicator given by oasis 170 CALL xios_initialize( "oceanx",local_comm=ilocal_comm ) 171 # else 172 CALL xios_initialize( "nemo",return_comm=ilocal_comm ) 173 # endif 174 ENDIF 175 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 165 IF( lk_oasis ) THEN 166 CALL cpl_init( ilocal_comm ) ! nemo local communicator given by oasis 167 CALL xios_initialize( "oceanx",local_comm=ilocal_comm ) ! send nemo communicator to xios 168 ELSE 169 CALL xios_initialize( "for_xios_mpi_id",return_comm=ilocal_comm ) ! nemo local communicator given by xios 170 ENDIF 171 ENDIF 172 ENDIF 173 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 176 174 #else 177 # if defined key_oasis3 || defined key_oasis4 178 IF( Agrif_Root() ) THEN179 CALL cpl_prism_init( ilocal_comm )! nemo local communicator given by oasis180 ENDIF181 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt)182 # else 183 ilocal_comm = 0184 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt)185 # endif 175 IF( lk_oasis ) THEN 176 IF( Agrif_Root() ) THEN 177 CALL cpl_init( ilocal_comm ) ! nemo local communicator given by oasis 178 ENDIF 179 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt) 180 ELSE 181 ilocal_comm = 0 182 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt) 183 ENDIF 186 184 #endif 187 185 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) … … 236 234 WRITE(numout,*) ' NEMO team' 237 235 WRITE(numout,*) ' Ocean General Circulation Model' 238 WRITE(numout,*) ' version 3. 4 (2011) '236 WRITE(numout,*) ' version 3.6 (2015) ' 239 237 WRITE(numout,*) 240 238 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.