Changeset 5924 for branches/UKMO
- Timestamp:
- 2015-11-26T11:15:27+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_ww3_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5903 r5924 157 157 TYPE(FLD_C) :: sn_rcv_cal, sn_rcv_iceflx, sn_rcv_co2, sn_rcv_mslp 158 158 ! Send to waves 159 TYPE(FLD_C) :: sn_snd_ifrac, sn_snd_crtw 159 TYPE(FLD_C) :: sn_snd_ifrac, sn_snd_crtw, sn_snd_ssh 160 160 ! Received from waves 161 161 TYPE(FLD_C) :: sn_rcv_hsig,sn_rcv_phioc … … 233 233 NAMELIST/namsbc_cpl/ sn_snd_temp , sn_snd_alb , sn_snd_thick , sn_snd_crt , sn_snd_co2, & 234 234 & sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau , sn_rcv_dqnsdt, sn_rcv_qsr, & 235 & sn_snd_ifrac, sn_snd_crtw , sn_ rcv_hsig , sn_rcv_phioc ,&235 & sn_snd_ifrac, sn_snd_crtw , sn_snd_ssh , sn_rcv_hsig , sn_rcv_phioc , & 236 236 & sn_rcv_qns , sn_rcv_emp , sn_rcv_rnf , sn_rcv_cal , sn_rcv_iceflx, & 237 237 & sn_rcv_co2 , nn_cplmodel , ln_usecplmask, sn_rcv_mslp … … 288 288 WRITE(numout,*)' - mesh = ', sn_snd_crt%clvgrd 289 289 WRITE(numout,*)' oce co2 flux = ', TRIM(sn_snd_co2%cldes ), ' (', TRIM(sn_snd_co2%clcat ), ')' 290 WRITE(numout,*)' sea surface height = ', TRIM(sn_snd_ssh%cldes ), ' (', TRIM(sn_snd_ssh%clcat ), ')' 290 291 WRITE(numout,*)' mean sea level pressure = ', TRIM(sn_rcv_mslp%cldes ), ' (', TRIM(sn_rcv_mslp%clcat ), ')' 291 292 WRITE(numout,*)' surface current to waves = ', TRIM(sn_snd_crtw%cldes ), ' (', TRIM(sn_snd_crtw%clcat ), ')' … … 747 748 ssnd(jps_co2)%clname = 'O_CO2FLX' ; IF( TRIM(sn_snd_co2%cldes) == 'coupled' ) ssnd(jps_co2 )%laction = .TRUE. 748 749 750 ! ! ------------------------- ! 751 ! ! Sea surface height ! 752 ! ! ------------------------- ! 753 ssnd(jps_ssh)%clname = 'O_SSHght' ; IF( TRIM(sn_snd_ssh%cldes) == 'coupled' ) ssnd(jps_ssh )%laction = .TRUE. 754 749 755 ! ! ------------------------------- ! 750 756 ! ! OPA-SAS coupling - snd by opa ! 751 757 ! ! ------------------------------- ! 752 ssnd(jps_ssh )%clname = 'O_SSHght'753 758 ssnd(jps_soce )%clname = 'O_SSSal' 754 759 ssnd(jps_e3t1st)%clname = 'O_E3T1st'
Note: See TracChangeset
for help on using the changeset viewer.