Changeset 9034 for branches/2017/dev_merge_2017/NEMOGCM/NEMO
- Timestamp:
- 2017-12-14T11:34:11+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r9033 r9034 109 109 INTEGER, PARAMETER :: jpr_wper = 48 ! Mean wave period 110 110 INTEGER, PARAMETER :: jpr_wnum = 49 ! Mean wavenumber 111 INTEGER, PARAMETER :: jpr_tauwoc 111 INTEGER, PARAMETER :: jpr_tauwoc = 50 ! Stress fraction adsorbed by waves 112 112 INTEGER, PARAMETER :: jpr_wdrag = 51 ! Neutral surface drag coefficient 113 113 INTEGER, PARAMETER :: jpr_isf = 52 … … 304 304 WRITE(numout,*)' Mean wave number = ', TRIM(sn_rcv_wnum%cldes ), ' (', TRIM(sn_rcv_wnum%clcat ), ')' 305 305 WRITE(numout,*)' Wave peak frequency = ', TRIM(sn_rcv_wfreq%cldes ), ' (', TRIM(sn_rcv_wfreq%clcat ), ')' 306 WRITE(numout,*)' Stress frac adsorbed by waves = ', TRIM(sn_rcv_tauwoc%cldes 306 WRITE(numout,*)' Stress frac adsorbed by waves = ', TRIM(sn_rcv_tauwoc%cldes), ' (', TRIM(sn_rcv_tauwoc%clcat ), ')' 307 307 WRITE(numout,*)' Stress components by waves = ', TRIM(sn_rcv_tauw%cldes ), ' (', TRIM(sn_rcv_tauw%clcat ), ')' 308 308 WRITE(numout,*)' Neutral surf drag coefficient = ', TRIM(sn_rcv_wdrag%cldes ), ' (', TRIM(sn_rcv_wdrag%clcat ), ')' … … 612 612 cpl_wnum = .TRUE. 613 613 ENDIF 614 srcv(jpr_tauwoc)%clname = 'O_TauOce' 614 srcv(jpr_tauwoc)%clname = 'O_TauOce' ! stress fraction adsorbed by the wave 615 615 IF( TRIM(sn_rcv_tauwoc%cldes ) == 'coupled' ) THEN 616 616 srcv(jpr_tauwoc)%laction = .TRUE. … … 1314 1314 ! ! Stress adsorbed by waves ! 1315 1315 ! ! ========================= ! 1316 IF( srcv(jpr_tauwoc)%laction .AND. ln_tauwoc ) tau woc_wave(:,:) = frcv(jpr_tauwoc)%z3(:,:,1)1316 IF( srcv(jpr_tauwoc)%laction .AND. ln_tauwoc ) tauoc_wave(:,:) = frcv(jpr_tauwoc)%z3(:,:,1) 1317 1317 1318 1318 ! ! ========================= !
Note: See TracChangeset
for help on using the changeset viewer.