Changeset 2636 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

Timestamp:

2011-03-01T20:04:06+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; move ctl_stop & warn in lib_mpp to avoid a circular dependency + ctl_stop improvment

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90 (modified) (6 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90

@@ -7 +7 @@
 
    !!----------------------------------------------------------------------
-   !!   lim_lat_acr_2    : lateral accretion of ice
-   !! * Modules used
+   !!   lim_lat_acr_2   : lateral accretion of ice
+   !!----------------------------------------------------------------------
    USE par_oce          ! ocean parameters
    USE phycst
@@ -14 +14 @@
    USE ice_2
    USE limistate_2 
-     
+   USE lib_mpp          ! MPP library
+
    IMPLICIT NONE
    PRIVATE
 
-   !! * Routine accessibility
-   PUBLIC lim_thd_lac_2   ! called by lim_thd_2
-
-   !! * Module variables
+   PUBLIC   lim_thd_lac_2   ! called by lim_thd_2
+
    REAL(wp)  ::           &  ! constant values
       epsi20 = 1.e-20  ,  &
@@ -27 +26 @@
       zzero  = 0.e0    ,  &
       zone   = 1.e0
+
    !!----------------------------------------------------------------------
    !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010)
@@ -70 +70 @@
       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
       USE wrk_nemo, ONLY: wrk_1d_1, wrk_1d_2, wrk_1d_3, wrk_1d_4, wrk_1d_5, wrk_1d_6
-      USE in_out_manager, ONLY: ctl_stop
-      !!
-      !! * Arguments
+      !
       INTEGER , INTENT(IN)::  &
          kideb          ,   &  ! start point on which the the computation is applied
          kiut                  ! end point on which the the computation is applied
 
-      !! * Local variables
+      ! * Local variables
       INTEGER ::            &
          ji             ,   &  !  dummy loop indices
@@ -106 +104 @@
       !!---------------------------------------------------------------------      
                
-      IF(wrk_in_use(1, 1,2,3,4,5,6))THEN
-         CALL ctl_stop('lim_thd_lac_2 : requestead workspace arrays unavailable.')
-         RETURN
-      END IF
+      IF( wrk_in_use(1, 1,2,3,4,5,6) ) THEN
+         CALL ctl_stop('lim_thd_lac_2 : requestead workspace arrays unavailable')   ;   RETURN
+      ENDIF
       ! Set-up pointers to sub-arrays of workspace arrays
       zqbgow    => wrk_1d_1(1:jpij)
@@ -235 +232 @@
       END DO
       
-      IF(wrk_not_released(1, 1,2,3,4,5,6))THEN
-         CALL ctl_stop('lim_thd_lac_2 : failed to release workspace arrays.')
-      END IF
-
+      IF( wrk_not_released(1, 1,2,3,4,5,6) )   CALL ctl_stop('lim_thd_lac_2 : failed to release workspace arrays.')
+      !
    END SUBROUTINE lim_thd_lac_2
 #else
-   !!======================================================================
+   !!----------------------------------------------------------------------
    !!                       ***  MODULE limthd_lac_2   ***
    !!                           no sea ice model
-   !!======================================================================
+   !!----------------------------------------------------------------------
 CONTAINS
    SUBROUTINE lim_thd_lac_2           ! Empty routine
    END SUBROUTINE lim_thd_lac_2
 #endif
+   !!======================================================================
 END MODULE limthd_lac_2