Changeset 13107 for NEMO/branches/2020/dev_r12985_TOP-04_IMMERSE_BGC_interface/src/TOP/PISCES/sms_pisces.F90
- Timestamp:
- 2020-06-12T20:34:30+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12985_TOP-04_IMMERSE_BGC_interface/src/TOP/PISCES/sms_pisces.F90
r12377 r13107 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 145 138 IF( ln_p4z .OR. ln_p5z ) THEN 146 139 !* Biological fluxes for light 147 140 ALLOCATE( enano(jpi,jpj,jpk) , ediat(jpi,jpj,jpk) , & 148 141 & enanom(jpi,jpj,jpk) , ediatm(jpi,jpj,jpk), & 149 & e tot_ndcy(jpi,jpj,jpk), emoy(jpi,jpj,jpk) ,STAT=ierr(2) )142 & emoy(jpi,jpj,jpk) , STAT=ierr(2) ) 150 143 151 144 !* Biological fluxes for primary production
Note: See TracChangeset
for help on using the changeset viewer.