Changeset 4313 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2013-11-22T13:12:59+01:00 (10 years ago)

Author:

cetlod

Message:

dev_MERGE_2013 : fix on argument call of eos

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -112 +112 @@
           ! Note that the computation of vertical velocity above, hence "after" sea level
           ! is necessary to compute momentum advection for the rhs of barotropic loop:
-                                  CALL eos    ( tsn, rhd, rhop )                 ! now in situ density for hpg computation
+                                  CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) )                 ! now in situ density for hpg computation
           IF( ln_zps      )       CALL zps_hde( kstp, jpts, tsn, gtsu, gtsv,  &  ! zps: now hor. derivative
                 &                                          rhd, gru , grv  )     ! of t, s, rd at the last ocean level