Changeset 719 for trunk/NEMO/LIM_SRC/limdia.F90

Timestamp:

2007-10-16T16:59:56+02:00 (17 years ago)

Author:

ctlod

Message:

get back to the nemo_v2_3 version for trunk

File:

• trunk/NEMO/LIM_SRC/limdia.F90 (modified) (7 diffs, 1 prop)

trunk/NEMO/LIM_SRC/limdia.F90

@@ -19 +19 @@
    USE par_ice         ! ice parameters
    USE ice_oce         ! ice variables
-   USE sbc_oce         ! surface boundary condition variables
    USE daymod          !
    USE dom_ice         !
@@ -59 +58 @@
    !!----------------------------------------------------------------------
    !!   LIM 2.0,  UCL-LOCEAN-IPSL (2005) 
-   !! $Id$
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/limdia.F90,v 1.9 2007/06/29 17:03:12 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -88 +87 @@
 
       nv = 1 
-      vinfor(nv) = REAL( kt + nn_fsbc - 1 )
+      vinfor(nv) = REAL( kt + nfice - 1 )
       nv = nv + 1
       vinfor(nv) = nyear
@@ -108 +107 @@
                zicevol = zarea   * hicif(ji,jj)
                zsnwvol = zarea   * hsnif(ji,jj)
-               zicespd = zicevol * ( ui_ice(ji,jj) * ui_ice(ji,jj)   &
-                  &                + vi_ice(ji,jj) * vi_ice(ji,jj) )
+               zicespd = zicevol * ( u_ice(ji,jj) * u_ice(ji,jj)   &
+                  &                + v_ice(ji,jj) * v_ice(ji,jj) )
                vinfor(nv+ 1) = vinfor(nv+ 1) + zarea
                vinfor(nv+ 3) = vinfor(nv+ 3) + zextent15
@@ -134 +133 @@
                 zicevol = zarea   * hicif(ji,jj)
                 zsnwvol = zarea   * hsnif(ji,jj)
-                zicespd = zicevol * ( ui_ice(ji,jj) * ui_ice(ji,jj)   &
-                   &                + vi_ice(ji,jj) * vi_ice(ji,jj) )
+                zicespd = zicevol * ( u_ice(ji,jj) * u_ice(ji,jj)   &
+                   &                + v_ice(ji,jj) * v_ice(ji,jj) )
                 vinfor(nv+ 1) = vinfor(nv+ 1) + zarea
                 vinfor(nv+ 3) = vinfor(nv+ 3) + zextent15
@@ -155 +154 @@
     
        ! oututs on file ice_evolu    
-       IF( MOD( kt + nn_fsbc - 1, ninfo ) == 0 ) THEN
+       IF( MOD( kt + nfice - 1, ninfo ) == 0 ) THEN
           WRITE(numevo_ice,fmtw) ( titvar(jv), vinfom(jv)/naveg, jv = 1, nvinfo )
           naveg = 0
@@ -228 +227 @@
 
        ! Definition et Ecriture de l'entete : nombre d'enregistrements 
-       ndeb   = ( nit000 - 1 + nn_fsbc - 1 ) / ninfo
-       IF( nit000 - 1 + nn_fsbc == 1 ) ndeb = -1
-
-       nferme = ( nitend + nn_fsbc - 1 ) / ninfo ! nit000 - 1 + nn_fsbc - 1 + nitend - nit000 + 1
+       ndeb   = ( nit000 - 1 + nfice - 1 ) / ninfo
+       IF( nit000 - 1 + nfice == 1 ) ndeb = -1
+
+       nferme = ( nitend + nfice - 1 ) / ninfo ! nit000 - 1 + nfice - 1 + nitend - nit000 + 1
        ntot   = nferme - ndeb
        ndeb   = ninfo * ( 1 + ndeb )