Changeset 14133 for NEMO/trunk/tests/VORTEX

Timestamp:

2020-12-08T14:25:34+01:00 (4 years ago)

Author:

jchanut

Message:

Now rn_a0 is public, use it in test cases instead of harcoded values

File:

• NEMO/trunk/tests/VORTEX/MY_SRC/usrdef_istate.F90 (modified) (2 diffs)

NEMO/trunk/tests/VORTEX/MY_SRC/usrdef_istate.F90

@@ -17 +17 @@
    USE dom_oce , ONLY : glamt, gphit, glamu, gphiu, glamv, gphiv  
    USE phycst         ! physical constants
+   USE eosbn2  , ONLY : rn_a0
    !
    USE in_out_manager ! I/O manager
@@ -85 +86 @@
                   & * EXP(-(zx**2+zy**2)/zlambda**2) / (grav*(zH -1._wp + EXP(-zH)));
             ENDIF
-            pts(ji,jj,jk,jp_tem) = (20._wp + (rho0-zrho1) / 0.28_wp) * ptmask(ji,jj,jk)
+            pts(ji,jj,jk,jp_tem) = (20._wp + (rho0-zrho1) / rn_a0 ) * ptmask(ji,jj,jk)
          END DO
       END_2D