Changeset 10362 for NEMO/trunk/src/TOP/PISCES/sms_pisces.F90
- Timestamp:
- 2018-11-30T16:38:17+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/sms_pisces.F90
r10222 r10362 76 76 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: etot_ndcy !: PAR over 24h in case of diurnal cycle 77 77 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: enano, ediat !: PAR for phyto, nano and diat 78 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: enanom, ediatm !: PAR for phyto, nano and diat 78 79 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: epico !: PAR for pico 80 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: epicom !: PAR for pico 79 81 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: emoy !: averaged PAR in the mixed layer 80 82 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: heup_01 !: Absolute euphotic layer depth … … 89 91 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: wsbio3 !: POC sinking speed 90 92 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: wsbio4 !: GOC sinking speed 91 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: wscal !: Calcite and BSi sinking speeds92 93 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: wsfep 93 94 … … 105 106 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: prodgoc !: Calcite production 106 107 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: consgoc !: Calcite production 107 108 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: blim !: bacterial production factor 108 109 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: sizen !: size of diatoms 109 110 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: sizep !: size of diatoms … … 147 148 !* Biological fluxes for light 148 149 ALLOCATE( enano(jpi,jpj,jpk) , ediat(jpi,jpj,jpk) , & 150 & enanom(jpi,jpj,jpk) , ediatm(jpi,jpj,jpk), & 149 151 & etot_ndcy(jpi,jpj,jpk), emoy(jpi,jpj,jpk) , STAT=ierr(2) ) 150 152 … … 157 159 & prodcal(jpi,jpj,jpk) , xdiss (jpi,jpj,jpk), & 158 160 & prodpoc(jpi,jpj,jpk) , conspoc(jpi,jpj,jpk) , & 159 & prodgoc(jpi,jpj,jpk) , consgoc(jpi,jpj,jpk) , STAT=ierr(4) ) 161 & prodgoc(jpi,jpj,jpk) , consgoc(jpi,jpj,jpk) , & 162 & blim (jpi,jpj,jpk) , STAT=ierr(4) ) 160 163 161 164 !* Variable for chemistry of the CO2 cycle … … 170 173 !* Sinkong speed 171 174 ALLOCATE( wsbio3 (jpi,jpj,jpk) , wsbio4 (jpi,jpj,jpk), & 172 & wscal(jpi,jpj,jpk) ,STAT=ierr(7) )175 & STAT=ierr(7) ) 173 176 ! 174 177 IF( ln_ligand ) THEN … … 180 183 IF( ln_p5z ) THEN 181 184 ! 182 ALLOCATE( epico(jpi,jpj,jpk) 185 ALLOCATE( epico(jpi,jpj,jpk) , epicom(jpi,jpj,jpk) , STAT=ierr(9) ) 183 186 184 187 !* Size of phytoplankton cells
Note: See TracChangeset
for help on using the changeset viewer.