New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 881 for branches/dev_001_SBC/NEMO/LIM_SRC/limtab.F90 – NEMO

Ignore:
Timestamp:
2008-04-08T11:45:52+02:00 (16 years ago)
Author:
ctlod
Message:

dev_001_SBC: Step I: change cpp ket name key_ice_lim into key_lim2 & change names inside modules with extension _2, see ticket: #110

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_SBC/NEMO/LIM_SRC/limtab.F90

    r699 r881  
    1 MODULE limtab 
     1MODULE limtab_2 
    22   !!====================================================================== 
    3    !!                       ***  MODULE limtab   *** 
     3   !!                       ***  MODULE limtab_2   *** 
    44   !!              transform 1D (2D) array to a 2D (1D) table 
    55   !!====================================================================== 
    6 #if defined key_ice_lim 
     6#if defined key_lim2 
    77   !!---------------------------------------------------------------------- 
    88   !!   tab_2d_1d  : 2-D to 1-D 
     
    1616 
    1717   !! * Routine accessibility 
    18    PUBLIC tab_2d_1d  ! called by lim_ther 
    19    PUBLIC tab_1d_2d  ! called by lim_ther 
     18   PUBLIC tab_2d_1d_2  ! called by lim_ther 
     19   PUBLIC tab_1d_2d_2  ! called by lim_ther 
    2020 
    2121   !!---------------------------------------------------------------------- 
     
    2626CONTAINS 
    2727 
    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 ) 
    2929 
    3030      INTEGER, INTENT(in) :: & 
     
    4949      END DO  
    5050 
    51    END SUBROUTINE tab_2d_1d 
     51   END SUBROUTINE tab_2d_1d_2 
    5252 
    5353 
    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 ) 
    5555 
    5656      INTEGER, INTENT ( in) :: & 
     
    7575      END DO 
    7676 
    77    END SUBROUTINE tab_1d_2d 
     77   END SUBROUTINE tab_1d_2d_2 
    7878 
    7979#endif 
    80 END MODULE limtab 
     80END MODULE limtab_2 
Note: See TracChangeset for help on using the changeset viewer.