Changeset 821 for branches/dev_002_LIM/NEMO/LIM_SRC/limtab.F90
- Timestamp:
- 2008-03-06T12:22:15+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_002_LIM/NEMO/LIM_SRC/limtab.F90
r719 r821 1 MODULE limtab 1 MODULE limtab_2 2 2 !!====================================================================== 3 !! *** MODULE limtab ***3 !! *** MODULE limtab_2 *** 4 4 !! transform 1D (2D) array to a 2D (1D) table 5 5 !!====================================================================== 6 #if defined key_ ice_lim6 #if defined key_lim2 7 7 !!---------------------------------------------------------------------- 8 8 !! tab_2d_1d : 2-D to 1-D … … 16 16 17 17 !! * Routine accessibility 18 PUBLIC tab_2d_1d ! called by lim_ther19 PUBLIC tab_1d_2d ! called by lim_ther18 PUBLIC tab_2d_1d_2 ! called by lim_ther 19 PUBLIC tab_1d_2d_2 ! called by lim_ther 20 20 21 21 !!---------------------------------------------------------------------- … … 26 26 CONTAINS 27 27 28 SUBROUTINE tab_2d_1d ( ndim1d, tab1d, tab2d, ndim2d_x, ndim2d_y, tab_ind )28 SUBROUTINE tab_2d_1d_2 ( ndim1d, tab1d, tab2d, ndim2d_x, ndim2d_y, tab_ind ) 29 29 30 30 INTEGER, INTENT(in) :: & … … 49 49 END DO 50 50 51 END SUBROUTINE tab_2d_1d 51 END SUBROUTINE tab_2d_1d_2 52 52 53 53 54 SUBROUTINE tab_1d_2d ( ndim1d, tab2d, tab_ind, tab1d, ndim2d_x, ndim2d_y )54 SUBROUTINE tab_1d_2d_2 ( ndim1d, tab2d, tab_ind, tab1d, ndim2d_x, ndim2d_y ) 55 55 56 56 INTEGER, INTENT ( in) :: & … … 75 75 END DO 76 76 77 END SUBROUTINE tab_1d_2d 77 END SUBROUTINE tab_1d_2d_2 78 78 79 79 #endif 80 END MODULE limtab 80 END MODULE limtab_2
Note: See TracChangeset
for help on using the changeset viewer.