Changeset 508 for trunk/NEMO/LIM_SRC/dom_ice.F90

Timestamp:

2006-10-03T17:58:55+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_071:RB: add iom for restart and reorganization of restart

File:

• trunk/NEMO/LIM_SRC/dom_ice.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/dom_ice.F90

@@ -4 +4 @@
    !! LIM Sea Ice :   Domain  variables
    !!======================================================================
-   !! History :
-   !!   2.0  !  03-08  (C. Ethe)  Free form and module
+   !! History :   2.0  !  03-08  (C. Ethe)  Free form and module
+   !!----------------------------------------------------------------------
+
    !!----------------------------------------------------------------------
    !!   LIM 2.0, UCL-LOCEAN-IPSL (2005)
    !! $Header$
-   !! 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)
    !!----------------------------------------------------------------------
-   !! * Modules used
    USE par_ice
 
@@ -17 +17 @@
    PRIVATE
 
-   !! * Share module variables
-   LOGICAL, PUBLIC ::       &  !:
-      l_jeq     = .TRUE. ,  &  !: Equator inside the domain flag
-      ln_limini = .FALSE.,  &  !: Ice initialization state
-      ln_limdmp = .FALSE.      !: Ice damping
+   LOGICAL, PUBLIC ::   l_jeq     = .TRUE.     !: Equator inside the domain flag
+   LOGICAL, PUBLIC ::   ln_limini = .FALSE.    !: Ice initialization state
+   LOGICAL, PUBLIC ::   ln_limdmp = .FALSE.    !: Ice damping
 
-   INTEGER, PUBLIC ::   &  !:
-      njeq , njeqm1        !: j-index of the equator if it is inside the domain
-      !                    !  (otherwise = jpj+10 (SH) or -10 (SH) )
+   INTEGER, PUBLIC ::   njeq , njeqm1          !: j-index of the equator if it is inside the domain
+      !                                        !  (otherwise = jpj+10 (SH) or -10 (SH) )
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  !:
-      fs2cor ,          &  !: coriolis factor
-      fcor   ,          &  !: coriolis coefficient
-      covrai ,          &  !: sine of geographic latitude
-      area   ,          &  !: surface of grid cell 
-      tms    , tmu         !: temperature and velocity points masks
-
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2) ::   &  !:
-      wght   ,          &  !: weight of the 4 neighbours to compute averages
-      akappa ,          &  !: first group of metric coefficients
-      bkappa               !: third group of metric coefficients
-
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2,2,2) ::   &  !:
-      alambd               !: second group of metric coefficients
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   fs2cor , fcor,   &  !: coriolis factor and coeficient
+      &                                              covrai ,         &  !: sine of geographic latitude
+      &                                              area   ,         &  !: surface of grid cell 
+      &                                              tms    , tmu        !: temperature and velocity points masks
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2)     ::   wght   ,         &  !: weight of the 4 neighbours to compute averages
+      &                                              akappa , bkappa     !: first and third group of metric coefficients
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2,2,2) ::   alambd   !: second group of metric coefficients
 
    !!======================================================================