Changeset 4313 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/ASM

Timestamp:

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

Author:

cetlod

Message:

dev_MERGE_2013 : fix on argument call of eos

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -761 +761 @@
             tsb(:,:,:,:) = tsn(:,:,:,:)               ! Update before fields
 
-            CALL eos( tsb, rhd, rhop )                ! Before potential and in situ densities
+            CALL eos( tsb, rhd, rhop, gdept_0(:,:,:) )                ! Before potential and in situ densities
          
             IF( ln_zps .AND. .NOT. lk_c1d ) &
@@ -769 +769 @@
 
 #if defined key_zdfkpp
-            CALL eos( tsn, rhd )                      ! Compute rhd
+            CALL eos( tsn, rhd, fsdept_n(:,:,:) )                      ! Compute rhd
 #endif