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 8553 – NEMO

Changeset 8553


Ignore:
Timestamp:
2017-09-21T13:09:26+02:00 (7 years ago)
Author:
jcastill
Message:

Cap the value of tauoc as recieved via coupling or via forcing

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

    r8109 r8553  
    12001200      !                                                      ! Stress adsorbed by waves  !  
    12011201      !                                                      ! ========================= !   
    1202       IF( srcv(jpr_tauoc)%laction .AND. ln_tauoc ) tauoc_wave(:,:) = frcv(jpr_tauoc)%z3(:,:,1)  
     1202      IF( srcv(jpr_tauoc)%laction .AND. ln_tauoc ) THEN 
     1203         tauoc_wave(:,:) = frcv(jpr_tauoc)%z3(:,:,1) 
     1204         ! cap the value of tauoc 
     1205         WHERE(tauoc_wave <   0.0 ) tauoc_wave = 1.0 
     1206         WHERE(tauoc_wave > 100.0 ) tauoc_wave = 1.0 
     1207      ENDIF 
    12031208       
    12041209      !                                                      ! ========================= !   
  • branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r7906 r8553  
    261261         CALL fld_read( kt, nn_fsbc, sf_tauoc )          ! read wave norm stress from external forcing 
    262262         tauoc_wave(:,:) = sf_tauoc(1)%fnow(:,:,1) 
    263          WHERE( tauoc_wave < -100.0 ) tauoc_wave = 1.0 
    264          WHERE( tauoc_wave >  100.0 ) tauoc_wave = 1.0 
     263         WHERE( tauoc_wave <   0.0 ) tauoc_wave = 1.0 
     264         WHERE( tauoc_wave > 100.0 ) tauoc_wave = 1.0 
    265265      ENDIF 
    266266 
Note: See TracChangeset for help on using the changeset viewer.