- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90
r3780 r4147 145 145 CALL p4z_chk_mass( kt ) ! Mass conservation checking 146 146 147 IF ( kt == nittrc000 ) CALL FLUSH ( numonp ) ! flush output namelist PISCES 147 148 IF( nn_timing == 1 ) CALL timing_stop('p4z_sms') 148 149 ! … … 166 167 NAMELIST/nampisdmp/ ln_pisdmp, nn_pisdmp, ln_pisclo 167 168 NAMELIST/nampismass/ ln_check_mass 168 !!---------------------------------------------------------------------- 169 170 171 REWIND( numnatp ) 172 READ ( numnatp, nampisbio ) 169 INTEGER :: ios ! Local integer output status for namelist read 170 !!---------------------------------------------------------------------- 171 172 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables 173 READ ( numnatp_ref, nampisbio, IOSTAT = ios, ERR = 901) 174 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist', lwp ) 175 176 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables 177 READ ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 178 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist', lwp ) 179 WRITE ( numonp, nampisbio ) 173 180 174 181 IF(lwp) THEN ! control print … … 187 194 ! ! nampiskrp : kriest parameters 188 195 ! ! ----------------------------- 189 xkr_eta = 0.62190 xkr_zeta = 1.62191 xkr_ncontent = 5.7E-6 192 xkr_mass_min = 0.0002 193 xkr_mass_max = 1.194 195 REWIND( numnatp ) ! read natkriest 196 READ ( numnatp, nampiskrp )196 REWIND( numnatp_ref ) ! Namelist nampiskrp in reference namelist : Pisces Kriest 197 READ ( numnatp_ref, nampiskrp, IOSTAT = ios, ERR = 903) 198 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in reference namelist', lwp ) 199 200 REWIND( numnatp_cfg ) ! Namelist nampiskrp in configuration namelist : Pisces Kriest 201 READ ( numnatp_cfg, nampiskrp, IOSTAT = ios, ERR = 904 ) 202 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in configuration namelist', lwp ) 203 WRITE ( numonp, nampiskrp ) 197 204 198 205 IF(lwp) THEN … … 213 220 #endif 214 221 215 ln_pisdmp = .true. 216 nn_pisdmp = 1 217 ln_pisclo = .false. 218 219 REWIND( numnatp ) 220 READ ( numnatp, nampisdmp ) 222 REWIND( numnatp_ref ) ! Namelist nampisdmp in reference namelist : Pisces damping 223 READ ( numnatp_ref, nampisdmp, IOSTAT = ios, ERR = 905) 224 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist', lwp ) 225 226 REWIND( numnatp_cfg ) ! Namelist nampisdmp in configuration namelist : Pisces damping 227 READ ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 228 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist', lwp ) 229 WRITE ( numonp, nampisdmp ) 221 230 222 231 IF(lwp) THEN ! control print … … 229 238 ENDIF 230 239 231 ln_check_mass = .false. 232 REWIND( numnatp ) 233 READ ( numnatp, nampismass ) 240 REWIND( numnatp_ref ) ! Namelist nampismass in reference namelist : Pisces mass conservation check 241 READ ( numnatp_ref, nampismass, IOSTAT = ios, ERR = 907) 242 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist', lwp ) 243 244 REWIND( numnatp_cfg ) ! Namelist nampismass in configuration namelist : Pisces mass conservation check 245 READ ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 246 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist', lwp ) 247 WRITE ( numonp, nampismass ) 248 234 249 IF(lwp) THEN ! control print 235 250 WRITE(numout,*) ' '
Note: See TracChangeset
for help on using the changeset viewer.