- Timestamp:
- 2019-05-13T11:43:03+02:00 (5 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY
- Files:
-
- 3 edited
-
bdydta.F90 (modified) (1 diff)
-
bdyini.F90 (modified) (2 diffs)
-
bdytides.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdydta.F90
r10888 r10968 517 517 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 518 518 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 519 IF(lwm ) WRITE( numond, nambdy_dta )519 IF(lwm .AND. nprint > 2) WRITE( numond, nambdy_dta ) 520 520 521 521 cn_dir_array(jbdy) = cn_dir -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdyini.F90
r10888 r10968 83 83 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 84 84 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 85 IF(lwm ) WRITE ( numond, nambdy )85 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy ) 86 86 87 87 IF( .NOT. Agrif_Root() ) ln_bdy = .FALSE. ! forced for Agrif children … … 432 432 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 433 433 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 434 IF(lwm ) WRITE ( numond, nambdy_index )434 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_index ) 435 435 436 436 SELECT CASE ( TRIM(ctypebdy) ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdytides.F90
r10888 r10968 105 105 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 106 106 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 107 IF(lwm ) WRITE ( numond, nambdy_tide )107 IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_tide ) 108 108 ! ! Parameter control and print 109 109 IF(lwp) WRITE(numout,*) ' '
Note: See TracChangeset
for help on using the changeset viewer.
