Changeset 5666 for branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90
- Timestamp:
- 2015-08-04T14:45:33+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2015_CO6_CO5_shelfdiagnostic/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90
r5422 r5666 106 106 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: tgfunc2 !: Temp. dependancy of mesozooplankton rates 107 107 108 !!* Array used to indicate negative tracer values109 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xnegtr !: ???110 111 108 #if defined key_kriest 112 109 !!* Kriest parameter for aggregation … … 131 128 !!---------------------------------------------------------------------- 132 129 USE lib_mpp , ONLY: ctl_warn 133 INTEGER :: ierr( 6) ! Local variables130 INTEGER :: ierr(5) ! Local variables 134 131 !!---------------------------------------------------------------------- 135 132 ierr(:) = 0 … … 162 159 ALLOCATE( tgfunc(jpi,jpj,jpk) , tgfunc2(jpi,jpj,jpk) , STAT=ierr(5) ) 163 160 ! 164 !* Array used to indicate negative tracer values165 ALLOCATE( xnegtr(jpi,jpj,jpk) , STAT=ierr(6) )166 161 #endif 167 162 !
Note: See TracChangeset
for help on using the changeset viewer.