Changeset 8486 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_da.F90

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:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_da.F90 (modified) (7 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_da.F90

@@ -4 +4 @@
    !! LIM-3 sea-ice :  computation of lateral melting in the ice
    !!======================================================================
-   !! History :   4.0   ! 2016-03 (C. Rousset) original code
+   !! History :  4.0  ! 2016-03 (C. Rousset)  original code
    !!---------------------------------------------------------------------
 #if defined key_lim3
@@ -10 +10 @@
    !!   'key_lim3'                                      LIM-3 sea-ice model
    !!----------------------------------------------------------------------
-   !!   ice_thd_da   : sea ice lateral melting
+   !!   ice_thd_da    : sea ice lateral melting
    !!----------------------------------------------------------------------
    USE par_oce        ! ocean parameters
    USE phycst         ! physical constants (ocean directory)
-   USE ice            ! LIM variables
-   USE ice1D          ! thermodynamic sea-ice variables
+   USE ice            ! sea-ice: variables
+   USE ice1D          ! sea-ice: thermodynamic 1D variables
    !
    USE lib_mpp        ! MPP library
@@ -23 +23 @@
    PRIVATE
 
-   PUBLIC   ice_thd_da        ! called by icethd module
+   PUBLIC   ice_thd_da   ! called by icethd.F90
 
    !!----------------------------------------------------------------------
-   !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
+   !! NEMO/ICE 4.0 , NEMO Consortium (2017)
    !! $Id: icethd_da.F90 5123 2015-03-04 16:06:03Z clem $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -32 +32 @@
 CONTAINS
 
+!!gm  even comment line of more than 130 character may cause compilation errors
+!!gm         ===>>> reformat the text
    SUBROUTINE ice_thd_da
       !!-------------------------------------------------------------------
@@ -106 +108 @@
       REAL(wp), DIMENSION(jpij) ::   zda_tot
       !!---------------------------------------------------------------------
-
-      !------------------------------------------------------------!
-      !------------------------------------------------------------!
+      !
       zastar = 1._wp / ( 1._wp - (rn_dmin / zdmax)**(1._wp/rn_beta) )
       DO ji = 1, nidx   
@@ -136 +136 @@
             ! new concentration
             a_i_1d(ji) = a_i_1d(ji) - zda
-            
+
             ! ensure that ht_i = 0 where a_i = 0
             IF( a_i_1d(ji) == 0._wp ) THEN
@@ -151 +151 @@
    !!   Default option         Dummy Module          No LIM-3 sea-ice model
    !!----------------------------------------------------------------------
-CONTAINS
-   SUBROUTINE ice_thd_da          ! Empty routine
-   END SUBROUTINE ice_thd_da
 #endif
+
    !!======================================================================
 END MODULE icethd_da