Changeset 8832
- Timestamp:
- 2017-11-28T13:40:45+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8789_sbc/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r8829 r8832 48 48 PUBLIC tra_asm_inc !: Apply the tracer (T and S) increments 49 49 PUBLIC dyn_asm_inc !: Apply the dynamic (u and v) increments 50 PUBLIC ssh_asm_ inc !: Apply the SSH increment50 PUBLIC ssh_asm_div !: Apply the SSH divergence 51 51 PUBLIC seaice_asm_inc !: Apply the seaice increment 52 52 … … 819 819 !!---------------------------------------------------------------------- 820 820 ! 821 #if defined key_asminc 821 822 CALL ssh_asm_inc( kt ) !== (calculate increments) 822 823 ! … … 832 833 CALL wrk_dealloc( jpi,jpj, ztim) 833 834 ENDIF 835 #endif 834 836 ! 835 837 END SUBROUTINE ssh_asm_div
Note: See TracChangeset
for help on using the changeset viewer.