Changeset 6043 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
- Timestamp:
- 2015-12-14T10:27:28+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r5600 r6043 51 51 REAL(wp), DIMENSION(3,61), PUBLIC :: xkrgb !: tabulated attenuation coefficients for RGB absorption 52 52 53 !! * Substitution54 # include " top_substitute.h90"53 !! * Substitutions 54 # include "domzgr_substitute.h90" 55 55 !!---------------------------------------------------------------------- 56 56 !! NEMO/TOP 3.3 , NEMO Consortium (2010) … … 95 95 ! !* attenuation coef. function of Chlorophyll and wavelength (Red-Green-Blue) 96 96 DO jk = 1, jpkm1 ! -------------------------------------------------------- 97 !CDIR NOVERRCHK98 97 DO jj = 1, jpj 99 !CDIR NOVERRCHK100 98 DO ji = 1, jpi 101 99 zchl = ( trb(ji,jj,jk,jpnch) + trb(ji,jj,jk,jpdch) + rtrn ) * 1.e6 … … 179 177 180 178 DO jk = 1, nksrp 181 !CDIR NOVERRCHK182 179 DO jj = 1, jpj 183 !CDIR NOVERRCHK184 180 DO ji = 1, jpi 185 181 IF( fsdepw(ji,jj,jk+1) <= hmld(ji,jj) ) THEN … … 198 194 ! 199 195 DO jk = 1, nksrp 200 !CDIR NOVERRCHK201 196 DO jj = 1, jpj 202 !CDIR NOVERRCHK203 197 DO ji = 1, jpi 204 198 IF( fsdepw(ji,jj,jk+1) <= hmld(ji,jj) ) THEN … … 264 258 ! 265 259 DO jk = 2, nksrp + 1 266 !CDIR NOVERRCHK267 260 DO jj = 1, jpj 268 !CDIR NOVERRCHK269 261 DO ji = 1, jpi 270 262 pe0(ji,jj,jk) = pe0(ji,jj,jk-1) * EXP( -fse3t(ji,jj,jk-1) * xsi0r ) … … 285 277 ! 286 278 DO jk = 2, nksrp 287 !CDIR NOVERRCHK288 279 DO jj = 1, jpj 289 !CDIR NOVERRCHK290 280 DO ji = 1, jpi 291 281 pe1(ji,jj,jk) = pe1(ji,jj,jk-1) * EXP( -0.5 * ( ekb(ji,jj,jk-1) + ekb(ji,jj,jk) ) ) … … 439 429 440 430 !!====================================================================== 441 END MODULE 431 END MODULE p4zopt
Note: See TracChangeset
for help on using the changeset viewer.