Changeset 6851 for branches/2016/dev_r6325_SIMPLIF_1/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

Timestamp:

2016-08-08T10:34:39+02:00 (8 years ago)

Author:

gm

Message:

#1629: SIMPLIF_1: S-EOS + DOC and phasing with trunk rev6826

File:

• branches/2016/dev_r6325_SIMPLIF_1/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90 (modified) (2 diffs)

branches/2016/dev_r6325_SIMPLIF_1/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
+!!gm small bug : boussinesq equation of the ocean model
+!!gm             therefore rau0 should be used not the potential surface density...
+!!gm             ===>>>>   zrhos = rau0  in the epression below, and the rsmall is useless in zustar calculation
+      zflageos = ( 0.5 + SIGN( 0.5, neos - 1. ) ) * rau0
       DO jj = 2, jpjm1
             DO ji = fs_2, fs_jpim1