- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_rnf_1d.F90
r10269 r11101 70 70 IF(lwp) WRITE(numout,*) 'cpl_rnf_1d_init : initialization of river runoff coupling' 71 71 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 72 IF(lwp .AND. lflush) CALL flush(numout) 72 73 73 74 REWIND(numnam_cfg) … … 78 79 READ ( numnam_cfg, nam_cpl_rnf_1d, IOSTAT = ios, ERR = 902 ) 79 80 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_cpl_rnf_1d in configuration namelist', lwp ) 80 IF(lwm ) WRITE ( numond, nam_cpl_rnf_1d )81 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_cpl_rnf_1d ) 81 82 82 83 ! ! Parameter control and print … … 87 88 IF(lwp) WRITE(numout,*) ' Print river information = ',ln_print_river_info 88 89 IF(lwp) WRITE(numout,*) ' ' 90 IF(lwp .AND. lflush) CALL flush(numout) 89 91 90 92 ! Assign space for river numbers … … 109 111 110 112 ! Print out the largest river number 111 IF ( ln_print_river_info ) THEN113 IF ( ln_print_river_info .AND. lwp) THEN 112 114 WRITE(numout,*) 'Maximum river number in input file = ',max_river 115 IF(lflush) CALL flush(numout) 113 116 END IF 114 117 … … 137 140 rivers%river_area(:) = REAL(rivers%river_area_c(:),wp) 138 141 139 IF ( ln_print_river_info ) THEN142 IF ( ln_print_river_info .AND. lwp) THEN 140 143 WRITE(numout,*) 'Area of rivers 1 to 10 are ',rivers%river_area(1:10) 144 IF(lflush) CALL flush(numout) 141 145 END IF 142 146
Note: See TracChangeset
for help on using the changeset viewer.