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/OPA_SRC/trc_oce.F90

    r2819 r2833  
    2525   REAL(wp), PUBLIC                                      ::   r_si2   !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB) 
    2626   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   etot3   !: light absortion coefficient 
     27   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   facvol   !: volume for degraded regions 
    2728 
    2829#if defined key_top && defined key_pisces 
     
    7475      !!                  ***  trc_oce_alloc  *** 
    7576      !!---------------------------------------------------------------------- 
    76       ALLOCATE( etot3(jpi,jpj,jpk)   , STAT= trc_oce_alloc ) 
     77      INTEGER ::   ierr(2)        ! Local variables 
     78      !!---------------------------------------------------------------------- 
     79      ierr(:) = 0 
     80                     ALLOCATE( etot3 (jpi,jpj,jpk), STAT=ierr(1) ) 
     81      IF( lk_degrad) ALLOCATE( facvol(jpi,jpj,jpk), STAT=ierr(2) ) 
     82      trc_oce_alloc  = MAXVAL( ierr ) 
    7783      ! 
    7884      IF( trc_oce_alloc /= 0 )   CALL ctl_warn('trc_oce_alloc: failed to allocate etot3 array') 
Note: See TracChangeset for help on using the changeset viewer.