Changeset 11564 for NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/TOP/PISCES/P4Z/p4zpoc.F90
- Timestamp:
- 2019-09-18T16:11:52+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/TOP/PISCES/P4Z/p4zpoc.F90
r10973 r11564 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 … … 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.