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

Ignore:
Timestamp:
2017-09-18T16:54:04+02:00 (7 years ago)
Author:
clem
Message:

changes in style - part6 - pure cosmetics

File:
1 edited

Legend:

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

    r8531 r8534  
    22   !!====================================================================== 
    33   !!                       ***  MODULE icethd_sal *** 
    4    !! LIM-3 sea-ice : computation of salinity variations in the ice 
     4   !!   sea-ice : computation of salinity variations in the ice 
    55   !!====================================================================== 
    66   !! History :   -   ! 2003-05 (M. Vancoppenolle) UCL-ASTR first coding for LIM3-1D 
     
    1010#if defined key_lim3 
    1111   !!---------------------------------------------------------------------- 
    12    !!   'key_lim3'                                      LIM-3 sea-ice model 
     12   !!   'key_lim3'                                       ESIM sea-ice model 
    1313   !!---------------------------------------------------------------------- 
    14    !!   ice_thd_sal   : salinity variations in the ice 
     14   !!   ice_thd_sal        : salinity variations in the ice 
     15   !!   ice_thd_sal_init   : initialization 
    1516   !!---------------------------------------------------------------------- 
    16    USE par_oce        ! ocean parameters 
    17    USE phycst         ! physical constants (ocean directory) 
    18    USE ice            ! LIM variables 
    19    USE ice1D          ! LIM thermodynamics 
    20    USE icevar         ! LIM variables 
     17   USE dom_oce        ! ocean space and time domain 
     18   USE phycst         ! physical constants 
     19   USE ice            ! sea-ice: variables 
     20   USE ice1D          ! sea-ice: thermodynamics variables 
     21   USE icevar         ! sea-ice: operations 
    2122   ! 
    2223   USE in_out_manager ! I/O manager 
    2324   USE lib_mpp        ! MPP library 
    24    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     25   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero) 
    2526 
    2627   IMPLICIT NONE 
     
    153154#else 
    154155   !!---------------------------------------------------------------------- 
    155    !!   Default option         Dummy Module          No LIM-3 sea-ice model 
     156   !!   Default option         Dummy Module           No ESIM sea-ice model 
    156157   !!---------------------------------------------------------------------- 
    157158#endif 
Note: See TracChangeset for help on using the changeset viewer.