Changeset 8832


Ignore:
Timestamp:
2017-11-28T13:40:45+01:00 (3 years ago)
Author:
charris
Message:

Fix for compilation problem without key_asminc.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8789_sbc/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r8829 r8832  
    4848   PUBLIC   tra_asm_inc    !: Apply the tracer (T and S) increments 
    4949   PUBLIC   dyn_asm_inc    !: Apply the dynamic (u and v) increments 
    50    PUBLIC   ssh_asm_inc    !: Apply the SSH increment 
     50   PUBLIC   ssh_asm_div    !: Apply the SSH divergence 
    5151   PUBLIC   seaice_asm_inc !: Apply the seaice increment 
    5252 
     
    819819      !!---------------------------------------------------------------------- 
    820820      !  
     821#if defined key_asminc 
    821822      CALL ssh_asm_inc( kt ) !==   (calculate increments) 
    822823      ! 
     
    832833         CALL wrk_dealloc( jpi,jpj, ztim) 
    833834      ENDIF 
     835#endif 
    834836      ! 
    835837   END SUBROUTINE ssh_asm_div 
Note: See TracChangeset for help on using the changeset viewer.