Ignore:
Timestamp:
2011-09-13T11:37:04+02:00 (9 years ago)
Author:
cetlod
Message:

dev_r2787_LOCEAN3_TRA_TRP:correct minor bug to avoid compilation error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OFF_SRC/dommsk.F90

    r2715 r2833  
    1919 
    2020   PUBLIC   dom_msk    ! routine called by inidom.F90 
    21  
    22    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   facvol   !: volume for degraded regions 
    2321 
    2422   !! * Substitutions 
     
    5654      END IF 
    5755      ! 
    58 #if defined key_degrad 
    59       IF( dom_msk_alloc() /= 0 )   CALL ctl_stop('STOP','dom_msk: unable to allocate arrays') 
    60 #endif 
    61  
    6256      ! Interior domain mask (used for global sum) 
    6357      ! -------------------- 
     
    10498      ! 
    10599   END SUBROUTINE dom_msk 
    106  
    107  
    108    INTEGER FUNCTION dom_msk_alloc() 
    109       !!--------------------------------------------------------------------- 
    110       !!                 ***  FUNCTION dom_msk_alloc  *** 
    111       !!--------------------------------------------------------------------- 
    112       ALLOCATE( facvol(jpi,jpj,jpk) , STAT=dom_msk_alloc ) 
    113       IF( dom_msk_alloc /= 0 )   CALL ctl_warn('dom_msk_alloc : failed to allocate facvol array') 
    114       ! 
    115    END FUNCTION dom_msk_alloc 
    116  
    117100   !!====================================================================== 
    118101END MODULE dommsk 
Note: See TracChangeset for help on using the changeset viewer.