Changeset 7794 for branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2017-03-14T17:24:44+01:00 (7 years ago)

Author:

jcastill

Message:

Forgot to change one variable name in last commit

File:

• branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

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

@@ -564 +564 @@
          cpl_wnum = .TRUE. 
       ENDIF 
-      srcv(jpr_tauoc)%clname = 'O_WStrf'     ! stress fraction adsorbed by the wave 
+      srcv(jpr_tauoc)%clname = 'O_TauOce'     ! stress fraction adsorbed by the wave 
       IF( TRIM(sn_rcv_tauoc%cldes ) == 'coupled' )  THEN 
          srcv(jpr_tauoc)%laction = .TRUE.