Changeset 3689


Ignore:
Timestamp:
2012-11-27T17:19:49+01:00 (9 years ago)
Author:
gm
Message:

trunk: #807 : ASSIM: bug in sshwzv.F90 wrong place for ssha update in vvl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r3294 r3689  
    182182#if defined key_bdy 
    183183      ssha(:,:) = ssha(:,:) * bdytmask(:,:) 
    184       CALL lbc_lnk( ssha, 'T', 1. )                 ! absolutly compulsory !! (jmm) 
    185 #endif 
    186  
     184      CALL lbc_lnk( ssha, 'T', 1. )                    ! absolutly compulsory !! (jmm) 
     185#endif 
     186#if defined key_asminc 
     187      !                                                ! Include the IAU weighted SSH increment 
     188      IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN 
     189         CALL ssh_asm_inc( kt ) 
     190         ssha(:,:) = ssha(:,:) + z2dt * ssh_iau(:,:) 
     191      ENDIF 
     192#endif 
    187193      !                                                ! Sea Surface Height at u-,v- and f-points (vvl case only) 
    188194      IF( lk_vvl ) THEN                                ! (required only in key_vvl case) 
     
    199205         CALL lbc_lnk( sshu_a, 'U', 1. )   ;   CALL lbc_lnk( sshv_a, 'V', 1. )      ! Boundaries conditions 
    200206      ENDIF 
    201        
    202 #if defined key_asminc 
    203       !                                                ! Include the IAU weighted SSH increment 
    204       IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN 
    205          CALL ssh_asm_inc( kt ) 
    206          ssha(:,:) = ssha(:,:) + z2dt * ssh_iau(:,:) 
    207       ENDIF 
    208 #endif 
    209207 
    210208      !                                           !------------------------------! 
Note: See TracChangeset for help on using the changeset viewer.