Changeset 2528 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

Timestamp:

2010-12-27T18:33:53+01:00 (13 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90 (modified) (7 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

@@ -1 +1 @@
 MODULE limwri
-   !!----------------------------------------------------------------------
-   !!   'key_lim3'                                      LIM3 sea-ice model
-   !!----------------------------------------------------------------------
    !!======================================================================
    !!                     ***  MODULE  limwri  ***
@@ -9 +6 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!  LIM 3.0, UCL-LOCEAN-IPSL (2008)
-   !! $Id$
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
+   !!   'key_lim3'                                      LIM3 sea-ice model
    !!----------------------------------------------------------------------
    !!   lim_wri      : write of the diagnostics variables in ouput file 
    !!   lim_wri_init : initialization and namelist read
    !!----------------------------------------------------------------------
-   !! * Modules used
    USE ioipsl
    USE dianam          ! build name of file (routine)
@@ -63 +57 @@
       zzero  = 0.e0     ,  &
       zone   = 1.e0
-
+      
+   !!----------------------------------------------------------------------
+   !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010)
+   !! $Id$
+   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !!----------------------------------------------------------------------
 CONTAINS
+
 #if defined key_dimgout
-
 # include "limwri_dimg.h90"
-
 #else
 
@@ -145 +143 @@
          CALL dia_nam ( clhstnam, nwrite, 'icemod' )
          CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, niter, zjulian, rdt_ice,   &
-            &           nhorid, nice, domain_id=nidom )
+            &           nhorid, nice, domain_id=nidom, snc4chunks=snc4set )
          CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid, "down")
          CALL wheneq  ( jpij , tmask(:,:,1), 1, 1., ndex51, ndim)
@@ -159 +157 @@
          END DO
 
-         CALL histend(nice)
+         CALL histend(nice, snc4set)
 
          !-----------------
@@ -174 +172 @@
             niter, zjulian, rdt_ice,   & ! time
             nhorida,                   & ! ? linked with horizontal ...
-            nicea , domain_id=nidom)                  ! file 
+            nicea , domain_id=nidom, snc4chunks=snc4set)                  ! file 
          CALL histvert( nicea, "icethi", "L levels",               &
             "m", ipl , hi_mean , nz )
@@ -194 +192 @@
          CALL histdef( nicea, "iice_etd", "Brine volume distr. "               , "%"    ,   &  
             jpi, jpj, nhorida, jpl, 1, jpl, nz, 15, clop, zsto, zout )
-         CALL histend(nicea)
+         CALL histend(nicea, snc4set)
       ENDIF