- Timestamp:
- 2017-09-01T15:49:35+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icetab.F90
r8420 r8486 24 24 25 25 !!---------------------------------------------------------------------- 26 !! NEMO/ LIM3 4.0 , UCL - NEMO Consortium (2010)26 !! NEMO/ICE 4.0 , NEMO Consortium (2017) 27 27 !! $Id: icetab.F90 8369 2017-07-25 14:38:38Z clem $ 28 28 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 29 29 !!---------------------------------------------------------------------- 30 30 CONTAINS 31 32 31 33 32 SUBROUTINE tab_3d_2d( ndim1d, tab_ind, tab1d, tab2d ) … … 51 50 END SUBROUTINE tab_3d_2d 52 51 52 53 53 SUBROUTINE tab_2d_1d( ndim1d, tab_ind, tab1d, tab2d ) 54 54 !!---------------------------------------------------------------------- … … 68 68 END DO 69 69 END SUBROUTINE tab_2d_1d 70 70 71 71 72 SUBROUTINE tab_2d_3d( ndim1d, tab_ind, tab1d, tab2d ) … … 89 90 END SUBROUTINE tab_2d_3d 90 91 92 91 93 SUBROUTINE tab_1d_2d( ndim1d, tab_ind, tab1d, tab2d ) 92 94 !!---------------------------------------------------------------------- … … 107 109 END SUBROUTINE tab_1d_2d 108 110 111 #else 112 !!---------------------------------------------------------------------- 113 !! Default option Dummy module NO LIM 3.0 sea-ice model 114 !!---------------------------------------------------------------------- 109 115 #endif 116 110 117 !!====================================================================== 111 118 END MODULE icetab
Note: See TracChangeset
for help on using the changeset viewer.