- Timestamp:
- 2018-11-21T11:25:53+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcmod.F90
r10297 r10345 160 160 WRITE(numout,*) ' wave modified ocean stress component ln_tauw = ', ln_tauw 161 161 WRITE(numout,*) ' Stokes coriolis term ln_stcor = ', ln_stcor 162 WRITE(numout,*) ' neutral drag coefficient (CORE, MFS) ln_cdgw = ', ln_cdgw 163 ENDIF 164 ! 162 WRITE(numout,*) ' neutral drag coefficient (CORE,NCAR) ln_cdgw = ', ln_cdgw 163 ENDIF 164 ! 165 IF( .NOT.ln_wave ) THEN 166 ln_sdw = .false. ; ln_cdgw = .false. ; ln_tauwoc = .false. ; ln_tauw = .false. ; ln_stcor = .false. 167 ENDIF 165 168 IF( ln_sdw ) THEN 166 169 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.