Changeset 2833 for branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OFF_SRC

Timestamp:

2011-09-13T11:37:04+02:00 (13 years ago)

Author:

cetlod

Message:

dev_r2787_LOCEAN3_TRA_TRP:correct minor bug to avoid compilation error

Location:

branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OFF_SRC

Files:

• dommsk.F90 (modified) (3 diffs)
• domrea.F90 (modified) (1 diff)

branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OFF_SRC/dommsk.F90

@@ -19 +19 @@
 
    PUBLIC   dom_msk    ! routine called by inidom.F90
-
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   facvol   !: volume for degraded regions
 
    !! * Substitutions
@@ -56 +54 @@
       END IF
       !
-#if defined key_degrad
-      IF( dom_msk_alloc() /= 0 )   CALL ctl_stop('STOP','dom_msk: unable to allocate arrays')
-#endif
-
       ! Interior domain mask (used for global sum)
       ! --------------------
@@ -104 +98 @@
       !
    END SUBROUTINE dom_msk
-
-
-   INTEGER FUNCTION dom_msk_alloc()
-      !!---------------------------------------------------------------------
-      !!                 ***  FUNCTION dom_msk_alloc  ***
-      !!---------------------------------------------------------------------
-      ALLOCATE( facvol(jpi,jpj,jpk) , STAT=dom_msk_alloc )
-      IF( dom_msk_alloc /= 0 )   CALL ctl_warn('dom_msk_alloc : failed to allocate facvol array')
-      !
-   END FUNCTION dom_msk_alloc
-
    !!======================================================================
 END MODULE dommsk

branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OFF_SRC/domrea.F90

@@ -16 +16 @@
    USE dommsk          ! domain: masks
    USE lbclnk          ! lateral boundary condition - MPP exchanges
+   USE trc_oce         ! shared ocean/biogeochemical variables
    USE lib_mpp 
    USE in_out_manager