Changeset 8503


Ignore:
Timestamp:
2017-09-06T15:05:03+02:00 (3 years ago)
Author:
jcastill
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90

    r8502 r8503  
    108108         IF(lwm) WRITE ( numond, namsbc_flx )  
    109109         ! 
     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 
    110119         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
    111120         IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   & 
Note: See TracChangeset for help on using the changeset viewer.