- Timestamp:
- 2017-12-05T14:52:57+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90
r8898 r8901 38 38 ! 39 39 #if defined TWO_WAY 40 IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update tracers from grid Number',Agrif_Fixed() , 'nbcline', nbcline40 IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update tracers from grid Number',Agrif_Fixed() 41 41 42 42 Agrif_UseSpecialValueInUpdate = .TRUE. 43 43 Agrif_SpecialValueFineGrid = 0. 44 44 ! 45 IF (MOD(nbcline,nbclineupdate) == 0) THEN46 45 # if ! defined DECAL_FEEDBACK 47 CALL Agrif_Update_Variable(tsn_id, procname=updateTS) 46 CALL Agrif_Update_Variable(tsn_id, procname=updateTS) 47 ! near boundary update: 48 ! CALL Agrif_Update_Variable(tsn_id,locupdate=(/0,2/), procname=updateTS) 48 49 # else 49 CALL Agrif_Update_Variable(tsn_id, locupdate=(/1,0/),procname=updateTS) 50 CALL Agrif_Update_Variable(tsn_id, locupdate=(/1,0/),procname=updateTS) 51 ! near boundary update: 52 ! CALL Agrif_Update_Variable(tsn_id,locupdate=(/1,2/), procname=updateTS) 50 53 # endif 51 ELSE52 # if ! defined DECAL_FEEDBACK53 CALL Agrif_Update_Variable(tsn_id,locupdate=(/0,2/), procname=updateTS)54 # else55 CALL Agrif_Update_Variable(tsn_id,locupdate=(/1,2/), procname=updateTS)56 # endif57 ENDIF58 54 ! 59 55 Agrif_UseSpecialValueInUpdate = .FALSE. … … 71 67 ! 72 68 #if defined TWO_WAY 73 IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update momentum from grid Number',Agrif_Fixed() , 'nbcline', nbcline69 IF (lwp.AND.lk_agrif_debug) Write(*,*) 'Update momentum from grid Number',Agrif_Fixed() 74 70 75 71 Agrif_UseSpecialValueInUpdate = .FALSE. 76 72 Agrif_SpecialValueFineGrid = 0. 77 73 ! 78 IF (mod(nbcline,nbclineupdate) == 0) THEN79 74 # if ! defined DECAL_FEEDBACK 80 CALL Agrif_Update_Variable(un_update_id,procname = updateU) 81 CALL Agrif_Update_Variable(vn_update_id,procname = updateV) 75 CALL Agrif_Update_Variable(un_update_id,procname = updateU) 76 CALL Agrif_Update_Variable(vn_update_id,procname = updateV) 77 ! near boundary update: 78 ! CALL Agrif_Update_Variable(un_update_id,locupdate=(/0,1/),procname = updateU) 79 ! CALL Agrif_Update_Variable(vn_update_id,locupdate=(/0,1/),procname = updateV) 82 80 # else 83 CALL Agrif_Update_Variable(un_update_id,locupdate1=(/0,-1/),locupdate2=(/1,-2/),procname = updateU) 84 CALL Agrif_Update_Variable(vn_update_id,locupdate1=(/1,-2/),locupdate2=(/0,-1/),procname = updateV) 81 CALL Agrif_Update_Variable(un_update_id,locupdate1=(/0,-1/),locupdate2=(/1,-2/),procname = updateU) 82 CALL Agrif_Update_Variable(vn_update_id,locupdate1=(/1,-2/),locupdate2=(/0,-1/),procname = updateV) 83 ! near boundary update: 84 ! CALL Agrif_Update_Variable(un_update_id,locupdate1=(/0,1/),locupdate2=(/1,1/),procname = updateU) 85 ! CALL Agrif_Update_Variable(vn_update_id,locupdate1=(/1,1/),locupdate2=(/0,1/),procname = updateV) 85 86 # endif 86 ELSE87 # if ! defined DECAL_FEEDBACK88 CALL Agrif_Update_Variable(un_update_id,locupdate=(/0,1/),procname = updateU)89 CALL Agrif_Update_Variable(vn_update_id,locupdate=(/0,1/),procname = updateV)90 # else91 CALL Agrif_Update_Variable(un_update_id,locupdate1=(/0,1/),locupdate2=(/1,1/),procname = updateU)92 CALL Agrif_Update_Variable(vn_update_id,locupdate1=(/1,1/),locupdate2=(/0,1/),procname = updateV)93 # endif94 ENDIF95 87 96 88 # if ! defined DECAL_FEEDBACK … … 101 93 CALL Agrif_Update_Variable(e2v_id,locupdate1=(/1,-2/),locupdate2=(/0,-1/),procname = updateV2d) 102 94 # endif 103 !104 nbcline = nbcline + 1105 95 ! 106 96 # if ! defined DECAL_FEEDBACK
Note: See TracChangeset
for help on using the changeset viewer.