- Timestamp:
- 2012-11-27T15:42:24+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90
r3625 r3680 32 32 USE oce , ONLY : snwice_mass, snwice_mass_b 33 33 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 34 #if defined key_agrif 35 USE agrif_lim2_interp ! nesting 36 #endif 34 37 35 38 IMPLICIT NONE … … 148 151 zpice(:,:) = ssh_m(:,:) 149 152 ENDIF 153 #if defined key_agrif 154 ! load the boundary value of velocity in special array zuive and zvice 155 CALL agrif_rhg_lim2_load 156 #endif 150 157 151 158 ! Ice mass, ice strength, and wind stress at the center | … … 552 559 CALL lbc_lnk( zv_n(:,1:jpj), 'I', -1. ) 553 560 561 #if defined key_agrif 562 ! copy the boundary value from u_ice_nst and v_ice_nst to u_ice and v_ice 563 ! before next interations 564 CALL agrif_rhg_lim2(zu_n,zv_n) 565 #endif 566 554 567 ! Test of Convergence 555 568 DO jj = k_j1+1 , k_jpj-1
Note: See TracChangeset
for help on using the changeset viewer.