00001 module def_metric_on_SFC_WL 00002 implicit none 00003 real(8), pointer :: psif(:,:,:), alphf(:,:,:) 00004 real(8), pointer :: bvxuf(:,:,:), bvyuf(:,:,:), bvzuf(:,:,:), 00005 bvxdf(:,:,:), bvydf(:,:,:), bvzdf(:,:,:) 00006 real(8), pointer :: hxxuf(:,:,:), hxyuf(:,:,:), hxzuf(:,:,:), 00007 hyyuf(:,:,:), hyzuf(:,:,:), hzzuf(:,:,:), & 00008 hxxdf(:,:,:), hxydf(:,:,:), hxzdf(:,:,:), & 00009 hyydf(:,:,:), hyzdf(:,:,:), hzzdf(:,:,:) 00010 end module def_metric_on_SFC_WL