Ignore:
Timestamp:
2017-09-13T18:46:56+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part6 - commits of the day

File:
1 edited

Legend:

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

    r8514 r8518  
    2929   PUBLIC   ice_thd_sal        ! called by icethd module 
    3030   PUBLIC   ice_thd_sal_init   ! called by ice_init 
     31    
     32   ! ** namelist (namsal) ** 
     33   LOGICAL  ::   ln_icedS         ! activate gravity drainage and flushing (T) or not (F) 
     34   REAL(wp) ::   rn_sal_gd        !    restoring salinity for gravity drainage [PSU] 
     35   REAL(wp) ::   rn_time_gd       !    restoring time constant for gravity drainage (= 20 days) [s] 
     36   REAL(wp) ::   rn_sal_fl        !    restoring salinity for flushing [PSU] 
     37   REAL(wp) ::   rn_time_fl       !    restoring time constant for gravity drainage (= 10 days) [s] 
    3138 
    3239   !!---------------------------------------------------------------------- 
     
    115122      !! 
    116123      NAMELIST/namice_sal/ ln_icedS , nn_icesal , rn_icesal, rn_sal_gd, rn_time_gd,   & 
    117          &                rn_sal_fl, rn_time_fl, rn_simax , rn_simin  
     124         &                 rn_sal_fl, rn_time_fl, rn_simax , rn_simin  
    118125      !!------------------------------------------------------------------- 
    119126      ! 
     
    143150      ENDIF 
    144151      ! 
     152      IF( ln_icedS .AND. nn_icesal == 1 ) THEN 
     153         ln_icedS = .FALSE. 
     154         CALL ctl_warn('ln_icedS is set to false since constant ice salinity is chosen (nn_icesal=1)') 
     155      ENDIF 
     156      ! 
    145157   END SUBROUTINE ice_thd_sal_init 
    146158 
Note: See TracChangeset for help on using the changeset viewer.