- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/traqsr.F90
r10968 r10986 118 118 IF( ln_timing ) CALL timing_start('tra_qsr') 119 119 ! 120 IF( kt == nit000 ) THEN 121 IF(lwp) WRITE(numout,*) 122 IF(lwp) WRITE(numout,*) 'tra_qsr : penetration of the surface solar radiation' 123 IF(lwp) WRITE(numout,*) '~~~~~~~' 120 IF( kt == nit000 .AND. lwp) THEN 121 WRITE(numout,*) 122 WRITE(numout,*) 'tra_qsr : penetration of the surface solar radiation' 123 WRITE(numout,*) '~~~~~~~' 124 IF(lflush) CALL FLUSH(numout) 124 125 ENDIF 125 126 ! … … 135 136 !!gm case neuler not taken into account.... 136 137 IF( ln_rstart .AND. iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN ! read in restart 137 IF(lwp .AND. nprint >0) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field read in the restart file' 138 IF(lwp .AND. nprint >0) THEN 139 WRITE(numout,*) ' nit000-1 qsr tracer content forcing field read in the restart file' 140 IF(lflush) CALL FLUSH(numout) 141 ENDIF 138 142 z1_2 = 0.5_wp 139 143 CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b, ldxios = lrxios ) ! before heat content trend due to Qsr flux … … 358 362 WRITE(numout,*) ' 2 bands: longest depth of extinction rn_si1 = ', rn_si1 359 363 WRITE(numout,*) 364 IF(lflush) CALL FLUSH(numout) 360 365 ENDIF 361 366 ! … … 418 423 ! 419 424 END SELECT 425 IF(lwp .AND. lflush) CALL FLUSH(numout) 420 426 ! 421 427 qsr_hc(:,:,:) = 0._wp ! now qsr heat content set to zero where it will not be computed
Note: See TracChangeset
for help on using the changeset viewer.