Changeset 8503 for branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM

Timestamp:

2017-09-06T15:05:03+02:00 (7 years ago)

Author:

jcastill

Message:

Print namsbc_flx namelist information in the output (shelf seas configuration)

File:

• branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90 (modified) (1 diff)

branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90

@@ -108 +108 @@
          IF(lwm) WRITE ( numond, namsbc_flx ) 
          !
+         IF(lwp) THEN                        ! Namelist print
+            WRITE(numout,*)
+            WRITE(numout,*) 'sbc_flx : Flux forcing'
+            WRITE(numout,*) '~~~~~~~~~~~'
+            WRITE(numout,*) '       Namelist namsbc_flx : shelf seas configuration (force with winds instead of momentum)'
+            WRITE(numout,*) '          shelf seas configuration    ln_shelf_flx    = ', ln_shelf_flx
+            WRITE(numout,*) '          relative wind speed         ln_rel_wind     = ', ln_rel_wind
+            WRITE(numout,*) '          wind multiplication factor  rn_wfac         = ', rn_wfac
+         ENDIF
          !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing?
          IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &