Ignore:
Timestamp:
2013-11-22T13:12:59+01:00 (7 years ago)
Author:
cetlod
Message:

dev_MERGE_2013 : fix on argument call of eos

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r4245 r4313  
    761761            tsb(:,:,:,:) = tsn(:,:,:,:)               ! Update before fields 
    762762 
    763             CALL eos( tsb, rhd, rhop )                ! Before potential and in situ densities 
     763            CALL eos( tsb, rhd, rhop, gdept_0(:,:,:) )                ! Before potential and in situ densities 
    764764          
    765765            IF( ln_zps .AND. .NOT. lk_c1d ) & 
     
    769769 
    770770#if defined key_zdfkpp 
    771             CALL eos( tsn, rhd )                      ! Compute rhd 
     771            CALL eos( tsn, rhd, fsdept_n(:,:,:) )                      ! Compute rhd 
    772772#endif 
    773773 
Note: See TracChangeset for help on using the changeset viewer.