Changeset 1855 for branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limmsh_2.F90

Timestamp:

2010-04-30T17:49:04+02:00 (14 years ago)

Author:

gm

Message:

ticket:#665 style change only, with the suppression of thd_ice_2 (merged in ice_2)

File:

• branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limmsh_2.F90 (modified) (7 diffs)

branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limmsh_2.F90

@@ -4 +4 @@
    !! LIM 2.0 ice model :   definition of the ice mesh parameters
    !!======================================================================
+   !! ** History :  LIM  ! 2001-04 (UCL)  original code
+   !!               2.0  ! 2002-08 (C. Ethe, G. Madec) F90, module
+   !!----------------------------------------------------------------------
 #if defined key_lim2
    !!----------------------------------------------------------------------
@@ -10 +13 @@
    !!   lim_msh_2   : definition of the ice mesh
    !!----------------------------------------------------------------------
-   !! * Modules used
    USE phycst
    USE dom_oce
@@ -20 +22 @@
    PRIVATE
 
-   !! * Accessibility
-   PUBLIC lim_msh_2      ! routine called by ice_ini_2.F90
-
-   !!----------------------------------------------------------------------
-   !!   LIM 2.0,  UCL-LOCEAN-IPSL (2005) 
+   PUBLIC   lim_msh_2   ! routine called by ice_ini_2.F90
+
+   !!----------------------------------------------------------------------
+   !! NEMO/LIM 3.3,  UCL-LOCEAN-IPSL (2010) 
    !! $Id$
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 
@@ -42 +43 @@
       !!              - Initialization of the ice masks (tmsk, umsk)
       !! 
-      !! ** Refer.  : Deleersnijder et al. Ocean Modelling 100, 7-10 
-      !!
-      !! ** History :
-      !!         original    : 01-04 (LIM)
-      !!         addition    : 02-08 (C. Ethe, G. Madec)
+      !! Reference  : Deleersnijder et al. Ocean Modelling 100, 7-10 
       !!--------------------------------------------------------------------- 
-      !! * Local variables
-      INTEGER :: ji, jj      ! dummy loop indices
-
-      REAL(wp), DIMENSION(jpi,jpj) ::  &
-         zd2d1 , zd1d2       ! Derivative of zh2 (resp. zh1) in the x direction
-         !                   ! (resp. y direction) (defined at the center)
-      REAL(wp) ::         &
-         zh1p  , zh2p   , &  ! Idem zh1, zh2 for the bottom left corner of the grid
-         zd2d1p, zd1d2p , &  ! Idem zd2d1, zd1d2 for the bottom left corner of the grid
-         zusden, zusden2     ! temporary scalars
+      INTEGER  ::   ji, jj   ! dummy loop indices
+      REAL(wp) ::   zh1p, zd1d2p, zusden    ! temporary scalars
+      REAL(wp) ::   zh2p, zd2d1p, zusden2   !    -         -
+      REAL(wp), DIMENSION(jpi,jpj) ::   zd2d1 , zd1d2   ! 2D workspace
       !!---------------------------------------------------------------------
 
@@ -112 +103 @@
       !-------------------
 !!ibug ???
-      akappa(:,:,:,:) = 0.e0
-      wght(:,:,:,:) = 0.e0
+      akappa(:,:,:,:)     = 0.e0
+      wght  (:,:,:,:)     = 0.e0
       alambd(:,:,:,:,:,:) = 0.e0
-      tmu(:,:) = 0.e0
+      tmu   (:,:)         = 0.e0
 !!i
       
@@ -238 +229 @@
          END DO
       END DO
-      
-      !--lateral boundary conditions    
-      CALL lbc_lnk( tmu(:,:), 'I', 1. )
-      
-      ! unmasked and masked area of T-grid cell
-      area(:,:) = e1t(:,:) * e2t(:,:)
+      CALL lbc_lnk( tmu(:,:), 'I', 1. )      !--lateral boundary conditions    
+      
+      area(:,:) = e1t(:,:) * e2t(:,:)        ! unmasked and masked area of T-grid cell
       
    END SUBROUTINE lim_msh_2
@@ -251 +239 @@
    !!   Default option            Dummy Module         NO LIM sea-ice model
    !!----------------------------------------------------------------------
-CONTAINS
-   SUBROUTINE lim_msh_2           ! Dummy routine
-   END SUBROUTINE lim_msh_2
 #endif