Changeset 8503 for branches/UKMO
- Timestamp:
- 2017-09-06T15:05:03+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90
r8502 r8503 108 108 IF(lwm) WRITE ( numond, namsbc_flx ) 109 109 ! 110 IF(lwp) THEN ! Namelist print 111 WRITE(numout,*) 112 WRITE(numout,*) 'sbc_flx : Flux forcing' 113 WRITE(numout,*) '~~~~~~~~~~~' 114 WRITE(numout,*) ' Namelist namsbc_flx : shelf seas configuration (force with winds instead of momentum)' 115 WRITE(numout,*) ' shelf seas configuration ln_shelf_flx = ', ln_shelf_flx 116 WRITE(numout,*) ' relative wind speed ln_rel_wind = ', ln_rel_wind 117 WRITE(numout,*) ' wind multiplication factor rn_wfac = ', rn_wfac 118 ENDIF 110 119 ! ! check: do we plan to use ln_dm2dc with non-daily forcing? 111 120 IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 ) &
Note: See TracChangeset
for help on using the changeset viewer.