Changeset 2626 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3

Timestamp:

2011-02-27T17:41:49+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; LIM_SRC_3 mpp compilation correct limthd.F90 ; LIM2 & 3: add a test of jpl/jpk in iceini

Location:

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3

Files:

• iceini.F90 (modified) (1 diff)
• limthd.F90 (modified) (2 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

@@ -65 +65 @@
       IF( lk_mpp    )   CALL mpp_sum( ierr )
       IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'ice_init : unable to allocate ice arrays' )
-
-      IF( ierr > 0 ) THEN
-         WRITE(numout,*) 
-         WRITE(numout,*) 'ERROR: Allocation of memory failed in nemo_alloc'
-         IF( lk_mpp )   CALL mppstop()
-         STOP
-      END IF
-      !
+      !
+      !                                ! adequation jpk versus ice/snow layers/categories
+      IF( jpl   > jpk  .OR.  jpm    > jpk .OR.                                    &
+          jkmax > jpk  .OR.  nlay_s > jpk      )   CALL ctl_stop( 'STOP',         &
+         &     'ice_init: the 3rd dimension of workspace arrays is too small.',   &
+         &     'use more ocean levels or less ice/snow layers/categories.' )
+
       !                                ! Open the namelist file 
       CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

@@ -96 +96 @@
       IF( .NOT. wrk_use(2, 1) ) THEN
          CALL ctl_stop( 'lim_thd : requested workspace arrays unavailable' )   ;   RETURN
-      END IF
+      ENDIF
    
       !------------------------------------------------------------------------------!
@@ -246 +246 @@
          !------------------------------------------------------------------------------!
 
-         IF( lk_mpp )   CALL mpp_ini_ice( nbpb )
+         IF( lk_mpp )   CALL mpp_ini_ice( nbpb , numout )
 
          IF( nbpb > 0 ) THEN  ! If there is no ice, do nothing.