Changeset 5428 for branches/UKMO/2015_CO6_CO5_zenv_wr_direct_dwl_temp/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
- Timestamp:
- 2015-06-16T06:25:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2015_CO6_CO5_zenv_wr_direct_dwl_temp/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
r5418 r5428 27 27 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: etot3 !: light absortion coefficient 28 28 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: facvol !: volume for degraded regions 29 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:) :: rlambda2 !: Lambda2 for downwell version of Short wave Radiation 30 REAL(wp), PUBLIC :: rlambda !: Lambda for downwell version of Short wave Radiation 29 31 30 32 #if defined key_top … … 76 78 !! *** trc_oce_alloc *** 77 79 !!---------------------------------------------------------------------- 78 INTEGER :: ierr( 2) ! Local variables80 INTEGER :: ierr(3) ! Local variables 79 81 !!---------------------------------------------------------------------- 80 82 ierr(:) = 0 81 83 ALLOCATE( etot3 (jpi,jpj,jpk), STAT=ierr(1) ) 82 84 IF( lk_degrad) ALLOCATE( facvol(jpi,jpj,jpk), STAT=ierr(2) ) 85 ALLOCATE( rlambda2(jpi,jpj), STAT=ierr(3) ) 83 86 trc_oce_alloc = MAXVAL( ierr ) 84 87 ! 85 IF( trc_oce_alloc /= 0 ) CALL ctl_warn('trc_oce_alloc: failed to allocate etot3 array')88 IF( trc_oce_alloc /= 0 ) CALL ctl_warn('trc_oce_alloc: failed to allocate etot3, facvol or rlambda2 array') 86 89 END FUNCTION trc_oce_alloc 87 90
Note: See TracChangeset
for help on using the changeset viewer.