Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
r2528 r2715 13 13 USE in_out_manager ! I/O manager 14 14 USE dom_oce ! ocean space and time domain 15 USE lib_mpp ! MPP library 15 16 16 17 IMPLICIT NONE … … 20 21 PUBLIC trc_oce_rgb_read ! routine called by traqsr.F90 21 22 PUBLIC trc_oce_ext_lev ! function called by traqsr.F90 at least 22 23 REAL(wp), PUBLIC :: r_si2 !: largest depth of extinction (blue & 0.01 mg.m-3) (RGB) 24 REAL(wp), PUBLIC , DIMENSION(jpi,jpj,jpk) :: etot3 !: light absortion coefficient 23 PUBLIC trc_oce_alloc ! function called by nemogcm.F90 24 25 REAL(wp), PUBLIC :: r_si2 !: largest depth of extinction (blue & 0.01 mg.m-3) (RGB) 26 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: etot3 !: light absortion coefficient 25 27 26 28 #if defined key_top && defined key_pisces … … 53 55 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 54 56 !! $Id$ 55 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 56 !!---------------------------------------------------------------------- 57 57 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 58 !!---------------------------------------------------------------------- 58 59 CONTAINS 60 61 INTEGER FUNCTION trc_oce_alloc() 62 !!---------------------------------------------------------------------- 63 !! *** trc_oce_alloc *** 64 !!---------------------------------------------------------------------- 65 ALLOCATE( etot3(jpi,jpj,jpk) , STAT= trc_oce_alloc ) 66 ! 67 IF( trc_oce_alloc /= 0 ) CALL ctl_warn('trc_oce_alloc: failed to allocate etot3 array') 68 END FUNCTION trc_oce_alloc 69 59 70 60 71 SUBROUTINE trc_oce_rgb( prgb ) … … 239 250 ! 240 251 ! It is not necessary to compute anything bellow the following depth 241 zhext = prldex * ( LOG(10. e0) * zprec + LOG(pqsr_frc) )242 252 zhext = prldex * ( LOG(10._wp) * zprec + LOG(pqsr_frc) ) 253 ! 243 254 ! Level of light extinction 244 255 pjl = jpkm1 … … 250 261 END FUNCTION trc_oce_ext_lev 251 262 252 253 263 !!====================================================================== 254 264 END MODULE trc_oce
Note: See TracChangeset
for help on using the changeset viewer.