Changeset 5167 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

Timestamp:

2015-03-24T18:35:00+01:00 (9 years ago)

Author:

clem

Message:

LIM3 bug fix. see ticket #1492 (forthcoming update) which also solve ticket #1497

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

@@ -42 +42 @@
    USE domvvl           ! Variable volume
    USE limctl
+   USE limcons
 
    IMPLICIT NONE
@@ -227 +228 @@
       ENDIF
 
-      IF( ln_icectl )   CALL lim_prt( kt, iiceprt, jiceprt, 3, ' - Final state lim_sbc - ' )   ! control print
+      ! conservation test
+      IF( ln_limdiahsb ) CALL lim_cons_final( 'limsbc' )
+
+      ! control prints
+      IF( ln_icectl )   CALL lim_prt( kt, iiceprt, jiceprt, 3, ' - Final state lim_sbc - ' )
 
       IF(ln_ctl) THEN