pkg/streamice/STREAMICE_CG.h

5ca83cd8f7 Dani*0001 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0002
                0003 #ifdef ALLOW_STREAMICE
                0004
887f427c62 Jean*0005       COMMON /STREAMICE_CG_FIELDS_RL/
5ca83cd8f7 Dani*0006      &     taudx_SI, taudy_SI,
                0007      &     Ru_SI, Rv_SI, Zu_SI, Zv_SI,
                0008      &     DIAGu_SI, DIAGv_SI, RHSu_SI, RHSv_SI,
                0009      &     ubd_SI, vbd_SI, Au_SI, Av_SI, Du_SI, Dv_SI,
887f427c62 Jean*0010      &     u_old_SI, v_old_SI, Zu_old_SI, Zv_old_SI,
5ca83cd8f7 Dani*0011      &     Ru_old_SI, Rv_old_SI,
                0012      &     k1AtC_str,
                0013      &     k2AtC_str,
                0014      &     DPhi,
                0015      &     grid_jacq_streamice,
                0016      &     Xquad
                0017       _RL taudx_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0018       _RL taudy_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0019       _RL Rv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0020       _RL Ru_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0021       _RL Zu_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0022       _RL Zv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0023       _RL DIAGu_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0024       _RL DIAGv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0025       _RL RHSu_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0026       _RL RHSv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0027       _RL ubd_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0028       _RL vbd_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0029       _RL Au_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0030       _RL Av_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0031       _RL Du_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
887f427c62 Jean*0032       _RL Dv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0033       _RL u_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0034       _RL v_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0035       _RL Zu_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0036       _RL Zv_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0037       _RL Ru_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
5ca83cd8f7 Dani*0038       _RL Rv_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0039
887f427c62 Jean*0040       COMMON /STREAMICE_CG_FIELDS2_RL/
5ca83cd8f7 Dani*0041      &     streamice_cg_A1,
                0042      &     streamice_cg_A2,
                0043      &     streamice_cg_A3,
                0044      &     streamice_cg_A4
                0045       _RL streamice_cg_A1
                0046      &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1)
                0047       _RL streamice_cg_A2
                0048      &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1)
                0049       _RL streamice_cg_A3
                0050      &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1)
                0051       _RL streamice_cg_A4
                0052      &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1)
                0053
                0054 c     THE FOLLOWING ARRAYS ARE FIXED FOR A SIMULATION (depend only on grid)
                0055 c     BUT ARE HERE BECAUSE THEY ARE USED EXCLUSIVELY BY THE MATRIX SOLUTION
                0056       _RL k1AtC_str (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0057       _RL k2AtC_str (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0058       _RL DPhi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4,4,2)
                0059       _RL grid_jacq_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4)
                0060       _RL Xquad (2)
887f427c62 Jean*0061
                0062
5ca83cd8f7 Dani*0063 #endif /* ALLOW_STREAMICE */
                0064
                0065 CEH3 ;;; Local Variables: ***
                0066 CEH3 ;;; mode:fortran ***
                0067 CEH3 ;;; End: ***