Symbol Description Uses
aim_drag Holds AIM surface drag term : C_drag*Rho*|V| ( kg.m-2.s-1 ) 20



File Line number Procedure Code
./pkg/aim_v23/AIM2DYN.h 18 NO PROCEDURE
     &                   aim_drag,
./pkg/aim_v23/AIM2DYN.h 22 NO PROCEDURE
      _RL  aim_drag  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/aim_v23/aim_aim2dyn.F 89 AIM_AIM2DYN
         aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid)
./pkg/aim_v23/aim_do_physics.F 225 AIM_DO_PHYSICS
      _EXCH_XY_RL( aim_drag, myThid )
./pkg/aim_v23/aim_tendency_apply.F 111 AIM_TENDENCY_APPLY_U
     &     -( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 133 AIM_TENDENCY_APPLY_U
     &      -( (1.-maskC(i-1,j,k-1,bi,bj))*aim_drag(i-1,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 134 AIM_TENDENCY_APPLY_U
     &        +(1.-maskC( i ,j,k-1,bi,bj))*aim_drag( i ,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 299 AIM_TENDENCY_APPLY_V
     &     -( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 321 AIM_TENDENCY_APPLY_V
     &     -( (1.-maskC(i,j-1,k-1,bi,bj))*aim_drag(i,j-1,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 322 AIM_TENDENCY_APPLY_V
     &       +(1.-maskC(i, j ,k-1,bi,bj))*aim_drag(i, j ,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 100 ATM_STORE_AIM_WNDSTR
     &      ( aim_drag(i,j-1,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 102 ATM_STORE_AIM_WNDSTR
     &      + aim_drag(i, j ,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 119 ATM_STORE_AIM_WNDSTR
     &      ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 131 ATM_STORE_AIM_WNDSTR
     &      ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 85 ATM_STORE_AIM_WNDSTR
     &      ( aim_drag(i-1,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 87 ATM_STORE_AIM_WNDSTR
     &      + aim_drag( i ,j,bi,bj)