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

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

@@ -5 +5 @@
    !!======================================================================
    !! History :  LIM  ! 2008-03 (M. Vancoppenolle)  LIM-3 from LIM-2 code
-   !!            3.2  ! 2009-06 (F. Dupont)  correct a error in the North fold b. c.
+   !!            3.2  ! 2009-06 (F. Dupont)  correct a error in the North fold b.c.
    !!            4.0  ! 2011-02 (G. Madec) dynamical allocation
    !!--------------------------------------------------------------------
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                     LIM3 sea-ice model
-   !!----------------------------------------------------------------------
-   !!   ice_adv_x  : advection of sea ice on x axis
-   !!   ice_adv_y  : advection of sea ice on y axis
-   !!----------------------------------------------------------------------
-   USE dom_oce          ! ocean domain
-   USE ice              ! LIM-3 variables
+   !!   'key_lim3'                                       LIM3 sea-ice model
+   !!----------------------------------------------------------------------
+   !!   ice_adv_x     : advection of sea ice on x axis
+   !!   ice_adv_y     : advection of sea ice on y axis
+   !!----------------------------------------------------------------------
+   USE dom_oce        ! ocean domain
+   USE ice            ! sea-ice variables
    !
-   USE lbclnk           ! lateral boundary condition - MPP exchanges
-   USE in_out_manager   ! I/O manager
-   USE prtctl           ! Print control
-   USE lib_mpp          ! MPP library
-   USE lib_fortran      ! to use key_nosignedzero
+   USE lbclnk         ! lateral boundary condition - MPP exchanges
+   USE in_out_manager ! I/O manager
+   USE prtctl         ! Print control
+   USE lib_mpp        ! MPP library
+   USE lib_fortran    ! to use key_nosignedzero
 
    IMPLICIT NONE
@@ -33 +33 @@
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
+   !! NEMO/ICE 4.0 , NEMO Consortium (2017)
    !! $Id: iceadv.F90 6746 2016-06-27 17:20:57Z clem $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -41 +41 @@
    SUBROUTINE ice_adv_x( pdf, put , pcrh, psm , ps0 ,   &
       &                  psx, psxx, psy , psyy, psxy )
-      !!---------------------------------------------------------------------
+      !!----------------------------------------------------------------------
       !!                **  routine ice_adv_x  **
       !!  
@@ -52 +52 @@
       !!
       !! Reference:  Prather, 1986, JGR, 91, D6. 6671-6681.
-      !!--------------------------------------------------------------------
+      !!----------------------------------------------------------------------
       REAL(wp)                    , INTENT(in   ) ::   pdf                ! reduction factor for the time step
       REAL(wp)                    , INTENT(in   ) ::   pcrh               ! call ice_adv_x then ice_adv_y (=1) or the opposite (=0)
@@ -68 +68 @@
       REAL(wp), DIMENSION(jpi,jpj) ::   zfm , zfxx , zfyy  , zfxy   !  -      -
       REAL(wp), DIMENSION(jpi,jpj) ::   zalg, zalg1, zalg1q         !  -      -
-      !---------------------------------------------------------------------
+      !-----------------------------------------------------------------------
 
       ! Limitation of moments.