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 10190 for NEMO/trunk/src/OCE/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2018-10-12T14:50:10+02:00 (5 years ago)
Author:
lovato
Message:

Implement correction to sbcblk_algo_ncar for wave coupling (see #2014)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcmod.F90

    r10068 r10190  
    157157         WRITE(numout,*) '               wave modified ocean stress component ln_tauw       = ', ln_tauw 
    158158         WRITE(numout,*) '               Stokes coriolis term                 ln_stcor      = ', ln_stcor 
    159          WRITE(numout,*) '               neutral drag coefficient (CORE, MFS) ln_cdgw       = ', ln_cdgw 
    160       ENDIF 
    161       ! 
     159         WRITE(numout,*) '               neutral drag coefficient (CORE,NCAR) ln_cdgw       = ', ln_cdgw 
     160      ENDIF 
     161      ! 
     162      IF( .NOT.ln_wave ) THEN 
     163         ln_sdw = .false. ; ln_cdgw = .false. ; ln_tauwoc = .false. ; ln_tauw = .false. ; ln_stcor = .false. 
     164      ENDIF  
    162165      IF( ln_sdw ) THEN 
    163166         IF( .NOT.(nn_sdrift==jp_breivik_2014 .OR. nn_sdrift==jp_li_2017 .OR. nn_sdrift==jp_peakfr) ) & 
Note: See TracChangeset for help on using the changeset viewer.