Changeset 3689 for trunk/NEMOGCM/NEMO
- Timestamp:
- 2012-11-27T17:19:49+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r3294 r3689 182 182 #if defined key_bdy 183 183 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 187 193 ! ! Sea Surface Height at u-,v- and f-points (vvl case only) 188 194 IF( lk_vvl ) THEN ! (required only in key_vvl case) … … 199 205 CALL lbc_lnk( sshu_a, 'U', 1. ) ; CALL lbc_lnk( sshv_a, 'V', 1. ) ! Boundaries conditions 200 206 ENDIF 201 202 #if defined key_asminc203 ! ! Include the IAU weighted SSH increment204 IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN205 CALL ssh_asm_inc( kt )206 ssha(:,:) = ssha(:,:) + z2dt * ssh_iau(:,:)207 ENDIF208 #endif209 207 210 208 ! !------------------------------!
Note: See TracChangeset
for help on using the changeset viewer.