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

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

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90

@@ -98 +98 @@
       ztsn(:,:,:,jp_tem) = tsn(:,:,:,jp_tem)                    ! thermosteric ssh
       ztsn(:,:,:,jp_sal) = sn0(:,:,:)
-      CALL eos( ztsn, zrhd )                       ! now in situ density using initial salinity
+      CALL eos( ztsn, zrhd, fsdept_n(:,:,:) )                       ! now in situ density using initial salinity
       !
       zbotpres(:,:) = 0._wp                        ! no atmospheric surface pressure, levitating sea-ice
@@ -112 +112 @@
       
       !                                         ! steric sea surface height
-      CALL eos( tsn, zrhd, zrhop )                 ! now in situ and potential density
+      CALL eos( tsn, zrhd, zrhop, fsdept_n(:,:,:) )                 ! now in situ and potential density
       zrhop(:,:,jpk) = 0._wp
       CALL iom_put( 'rhop', zrhop )