Changeset 8534 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

Timestamp:

2017-09-18T16:54:04+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part6 - pure cosmetics

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90 (modified) (9 diffs)

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

@@ -3 +3 @@
    !!                       ***  MODULE  icestp  ***
    !! Surface module :  update the ocean surface boundary condition over ice
-   !!       &           covered area using LIM sea-ice model
-   !! Sea-Ice model  :  LIM-3 Sea ice model time-stepping
+   !!                   covered area using ESIM sea-ice model
    !!=====================================================================
    !! History :  2.0  ! 2006-12  (M. Vancoppenolle) Original code
@@ -17 +16 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                    LIM 3.0 sea-ice model
-   !!----------------------------------------------------------------------
-   !!   ice_stp       : sea-ice model time-stepping and update ocean surf. boundary cond. over ice-covered area
-   !!   ice_init      :
-   !!   ice_run_init  : 
+   !!   'key_lim3'                                       ESIM sea-ice model
+   !!----------------------------------------------------------------------
+   !!   ice_stp       : sea-ice model time-stepping and update ocean SBC over ice-covered area
+   !!   ice_init      : initialize sea-ice
    !!----------------------------------------------------------------------
    USE oce            ! ocean dynamics and tracers
@@ -29 +27 @@
    USE ice1D          ! sea-ice: thermodynamical 1D variables
    !
+   USE phycst         ! Define parameters for the routines
+   USE eosbn2         ! equation of state
    USE sbc_oce        ! Surface boundary condition: ocean fields
    USE sbc_ice        ! Surface boundary condition: ice   fields
+   !
    USE iceforcing     ! sea-ice: Surface boundary condition       !!gm why not icesbc module name
-   !
-   USE phycst         ! Define parameters for the routines
-   USE eosbn2         ! equation of state
-   USE icerhg         ! sea-ice: rheology
-   USE iceadv         ! sea-ice: advection
    USE icedyn         ! sea-ice: dynamics
    USE icethd         ! sea-ice: thermodynamics
-   USE icerdgrft      ! sea-ice: ridging/rafting
+   USE limmp          ! sea-ice: melt ponds
+   USE icecor         ! sea-ice: corrections
    USE iceupdate      ! sea-ice: sea surface boundary condition update
    USE icedia         ! sea-ice: budget diagnostics
    USE icewri         ! sea-ice: outputs
    USE icerst         ! sea-ice: restarts
-   USE icecor         ! sea-ice: corrections
    USE icevar         ! sea-ice: operations
    USE icectl         ! sea-ice: control
-   ! MV MP 2016
-   USE limmp          ! sea-ice: melt ponds
-   ! END MV MP 2016
    USE iceistate      ! sea-ice: initial state
-   USE icethd_sal     ! sea-ice: thermodynamics and salinity
    USE iceitd         ! sea-ice: remapping thickness distribution
    USE icealb         ! sea-ice: albedo
@@ -65 +57 @@
    USE in_out_manager ! I/O manager
    USE iom            ! I/O manager library
+   USE lib_mpp        ! MPP library
+   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero)
+   USE timing         ! Timing
    USE prtctl         ! Print control
-   USE lib_fortran    ! 
-   USE lbclnk         ! lateral boundary condition - MPP link
-   USE lib_mpp        ! MPP library
-   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -202 +193 @@
 !!         IF( .NOT. Agrif_Root() )   CALL Agrif_ParentGrid_To_ChildGrid()
 !!# endif
-         IF( ln_icediahsb )         CALL ice_dia( kt )        ! -- Diagnostics and outputs 
-         !
-                                    CALL ice_wri( 1 )         ! -- Ice outputs 
-         !
-         !
-         IF( lrst_ice )             CALL ice_rst_write( kt )  ! -- Ice restart file 
-         !
-         IF( ln_icectl )            CALL ice_ctl( kt )        ! alerts in case of model crash
+         IF( ln_icediahsb )         CALL ice_dia( kt )          ! -- Diagnostics and outputs 
+         !
+                                    CALL ice_wri( 1 )           ! -- Ice outputs 
+         !
+         !
+         IF( lrst_ice )             CALL ice_rst_write( kt )    ! -- Ice restart file 
+         !
+         IF( ln_icectl )            CALL ice_ctl( kt )          ! -- alerts in case of model crash
          !
       ENDIF   ! End sea-ice time step only
@@ -230 +221 @@
       !!                  ***  ROUTINE ice_init  ***
       !!
-      !! ** purpose :   Allocate all the dynamic arrays of the LIM-3 modules
+      !! ** purpose :   Initialize sea-ice parameters
       !!----------------------------------------------------------------------
       INTEGER :: ji, jj, ierr
@@ -265 +256 @@
          CALL ice_rst_read
       ENDIF
+      CALL ice_var_glo2eqv
       CALL ice_var_agg(2)
-      CALL ice_var_glo2eqv
       !
       CALL ice_forcing_init            ! set ice-ocean and ice-atm. coupling parameters
@@ -301 +292 @@
       !!                  ***  ROUTINE par_init ***
       !!
-      !! ** Purpose :   Definition some run parameter for ice model
-      !!
-      !! ** Method  :   Read the nampar namelist and check the parameter
+      !! ** Purpose :   Definition generic parameters for ice model
+      !!
+      !! ** Method  :   Read namelist and check the parameter
       !!                values called at the first timestep (nit000)
       !!
@@ -444 +435 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option           Dummy module      NO LIM 3.0 sea-ice model
+   !!   Default option           Dummy module         NO ESIM sea-ice model
    !!----------------------------------------------------------------------
 CONTAINS