Changeset 2777 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

Timestamp:

2011-06-07T11:55:02+02:00 (13 years ago)

Author:

smasson

Message:

LIM3 compiling and (partly?) running in v3_3_1, see ticket#817

File:

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

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

@@ -28 +28 @@
    USE wrk_nemo         ! workspace manager
    USE in_out_manager   ! I/O manager
-   USE lib_mpp         ! MPP library
+   USE lib_mpp          ! MPP library
 
    IMPLICIT NONE
@@ -111 +111 @@
       !!-----------------------------------------------------------------------!
 
-      IF(  wrk_in_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR.   &
+      IF(  wrk_in_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) .OR.   &
          & wrk_in_use(2, 1,2,3,4,5,6,7,8)                        ) THEN
-         CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.')   ;   RETURN
+         CALL ctl_stop('lim_thd_lac : requestead workspace arrays unavailable.')   ;   RETURN
       END IF
       ! Set-up pointers to sub-arrays of workspace arrays
@@ -130 +130 @@
       zqbgow    =>  wrk_1d_13(1:jpij)   ! heat budget of the open water (negative)
       zdhex     =>  wrk_1d_14(1:jpij)   ! excessively thick accreted sea ice (hlead-hice)
+      zswinew   =>  wrk_1d_15(1:jpij)   ! switch for new ice or not
 
 
@@ -690 +691 @@
       ENDIF
       !
-      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR.     &
+      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) .OR.     &
           wrk_not_released(2, 1,2,3,4,5,6,7,8)                       )   &
           CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays' )