Changeset 7797 for branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO
- Timestamp:
- 2017-03-15T10:44:35+01:00 (7 years ago)
- Location:
- branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r7792 r7797 113 113 INTEGER, PARAMETER :: jpr_wper = 48 ! Mean wave period 114 114 INTEGER, PARAMETER :: jpr_wnum = 49 ! Mean wavenumber 115 INTEGER, PARAMETER :: jpr_ wstrf= 50 ! Stress fraction adsorbed by waves115 INTEGER, PARAMETER :: jpr_tauoc = 50 ! Stress fraction adsorbed by waves 116 116 INTEGER, PARAMETER :: jpr_wdrag = 51 ! Neutral surface drag coefficient 117 117 INTEGER, PARAMETER :: jprcv = 51 ! total number of fields received … … 167 167 TYPE(FLD_C) :: sn_snd_ifrac, sn_snd_crtw, sn_snd_wlev 168 168 ! Received from waves 169 TYPE(FLD_C) :: sn_rcv_hsig,sn_rcv_phioc,sn_rcv_sdrfx,sn_rcv_sdrfy,sn_rcv_wper,sn_rcv_wnum,sn_rcv_ wstrf,sn_rcv_wdrag169 TYPE(FLD_C) :: sn_rcv_hsig,sn_rcv_phioc,sn_rcv_sdrfx,sn_rcv_sdrfy,sn_rcv_wper,sn_rcv_wnum,sn_rcv_tauoc,sn_rcv_wdrag 170 170 ! Other namelist parameters ! 171 171 INTEGER :: nn_cplmodel ! Maximum number of models to/from which NEMO is potentialy sending/receiving data … … 242 242 & sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau , sn_rcv_dqnsdt, sn_rcv_qsr, & 243 243 & sn_snd_ifrac, sn_snd_crtw , sn_snd_wlev , sn_rcv_hsig , sn_rcv_phioc , & 244 & sn_rcv_sdrfx, sn_rcv_sdrfy, sn_rcv_wper , sn_rcv_wnum , sn_rcv_ wstrf, &244 & sn_rcv_sdrfx, sn_rcv_sdrfy, sn_rcv_wper , sn_rcv_wnum , sn_rcv_tauoc , & 245 245 & sn_rcv_wdrag, sn_rcv_qns , sn_rcv_emp , sn_rcv_rnf , sn_rcv_cal , & 246 246 & sn_rcv_iceflx,sn_rcv_co2 , nn_cplmodel , ln_usecplmask, sn_rcv_mslp … … 291 291 WRITE(numout,*)' Mean wave period = ', TRIM(sn_rcv_wper%cldes ), ' (', TRIM(sn_rcv_wper%clcat ), ')' 292 292 WRITE(numout,*)' Mean wave number = ', TRIM(sn_rcv_wnum%cldes ), ' (', TRIM(sn_rcv_wnum%clcat ), ')' 293 WRITE(numout,*)' Stress frac adsorbed by waves = ', TRIM(sn_rcv_ wstrf%cldes ), ' (', TRIM(sn_rcv_wstrf%clcat ), ')'293 WRITE(numout,*)' Stress frac adsorbed by waves = ', TRIM(sn_rcv_tauoc%cldes ), ' (', TRIM(sn_rcv_tauoc%clcat ), ')' 294 294 WRITE(numout,*)' Neutral surf drag coefficient = ', TRIM(sn_rcv_wdrag%cldes ), ' (', TRIM(sn_rcv_wdrag%clcat ), ')' 295 295 WRITE(numout,*)' sent fields (multiple ice categories)' … … 564 564 cpl_wnum = .TRUE. 565 565 ENDIF 566 srcv(jpr_ wstrf)%clname = 'O_WStrf' ! stress fraction adsorbed by the wave567 IF( TRIM(sn_rcv_ wstrf%cldes ) == 'coupled' ) THEN568 srcv(jpr_ wstrf)%laction = .TRUE.569 cpl_ wstrf= .TRUE.566 srcv(jpr_tauoc)%clname = 'O_TauOce' ! stress fraction adsorbed by the wave 567 IF( TRIM(sn_rcv_tauoc%cldes ) == 'coupled' ) THEN 568 srcv(jpr_tauoc)%laction = .TRUE. 569 cpl_tauoc = .TRUE. 570 570 ENDIF 571 571 srcv(jpr_wdrag)%clname = 'O_WDrag' ! neutral surface drag coefficient … … 1194 1194 ! ! Stress adsorbed by waves ! 1195 1195 ! ! ========================= ! 1196 IF( srcv(jpr_ wstrf)%laction .AND. ln_tauoc ) tauoc_wave(:,:) = frcv(jpr_wstrf)%z3(:,:,1)1196 IF( srcv(jpr_tauoc)%laction .AND. ln_tauoc ) tauoc_wave(:,:) = frcv(jpr_tauoc)%z3(:,:,1) 1197 1197 1198 1198 ! Fields received by SAS when OASIS coupling -
branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r7792 r7797 43 43 LOGICAL, PUBLIC :: cpl_wper = .FALSE. 44 44 LOGICAL, PUBLIC :: cpl_wnum = .FALSE. 45 LOGICAL, PUBLIC :: cpl_ wstrf= .FALSE.45 LOGICAL, PUBLIC :: cpl_tauoc = .FALSE. 46 46 LOGICAL, PUBLIC :: cpl_wdrag = .FALSE. 47 47 … … 215 215 ENDIF 216 216 217 IF( ln_tauoc .AND. .NOT. cpl_ wstrf) THEN !== Wave induced stress ==!217 IF( ln_tauoc .AND. .NOT. cpl_tauoc ) THEN !== Wave induced stress ==! 218 218 CALL fld_read( kt, nn_fsbc, sf_tauoc ) ! read wave norm stress from external forcing 219 219 tauoc_wave(:,:) = sf_tauoc(1)%fnow(:,:,1) … … 295 295 296 296 IF( ln_tauoc ) THEN 297 IF( .NOT. cpl_ wstrf) THEN297 IF( .NOT. cpl_tauoc ) THEN 298 298 ALLOCATE( sf_tauoc(1), STAT=ierror ) !* allocate and fill sf_wave with sn_tauoc 299 299 IF( ierror > 0 ) CALL ctl_stop( 'STOP', 'sbc_wave_init: unable to allocate sf_wave structure' )
Note: See TracChangeset
for help on using the changeset viewer.