Changeset 12065 for NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/TOP/PISCES/P4Z/p4zpoc.F90
- Timestamp:
- 2019-12-05T12:06:36+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/TOP/PISCES/P4Z/p4zpoc.F90
r10362 r12065 102 102 ! particle scheme. Does not work with Kriest parameterization. 103 103 ! ----------------------------------------------------------------------- 104 ztremint(:,:,:) = zremigoc(:,:,:) 104 105 DO jk = 2, jpkm1 105 106 DO jj = 1, jpj … … 166 167 & + zsizek1 ) ) * zpoc + ( prodgoc(ji,jj,jk-1) / tgfunc(ji,jj,jk-1) * ( 1. & 167 168 & - exp( -reminp(jn) * zsizek1 ) ) * exp( -reminp(jn) * zsizek ) + prodgoc(ji,jj,jk) & 168 & / tgfunc(ji,jj,jk) * ( 1. - exp( -reminp(jn) * zsizek ) ) ) * rday / rfact2 / reminp(jn) 169 & / tgfunc(ji,jj,jk) * ( 1. - exp( -reminp(jn) * zsizek ) ) ) * rday / rfact2 / reminp(jn) * alphan(jn) 169 170 alphat = alphat + alphag(ji,jj,jk,jn) 170 171 remint = remint + alphag(ji,jj,jk,jn) * reminp(jn) … … 285 286 ! layer, this spectrum is supposed to be uniform. 286 287 ! --------------------------------------------------------------------- 288 ztremint(:,:,:) = zremipoc(:,:,:) 287 289 DO jk = 1, jpkm1 288 290 DO jj = 1, jpj … … 497 499 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization 498 500 READ ( numnatp_ref, nampispoc, IOSTAT = ios, ERR = 901) 499 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' , lwp)501 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' ) 500 502 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization 501 503 READ ( numnatp_cfg, nampispoc, IOSTAT = ios, ERR = 902 ) 502 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' , lwp)504 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' ) 503 505 IF(lwm) WRITE( numonp, nampispoc ) 504 506
Note: See TracChangeset
for help on using the changeset viewer.