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 8486 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icetab.F90 – NEMO

Ignore:
Timestamp:
2017-09-01T15:49:35+02:00 (7 years ago)
Author:
clem
Message:

changes in style - part1 - (now the code looks better txs to Gurvan's comments)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icetab.F90

    r8420 r8486  
    2424 
    2525   !!---------------------------------------------------------------------- 
    26    !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2010) 
     26   !! NEMO/ICE 4.0 , NEMO Consortium (2017) 
    2727   !! $Id: icetab.F90 8369 2017-07-25 14:38:38Z clem $ 
    2828   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    2929   !!---------------------------------------------------------------------- 
    3030CONTAINS 
    31  
    3231 
    3332   SUBROUTINE tab_3d_2d( ndim1d, tab_ind, tab1d, tab2d ) 
     
    5150   END SUBROUTINE tab_3d_2d 
    5251 
     52 
    5353   SUBROUTINE tab_2d_1d( ndim1d, tab_ind, tab1d, tab2d ) 
    5454      !!---------------------------------------------------------------------- 
     
    6868      END DO 
    6969   END SUBROUTINE tab_2d_1d 
     70 
    7071 
    7172   SUBROUTINE tab_2d_3d( ndim1d, tab_ind, tab1d, tab2d ) 
     
    8990   END SUBROUTINE tab_2d_3d 
    9091 
     92 
    9193   SUBROUTINE tab_1d_2d( ndim1d, tab_ind, tab1d, tab2d ) 
    9294      !!---------------------------------------------------------------------- 
     
    107109   END SUBROUTINE tab_1d_2d 
    108110 
     111#else 
     112   !!---------------------------------------------------------------------- 
     113   !!   Default option           Dummy module      NO LIM 3.0 sea-ice model 
     114   !!---------------------------------------------------------------------- 
    109115#endif 
     116 
    110117   !!====================================================================== 
    111118END MODULE icetab 
Note: See TracChangeset for help on using the changeset viewer.