Changeset 11486

Timestamp:

2019-08-30T16:57:21+02:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: bug on top drag coeficient value (ticket #2142)

Location:

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF

Files:

• isfcavgam.F90 (modified) (1 diff)
• isfstp.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcavgam.F90

@@ -73 +73 @@
          pgs(:,:) = rn_gammas0
       CASE ( 'ad15' ) ! gamma is proportional to u*
-         CALL gammats_AD15 (              zutbl, zvtbl, rCdU_top, r_ke0_top,               pgt, pgs )
+         CALL gammats_AD15 (              zutbl, zvtbl, rCd0_top, r_ke0_top,               pgt, pgs )
       CASE ( 'hj99' ) ! gamma depends of stability of boundary layer and u*
-         CALL gammats_HJ99 (pttbl, pstbl, zutbl, zvtbl, rCdU_top, r_ke0_top, pqoce, pqfwf, pgt, pgs )
+         CALL gammats_HJ99 (pttbl, pstbl, zutbl, zvtbl, rCd0_top, r_ke0_top, pqoce, pqfwf, pgt, pgs )
       CASE DEFAULT
          CALL ctl_stop('STOP','method to compute gamma (cn_gammablk) is unknown (should not see this)')

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfstp.F90

@@ -79 +79 @@
          CALL isf_cav( kt, risf_cav_tsc, fwfisf_cav)
          !
-         ! write restart variables (qoceisf, qhcisf, fwfisf for now and before)
+         ! write restart variables (risf_cav_tsc, fwfisf for now and before)
          IF (lrst_oce) CALL isfrst_write(kt, 'cav', risf_cav_tsc, fwfisf_cav)
          !