Changeset 2002 for branches/dev_1784_ASM/NEMO/OPA_SRC/DYN/sshwzv.F90

Timestamp:

2010-07-09T14:19:55+02:00 (14 years ago)

Author:

djlea

Message:

Adding ASM assimilation code

File:

• branches/dev_1784_ASM/NEMO/OPA_SRC/DYN/sshwzv.F90 (modified) (3 diffs)

branches/dev_1784_ASM/NEMO/OPA_SRC/DYN/sshwzv.F90

@@ -5 +5 @@
    !!==============================================================================
    !! History :  3.1  !  2009-02  (G. Madec, M. Leclair)  Original code
+   !!            3.3  !  2010-05  (K. Mogensen, A. Weaver, M. Martin, D. Lea) Assimilation interface
    !!----------------------------------------------------------------------
 
@@ -27 +28 @@
    USE diaar5, ONLY :   lk_diaar5
    USE iom
+   USE asminc          ! Assimilation increment
 
    IMPLICIT NONE
@@ -187 +189 @@
       ENDIF
 
+! Include the IAU weighted SSH increment
+      IF( ( lk_asminc ).AND.( ln_sshinc ).AND.( ln_asmiau ) ) THEN
+         CALL ssh_asm_inc( kt )
+         ssha(:,:) = ssha(:,:) + z2dt * ssh_iau(:,:)
+      ENDIF
+
       !                                           !------------------------------!
       !                                           !     Now Vertical Velocity    !