Changeset 9570 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/IOM
- Timestamp:
- 2018-05-11T12:53:25+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC
- Files:
-
- 6 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/IOM/in_out_manager.F90
r9490 r9570 158 158 159 159 !!---------------------------------------------------------------------- 160 !! NEMO/O PA4.0 , NEMO Consortium (2018)160 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 161 161 !! $Id$ 162 162 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/IOM/iom.F90
r9540 r9570 33 33 USE trc_oce , ONLY : nn_dttrc ! !: frequency of step on passive tracers 34 34 USE icb_oce , ONLY : nclasses, class_num ! !: iceberg classes 35 #if defined key_ lim335 #if defined key_si3 36 36 USE ice , ONLY : jpl 37 37 #endif … … 85 85 86 86 !!---------------------------------------------------------------------- 87 !! NEMO/O PA4.0 , NEMO Consortium (2017)87 !! NEMO/OCE 4.0 , NEMO Consortium (2017) 88 88 !! $Id$ 89 89 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 115 115 clname = cdname 116 116 IF( TRIM(Agrif_CFixed()) /= '0' ) clname = TRIM(Agrif_CFixed())//"_"//TRIM(cdname) 117 CALL xios_context_initialize(TRIM(clname), mpi_comm_o pa)117 CALL xios_context_initialize(TRIM(clname), mpi_comm_oce) 118 118 CALL iom_swap( cdname ) 119 119 llrst_context = (TRIM(cdname) == TRIM(crxios_context) .OR. TRIM(cdname) == TRIM(cwxios_context)) … … 197 197 CALL iom_set_axis_attr( "nfloat", (/ (REAL(ji,wp), ji=1,nfloat) /) ) 198 198 # endif 199 # if defined key_ lim3199 # if defined key_si3 200 200 CALL iom_set_axis_attr( "ncatice", (/ (REAL(ji,wp), ji=1,jpl) /) ) 201 201 ! SIMIP diagnostics (4 main arctic straits) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/IOM/iom_def.F90
r9367 r9570 83 83 ! 84 84 !!---------------------------------------------------------------------- 85 !! NEMO/O PA3.3 , NEMO Consortium (2010)85 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 86 86 !! $Id$ 87 87 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/IOM/iom_nf90.F90
r9540 r9570 46 46 47 47 !!---------------------------------------------------------------------- 48 !! NEMO/O PA4.0 , NEMO Consortium (2017)48 !! NEMO/OCE 4.0 , NEMO Consortium (2017) 49 49 !! $Id$ 50 50 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/IOM/prtctl.F90
r9440 r9570 35 35 36 36 !!---------------------------------------------------------------------- 37 !! NEMO/O PA3.3 , NEMO Consortium (2010)37 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 38 38 !! $Id$ 39 39 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OCE_SRC/IOM/restart.F90
r9535 r9570 40 40 # include "vectopt_loop_substitute.h90" 41 41 !!---------------------------------------------------------------------- 42 !! NEMO/O PA3.3 , NEMO Consortium (2010)42 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 43 43 !! $Id$ 44 44 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
Note: See TracChangeset
for help on using the changeset viewer.