Changeset 7950


Ignore:
Timestamp:
2017-04-21T17:36:40+02:00 (3 years ago)
Author:
jwhile
Message:

Merged in /data/users/frwe/pyWorkspace/dev_r5518_pcbias

Location:
branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/step.F90

    r7941 r7950  
    285285                             CALL tra_nxt( kstp )                ! tracer fields at next time step 
    286286                             CALL eos    ( tsa, rhd, rhop, fsdept_n(:,:,:) )  ! Time-filtered in situ density for hpg computation 
     287                             CALL lbc_lnk( rhd, 'T', 1.0_wp ) 
    287288            IF( ln_zps .AND. .NOT. ln_isfcav)                                & 
    288289               &             CALL zps_hde    ( kstp, jpts, tsa, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
     
    295296         IF ( .NOT. lk_dynspg_ts ) THEN                     ! eos already called in time-split case 
    296297                             CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) )  ! now in situ density for hpg computation 
     298                             CALL lbc_lnk( rhd, 'T', 1.0_wp ) 
    297299         IF( ln_zps .AND. .NOT. ln_isfcav)                                   & 
    298300               &             CALL zps_hde    ( kstp, jpts, tsn, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
Note: See TracChangeset for help on using the changeset viewer.