Changeset 12362


Ignore:
Timestamp:
2020-02-10T10:52:54+01:00 (8 weeks ago)
Author:
kingr
Message:

Minor edit to allow merging of obs branch with (amm15 and GO6) package branches.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r12355 r12362  
    454454      ELSE 
    455455         zssh_frc(:,:) = zraur * z1_2 * (  emp(:,:) + emp_b(:,:) - rnf(:,:) - rnf_b(:,:)   & 
    456                 &                        + rdivisf * ( fwfisf(:,:) + fwfisf_b(:,:) )       ) 
    457       ENDIF 
    458       !                                   !* Fill boundary data arrays for AGRIF 
    459       !                                   ! ------------------------------------ 
     456                &                        + fwfisf(:,:) + fwfisf_b(:,:)                     ) 
     457      ENDIF 
     458      !                                   !* Fill boundary data arrays with AGRIF 
     459      !                                   ! ------------------------------------- 
    460460#if defined key_agrif 
    461461         IF( .NOT.Agrif_Root() ) CALL agrif_dta_ts( kt ) 
Note: See TracChangeset for help on using the changeset viewer.