Changeset 6489 for trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

Timestamp:

2016-04-20T14:26:29+02:00 (8 years ago)

Author:

timgraham

Message:

#1687 fixed. Namelist changes required.

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

@@ -31 +31 @@
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
 
-   USE eosbn2, ONLY : nn_eos
+   USE eosbn2, ONLY : neos
 
    IMPLICIT NONE
@@ -175 +175 @@
       !  Compute Ekman depth from wind stress forcing.
       ! -------------------------------------------------------
-      zflageos = ( 0.5 + SIGN( 0.5, nn_eos - 1. ) ) * rau0
+      zflageos = ( 0.5 + SIGN( 0.5, neos - 1. ) ) * rau0
       DO jj = 2, jpjm1
             DO ji = fs_2, fs_jpim1