Changeset 2715 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limmsh.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limmsh.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limmsh.F90

@@ -16 +16 @@
    USE dom_ice        ! sea-ice domain
    USE in_out_manager ! I/O manager
-   USE lbclnk         ! 
+   USE lbclnk         ! lateral boundary condition - MPP exchanges
+   USE lib_mpp        ! MPP library
 
    IMPLICIT NONE
@@ -24 +25 @@
 
    !!----------------------------------------------------------------------
-   !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010)
+   !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
    !! $Id$
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -45 +45 @@
       !!--------------------------------------------------------------------- 
       INTEGER  ::   ji, jj   ! dummy loop indices
-      REAL(wp) ::   zusden   ! temporary scalar
+      REAL(wp) ::   zusden   ! local scalar
       !!---------------------------------------------------------------------
 
@@ -55 +55 @@
 
       IF( jphgr_msh == 2 .OR. jphgr_msh == 3 .OR. jphgr_msh == 5 )   &
-          &      CALL ctl_stop(' Coriolis parameter in LIM not set for f- or beta-plane' )
+          &      CALL ctl_stop(' Coriolis parameter in LIM not set for f- or beta-plane')
 
       !                           !==  coriolis factor & Equator position ==!