Changeset 8486 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceist.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/iceist.F90 (modified) (6 diffs)

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

@@ -5 +5 @@
    !!======================================================================
    !! History :  2.0  ! 2004-01 (C. Ethe, G. Madec)  Original code
-   !!            3.0  ! 2011-02 (G. Madec) dynamical allocation
-   !!             -   ! 2014    (C. Rousset) add N/S initializations
+   !!            3.0  ! 2007    (M. Vancoppenolle)  Rewrite for ice cats
+   !!            3.0  ! 2009-11 (M. Vancoppenolle)  Enhanced version for ice cats
+   !!            3.0  ! 2011-02 (G. Madec)  dynamical allocation
+   !!             -   ! 2014    (C. Rousset)  add N/S initializations
    !!----------------------------------------------------------------------
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3' :                                    LIM3 sea-ice model
-   !!----------------------------------------------------------------------
-   !!   ice_ist      :  Initialisation of diagnostics ice variables
-   !!   ice_ist_init :  initialization of ice state and namelist read
+   !!   'key_lim3'                                       LIM3 sea-ice model
+   !!----------------------------------------------------------------------
+   !!   ice_ist       :  initialization of diagnostics ice variables
+   !!   ice_ist_init  :  initialization of ice state and namelist read
    !!----------------------------------------------------------------------
    USE phycst         ! physical constant
@@ -34 +36 @@
    PRIVATE
 
-   PUBLIC   ice_ist      ! routine called by lim_init.F90
+   PUBLIC   ice_ist      ! called by icestp.F90
 
    INTEGER , PARAMETER ::   jpfldi = 6           ! maximum number of files to read
@@ -45 +47 @@
    TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   si  ! structure of input fields (file informations, fields read)
    !!----------------------------------------------------------------------
-   !!   LIM 3.0,  UCL-LOCEAN-IPSL (2008)
+   !! NEMO/ICE 4.0 , NEMO Consortium (2017)
    !! $Id: iceist.F90 8378 2017-07-26 13:55:59Z clem $
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
@@ -51 +53 @@
 CONTAINS
 
+!!gm  better name:  ice_istate
    SUBROUTINE ice_ist
       !!-------------------------------------------------------------------
@@ -71 +74 @@
       !! ** Notes   : o_i, t_su, t_s, t_i, s_i must be filled everywhere, even
       !!              where there is no ice (clem: I do not know why, is it mandatory?) 
-      !!
-      !! History :
-      !!   2.0  !  01-04  (C. Ethe, G. Madec)  Original code
-      !!   3.0  !  2007   (M. Vancoppenolle)   Rewrite for ice cats
-      !!   4.0  !  09-11  (M. Vancoppenolle)   Enhanced version for ice cats
       !!--------------------------------------------------------------------
-      !! * Local variables
       INTEGER    :: ji, jj, jk, jl             ! dummy loop indices
       REAL(wp)   :: ztmelts, zdh
@@ -591 +588 @@
    !!   Default option :         Empty module          NO LIM sea-ice model
    !!----------------------------------------------------------------------
-CONTAINS
-   SUBROUTINE ice_ist          ! Empty routine
-   END SUBROUTINE ice_ist
 #endif