Changeset 12784


Ignore:
Timestamp:
2020-04-20T20:26:12+02:00 (6 months ago)
Author:
rrenshaw
Message:

fix for profiles

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

Legend:

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

    r11277 r12784  
    1212   !!             3.6  ! 2013-11  (A. Coward) Update for z-tilde compatibility 
    1313   !!              -   ! 2016-12  (G. Madec, E. Clementi) update for Stoke-Drift divergence 
     14   !!              -   ! 2020-04  (R. King) RJR: included Rob's SLA fix 
     15   !!                              https://code.metoffice.gov.uk/trac/utils/ticket/261 
    1416   !!--------------------------------------------------------------------- 
    1517#if defined key_dynspg_ts   ||   defined key_esopa 
     
    4951   USE agrif_opa_interp ! agrif 
    5052#endif 
    51 #if defined key_asminc    
    52    USE asminc          ! Assimilation increment 
    53 #endif 
    5453 
    5554   IMPLICIT NONE 
     
    470469                &                        + fwfisf(:,:) + fwfisf_b(:,:)                     ) 
    471470      ENDIF 
    472 #if defined key_asminc 
    473       !                                         ! Include the IAU weighted SSH increment 
    474       IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN 
    475          zssh_frc(:,:) = zssh_frc(:,:) - ssh_iau(:,:) 
    476       ENDIF 
    477 #endif 
    478471      !                                   !* Fill boundary data arrays with AGRIF 
    479472      !                                   ! ------------------------------------- 
  • branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis4/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r11639 r12784  
    648648      IF( numdct_salt     /= -1 )   CLOSE( numdct_salt     )   ! salt transports 
    649649      IF( numdct_NOOS     /= -1 )   CLOSE( numdct_NOOS     )   ! NOOS transports 
     650      IF( numdct_NOOS_h /= -1 )   CLOSE( numdct_NOOS_h )   ! NOOS transports 
     651      IF( numdct_in /= -1 )   CLOSE( numdct_in )   ! NOOS transports 
    650652 
    651653      ! 
Note: See TracChangeset for help on using the changeset viewer.