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

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/IOM/restart.F90 (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -228 +228 @@
          CALL iom_get( numror, jpdom_autoglo, 'rhop'   , rhop    )   ! now    potential density
       ELSE
-         CALL eos    ( tsn, rhd, rhop )   
+         CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) )   
       ENDIF
 #if defined key_zdfkpp
@@ -234 +234 @@
          CALL iom_get( numror, jpdom_autoglo, 'rhd'    , rhd     )   ! now    in situ density anomaly
       ELSE
-         CALL eos( tsn, rhd )   ! compute rhd
+         CALL eos( tsn, rhd, fsdept_n(:,:,:) )   ! compute rhd
       ENDIF
 #endif