New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7809 for branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 – NEMO

Ignore:
Timestamp:
2017-03-17T15:21:06+01:00 (7 years ago)
Author:
jcastill
Message:

First implementation of the HZG wave focing/coupling branch - only ln_phioc and ln_tauoc in place. This is crashing amm7 runs with Baltic boundary conditions, but not without them.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r7797 r7809  
    11951195      !                                                      ! ========================= !   
    11961196      IF( srcv(jpr_tauoc)%laction .AND. ln_tauoc ) tauoc_wave(:,:) = frcv(jpr_tauoc)%z3(:,:,1)  
     1197       
     1198      !                                                      ! ========================= !   
     1199      !                                                      !   Wave to ocean energy    !  
     1200      !                                                      ! ========================= !   
     1201      IF( srcv(jpr_phioc)%laction .AND. ln_phioc ) THEN 
     1202         rn_crban(:,:) = 29.0 * frcv(jpr_phioc)%z3(:,:,1) 
     1203      ENDIF 
    11971204       
    11981205      !  Fields received by SAS when OASIS coupling 
Note: See TracChangeset for help on using the changeset viewer.