--- MITgcm_contrib/dgoldberg/streamice/STREAMICE_CG.h 2012/03/29 15:59:21 1.1 +++ MITgcm_contrib/dgoldberg/streamice/STREAMICE_CG.h 2014/08/27 19:29:12 1.3 @@ -1,13 +1,16 @@ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/dgoldberg/streamice/STREAMICE_CG.h,v 1.3 2014/08/27 19:29:12 dgoldberg Exp $ +C $Name: $ + C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| #ifdef ALLOW_STREAMICE - COMMON /STREAMICE_CG_FIELDS_RL/ + COMMON /STREAMICE_CG_FIELDS_RL/ & taudx_SI, taudy_SI, & Ru_SI, Rv_SI, Zu_SI, Zv_SI, & DIAGu_SI, DIAGv_SI, RHSu_SI, RHSv_SI, & ubd_SI, vbd_SI, Au_SI, Av_SI, Du_SI, Dv_SI, - & u_old_SI, v_old_SI, Zu_old_SI, Zv_old_SI, + & u_old_SI, v_old_SI, Zu_old_SI, Zv_old_SI, & Ru_old_SI, Rv_old_SI, & k1AtC_str, & k2AtC_str, @@ -29,15 +32,15 @@ _RL Au_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL Av_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL Du_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL Dv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL u_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL v_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL Zu_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL Zv_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - _RL Ru_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) + _RL Dv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) + _RL u_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) + _RL v_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) + _RL Zu_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) + _RL Zv_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) + _RL Ru_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL Rv_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) - COMMON /STREAMICE_CG_FIELDS2_RL/ + COMMON /STREAMICE_CG_FIELDS2_RL/ & streamice_cg_A1, & streamice_cg_A2, & streamice_cg_A3, @@ -52,14 +55,14 @@ & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1) c THE FOLLOWING ARRAYS ARE FIXED FOR A SIMULATION (depend only on grid) -c BUT ARE HERE BECAUSE THEY ARE USED EXCLUSIVELY BY THE MATRIX SOLVE +c BUT ARE HERE BECAUSE THEY ARE USED EXCLUSIVELY BY THE MATRIX SOLUTION _RL k1AtC_str (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL k2AtC_str (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) _RL DPhi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4,4,2) _RL grid_jacq_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4) _RL Xquad (2) - - + + #endif /* ALLOW_STREAMICE */ CEH3 ;;; Local Variables: ***