Changeset 6625 for branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/NEMO/NST_SRC/agrif_lim2_update.F90
- Timestamp:
- 2016-05-26T11:08:07+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/NEMO/NST_SRC/agrif_lim2_update.F90
r6617 r6625 52 52 INTEGER, INTENT(in) :: kt 53 53 !! 54 REAL(wp), DIMENSION(jpi,jpj) :: zvel 55 REAL(wp), DIMENSION(jpi,jpj,7):: zadv 54 56 !!---------------------------------------------------------------------- 55 57 ! … … 58 60 Agrif_UseSpecialValueInUpdate = .TRUE. 59 61 Agrif_SpecialValueFineGrid = 0. 62 60 63 # if defined TWO_WAY 61 64 IF( MOD(nbcline,nbclineupdate) == 0) THEN 62 CALL Agrif_Update_Variable( adv_ice_id , procname = update_adv_ice )63 CALL Agrif_Update_Variable( u_ice_id , procname = update_u_ice )64 CALL Agrif_Update_Variable( v_ice_id , procname = update_v_ice )65 ELSE 66 CALL Agrif_Update_Variable( adv_ice_id , locupdate=(/0,2/), procname = update_adv_ice )67 CALL Agrif_Update_Variable( u_ice_id , locupdate=(/0,1/), procname = update_u_ice )68 CALL Agrif_Update_Variable( v_ice_id , locupdate=(/0,1/), procname = update_v_ice )65 CALL Agrif_Update_Variable( zadv , adv_ice_id , procname = update_adv_ice ) 66 CALL Agrif_Update_Variable( zvel , u_ice_id , procname = update_u_ice ) 67 CALL Agrif_Update_Variable( zvel , v_ice_id , procname = update_v_ice ) 68 ELSE 69 CALL Agrif_Update_Variable( zadv , adv_ice_id , locupdate=(/0,2/), procname = update_adv_ice ) 70 CALL Agrif_Update_Variable( zvel , u_ice_id , locupdate=(/0,1/), procname = update_u_ice ) 71 CALL Agrif_Update_Variable( zvel , v_ice_id , locupdate=(/0,1/), procname = update_v_ice ) 69 72 ENDIF 70 73 # endif
Note: See TracChangeset
for help on using the changeset viewer.