Changeset 14558
- Timestamp:
- 2021-03-01T14:27:38+01:00 (3 years ago)
- Location:
- NEMO/trunk/src/TOP
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/sms_pisces.F90
r12377 r14558 70 70 71 71 !!* Biological fluxes for light : variables shared by pisces & lobster 72 INTEGER , ALLOCATABLE, SAVE, DIMENSION(:,:) :: neln !: number of T-levels + 1 in the euphotic layer73 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup !: euphotic layer depth74 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot !: par (photosynthetic available radiation)75 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot_ndcy !: PAR over 24h in case of diurnal cycle76 72 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: enano, ediat !: PAR for phyto, nano and diat 77 73 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: enanom, ediatm !: PAR for phyto, nano and diat … … 79 75 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: epicom !: PAR for pico 80 76 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: emoy !: averaged PAR in the mixed layer 81 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup_01 !: Absolute euphotic layer depth82 77 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: xksi !: LOBSTER : zooplakton closure 83 78 … … 139 134 ierr(:) = 0 140 135 !* Biological fluxes for light : shared variables for pisces & lobster 141 ALLOCATE( etot(jpi,jpj,jpk), neln(jpi,jpj), heup(jpi,jpj), & 142 & heup_01(jpi,jpj) , xksi(jpi,jpj) , STAT=ierr(1) ) 136 ALLOCATE( xksi(jpi,jpj) , STAT=ierr(1) ) 143 137 ! 144 138 … … 147 141 ALLOCATE( enano(jpi,jpj,jpk) , ediat(jpi,jpj,jpk) , & 148 142 & enanom(jpi,jpj,jpk) , ediatm(jpi,jpj,jpk), & 149 & e tot_ndcy(jpi,jpj,jpk), emoy(jpi,jpj,jpk), STAT=ierr(2) )143 & emoy(jpi,jpj,jpk) , STAT=ierr(2) ) 150 144 151 145 !* Biological fluxes for primary production -
NEMO/trunk/src/TOP/trc.F90
r14032 r14558 82 82 CHARACTER(len=2), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: cn_trc_o !: choice of ocean tracer cc 83 83 84 !! Information for the optics module 85 !! --------------------------------- 86 INTEGER , ALLOCATABLE, SAVE, DIMENSION(:,:) :: neln !: number of T-levels + 1 in the euphotic layer 87 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup !: euphotic layer depth 88 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup_01 !: Absolute euphotic layer depth 89 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot !: par (photosynthetic available radiation) 90 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot_ndcy !: PAR over 24h in case of diurnal cycle 91 84 92 85 93 !! information for outputs … … 156 164 & gtrui(jpi,jpj,jptra) , gtrvi(jpi,jpj,jptra) , & 157 165 & trc_ice_ratio(jptra) , trc_ice_prescr(jptra) , cn_trc_o(jptra) , & 166 & neln(jpi,jpj) , heup(jpi,jpj) , heup_01(jpi,jpj) , & 167 & etot(jpi,jpj,jpk) , etot_ndcy(jpi,jpj,jpk) , & 158 168 & sbc_trc_b(jpi,jpj,jptra), sbc_trc(jpi,jpj,jptra) , & 159 169 & cvol(jpi,jpj,jpk) , trai(jptra) , qsr_mean(jpi,jpj) , &
Note: See TracChangeset
for help on using the changeset viewer.