Changeset 7679


Ignore:
Timestamp:
2017-02-14T11:42:21+01:00 (4 years ago)
Author:
isabella
Message:

added changes to be consistent with go6

Location:
branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

    r6337 r7679  
    113113      &   bias_wrt 
    114114 
    115   
     115   !! * Substitutions needed to have the variable fsdept_n 
     116#  include "domzgr_substitute.h90" 
    116117   !! * Shared variables 
    117118   !! * Private module variables 
     
    778779      ENDIF 
    779780 
    780       CALL eos( tsw, rhd_pc, rhop ) 
     781      CALL eos( tsw, rhd_pc, rhop , fsdept_n(:,:,:)) 
    781782       
    782783      ! is this needed? 
  • branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/step.F90

    r6411 r7679  
    275275            IF( ln_sto_eos ) CALL sto_pts( tsn )                 ! Random T/S fluctuations 
    276276                             CALL eos    ( tsa, rhd, rhop, fsdept_n(:,:,:) )  ! Time-filtered in situ density for hpg computation 
     277                             CALL lbc_lnk( rhd, 'T', 1.0_wp ) 
    277278            IF( ln_zps .AND. .NOT. ln_isfcav)                                & 
    278279               &             CALL zps_hde    ( kstp, jpts, tsa, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
     
    287288            IF( ln_sto_eos ) CALL sto_pts( tsn )    ! Random T/S fluctuations 
    288289                             CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) )  ! now in situ density for hpg computation 
     290                             CALL lbc_lnk( rhd, 'T', 1.0_wp ) 
    289291         IF( ln_zps .AND. .NOT. ln_isfcav)                                   & 
    290292               &             CALL zps_hde    ( kstp, jpts, tsn, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
Note: See TracChangeset for help on using the changeset viewer.