Changeset 10770 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
- Timestamp:
- 2019-03-15T17:03:41+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r10759 r10770 135 135 IF( ln_rstart .AND. & ! Restart: read in restart file 136 136 & iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN 137 IF(lwp ) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field red in the restart file'137 IF(lwp .AND. nprint >0) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field red in the restart file' 138 138 zfact = 0.5e0 139 139 CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b ) ! before heat content trend due to Qsr flux … … 364 364 IF( lrst_oce ) THEN ! Write in the ocean restart file 365 365 ! ******************************* 366 IF(lwp) WRITE(numout,*) 367 IF(lwp) WRITE(numout,*) 'qsr tracer content forcing field written in ocean restart file ', & 366 IF(lwp .AND. nprint >0) THEN 367 WRITE(numout,*) 368 WRITE(numout,*) 'qsr tracer content forcing field written in ocean restart file ', & 368 369 & 'at it= ', kt,' date= ', ndastp 369 IF(lwp) WRITE(numout,*) '~~~~' 370 WRITE(numout,*) '~~~~' 371 ENDIF 370 372 IF(nn_timing == 2) CALL timing_start('iom_rstput') 371 373 CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b' , qsr_hc )
Note: See TracChangeset
for help on using the changeset viewer.