- Timestamp:
- 2015-08-12T17:46:45+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC/dtadyn.F90
- Property svn:keywords set to Id
-
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC/nemogcm.F90
r4990 r5682 129 129 & nn_bench, nn_timing 130 130 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 131 & jpizoom, jpjzoom, jperio 131 & jpizoom, jpjzoom, jperio, ln_use_jattr 132 132 !!---------------------------------------------------------------------- 133 133 ! 134 134 cltxt = '' 135 cxios_context = 'nemo' 135 136 ! 136 137 ! ! Open reference namelist and configuration namelist files … … 162 163 #if defined key_iomput 163 164 IF( Agrif_Root() ) THEN 164 IF( lk_ cpl) THEN165 IF( lk_oasis ) THEN 165 166 CALL cpl_init( ilocal_comm ) ! nemo local communicator given by oasis 166 167 CALL xios_initialize( "oceanx",local_comm=ilocal_comm ) ! send nemo communicator to xios 167 168 ELSE 168 CALL xios_initialize( " nemo",return_comm=ilocal_comm ) ! nemo local communicator given by xios169 CALL xios_initialize( "for_xios_mpi_id",return_comm=ilocal_comm ) ! nemo local communicator given by xios 169 170 ENDIF 170 171 ENDIF 171 172 ENDIF 172 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection173 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 173 174 #else 174 IF( lk_ cpl) THEN175 IF( lk_oasis ) THEN 175 176 IF( Agrif_Root() ) THEN 176 177 CALL cpl_init( ilocal_comm ) ! nemo local communicator given by oasis 177 178 ENDIF 178 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt)179 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt) 179 180 ELSE 180 181 ilocal_comm = 0 181 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt)182 narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt) 182 183 ENDIF 183 184 #endif … … 233 234 WRITE(numout,*) ' NEMO team' 234 235 WRITE(numout,*) ' Ocean General Circulation Model' 235 WRITE(numout,*) ' version 3. 4 (2011) '236 WRITE(numout,*) ' version 3.6 (2015) ' 236 237 WRITE(numout,*) 237 238 WRITE(numout,*) -
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC/obs_fbm.F90
- Property svn:keywords set to Id
-
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC/ooo_data.F90
- Property svn:keywords set to Id
r4132 r5682 40 40 CHARACTER(len=128) :: & 41 41 & alt_file !: altimeter file 42 !! $Id$ 42 43 CONTAINS 43 44 SUBROUTINE ooo_data_init( ld_cl4 ) -
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC/ooo_intp.F90
- Property svn:keywords set to Id
r4120 r5682 16 16 PUBLIC ooo_interp 17 17 18 !! $Id$ 18 19 CONTAINS 19 20 -
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC/ooo_read.F90
- Property svn:keywords set to Id
r4117 r5682 22 22 PUBLIC ooo_rea_dri 23 23 24 !! $Id$ 24 25 CONTAINS 25 26 SUBROUTINE ooo_rea_dri(kfile) -
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC/ooo_utils.F90
- Property svn:keywords set to Id
r4111 r5682 10 10 REAL(kind=dp), PARAMETER :: obfilldbl=99999. 11 11 12 !! $Id$ 12 13 CONTAINS 13 14 -
branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OOO_SRC/ooo_write.F90
- Property svn:keywords set to Id
r4110 r5682 29 29 END INTERFACE 30 30 31 !! $Id$ 31 32 CONTAINS 32 33
Note: See TracChangeset
for help on using the changeset viewer.