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 7422 for branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 – NEMO

Ignore:
Timestamp:
2016-12-01T18:17:41+01:00 (8 years ago)
Author:
gm
Message:

#1805 dev_INGV_UKMO_2016: improve Stokes drift (including dynspg_ts , Stokes-Coriolis force , and GLS surface roughness

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r7359 r7422  
    11301130      !                                                      !       Stokes drift u      ! 
    11311131      !                                                      ! ========================= !  
    1132          IF( srcv(jpr_sdrftx)%laction ) zusd2dt(:,:) = frcv(jpr_sdrftx)%z3(:,:,1) 
     1132         IF( srcv(jpr_sdrftx)%laction ) ut0sd(:,:) = frcv(jpr_sdrftx)%z3(:,:,1) 
    11331133      ! 
    11341134      !                                                      ! ========================= !  
    11351135      !                                                      !       Stokes drift v      ! 
    11361136      !                                                      ! ========================= !  
    1137          IF( srcv(jpr_sdrfty)%laction ) zvsd2dt(:,:) = frcv(jpr_sdrfty)%z3(:,:,1) 
     1137         IF( srcv(jpr_sdrfty)%laction ) vt0sd(:,:) = frcv(jpr_sdrfty)%z3(:,:,1) 
    11381138      ! 
    11391139      !                                                      ! ========================= !  
    … …  
    11451145      !                                                      !  Significant wave height  ! 
    11461146      !                                                      ! ========================= !  
    1147          IF( srcv(jpr_hsig)%laction ) swh(:,:) = frcv(jpr_hsig)%z3(:,:,1) 
     1147         IF( srcv(jpr_hsig)%laction ) hsw(:,:) = frcv(jpr_hsig)%z3(:,:,1) 
    11481148      ! 
    11491149      !                                                      ! ========================= !  
    … …  
    11561156                                                                    .OR. srcv(jpr_hsig)%laction ) THEN 
    11571157            CALL sbc_stokes() 
    1158             IF( ln_zdfqiao .AND. .NOT. srcv(jpr_wnum)%laction ) CALL sbc_qiao() 
    1159          ENDIF 
    1160          IF( ln_zdfqiao .AND. srcv(jpr_wnum)%laction ) CALL sbc_qiao() 
     1158         ENDIF 
    11611159      ENDIF 
    11621160      !                                                      ! ========================= !  
Note: See TracChangeset for help on using the changeset viewer.