Changeset 1572 for trunk/NEMO/LIM_SRC_3/limitd_me.F90

Timestamp:

2009-08-03T16:53:15+02:00 (15 years ago)

Author:

ctlod

Message:

Cosmetic changes only following the bugs correction related to ticket: #505

File:

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

trunk/NEMO/LIM_SRC_3/limitd_me.F90

@@ -1 +1 @@
 MODULE limitd_me
-
-#if defined key_lim3
-   !!----------------------------------------------------------------------
-   !!   'key_lim3' :                                    LIM3 sea-ice model
-   !!----------------------------------------------------------------------
-   !!
    !!======================================================================
    !!                       ***  MODULE limitd_me ***
@@ -11 +5 @@
    !!                     computation of changes in g(h)      
    !!======================================================================
-   !!
+   !! History :  LIM  ! 2006-02  (M. Vancoppenolle) Original code 
+   !!            3.2  ! 2009-07  (M. Vancoppenolle, Y. Aksenov, G. Madec) bug correction in smsw & fsalt_rpo
    !!----------------------------------------------------------------------
-   !! * Modules used
+#if defined key_lim3
+   !!----------------------------------------------------------------------
+   !!   'key_lim3' :                                    LIM3 sea-ice model
+   !!----------------------------------------------------------------------
    USE dom_ice
    USE par_oce          ! ocean parameters
@@ -150 +148 @@
       !! Babko et al., JGR 2002 
       !!
-      !! ** History :
-      !!           This routine is based on CICE code
-      !!           and authors William H. Lipscomb,
-      !!           and Elizabeth C. Hunke, LANL
-      !!           are gratefully acknowledged
-      !!
-      !!           (02-2006) Martin Vancoppenolle, UCL-ASTR 
-      !!
+      !!     This routine is based on CICE code and authors William H. Lipscomb,
+      !!  and Elizabeth C. Hunke, LANL are gratefully acknowledged
       !!--------------------------------------------------------------------!
       !! * Arguments
@@ -1366 +1358 @@
             !-------------
             smsw(ji,jj)  = sss_m(ji,jj) * vsw(ji,jj) * rhoic / rau0       ! salt content of water frozen in voids
-  
+
             zsrdg2       = srdg1(ji,jj) + smsw(ji,jj)                     ! salt content of new ridge
-  
+
             srdg2(ji,jj) = MIN( s_i_max * vrdg2(ji,jj) , zsrdg2 )         ! impose a maximum salinity
-                    
+            
             !                                                             ! excess of salt is flushed into the ocean
-            fsalt_rpo(ji,jj) = fsalt_rpo(ji,jj) + ( zsrdg2 - srdg2(ji,jj) ) * rhoic / rdt_ice 
-  
+            fsalt_rpo(ji,jj) = fsalt_rpo(ji,jj) + ( zsrdg2 - srdg2(ji,jj) ) * rhoic / rdt_ice
+
             !------------------------------------            
             ! 3.6 Increment ridging diagnostics