My Project
Functions/Subroutines | Variables
all_vars Module Reference

Functions/Subroutines

subroutine n2e3d (NVAR, EVAR)
 
subroutine n2e2d (NVAR, EVAR)
 
subroutine e2n2d (EVAR, NVAR)
 
subroutine e2n3d (EVAR, NVAR)
 
subroutine alloc_vars (dbg_set)
 

Variables

integer, dimension(:,:), allocatable nvg
 
real(sp), dimension(:), allocatable xg
 
real(sp), dimension(:), allocatable yg
 
real(sp), dimension(:), allocatable hg
 
real(sp), dimension(:), allocatable xcg
 
real(sp), dimension(:), allocatable ycg
 
real(sp) vxmin
 
real(sp) vymin
 
real(sp) vxmax
 
real(sp) vymax
 
real(sp), dimension(:), allocatable, target xm
 
real(sp), dimension(:), allocatable, target ym
 
real(sp), dimension(:), allocatable, target xmc
 
real(sp), dimension(:), allocatable, target ymc
 
real(sp), dimension(:), allocatable, target lon
 
real(sp), dimension(:), allocatable, target lat
 
real(sp), dimension(:), allocatable, target lonc
 
real(sp), dimension(:), allocatable, target latc
 
real(sp), dimension(:), allocatable, target vx
 
real(sp), dimension(:), allocatable, target vy
 
real(sp), dimension(:), allocatable, target xc
 
real(sp), dimension(:), allocatable, target yc
 
real(sp), dimension(:), allocatable, target art
 
real(sp), dimension(:), allocatable, target art1
 
real(sp), dimension(:), allocatable, target art2
 
real(sp), dimension(:), allocatable, target grav_n
 
real(sp), dimension(:), allocatable, target grav_e
 
integer, dimension(:,:), allocatable, target nv
 
integer, dimension(:,:), allocatable, target nbe
 
integer, dimension(:), allocatable, target ntve
 
integer, dimension(:), allocatable, target ntsn
 
integer, dimension(:), allocatable, target isonb
 
integer, dimension(:), allocatable, target isonb_w
 
integer, dimension(:), allocatable, target isbc
 
integer, dimension(:), allocatable, target isbce
 
integer, dimension(:,:), allocatable, target iec
 
integer, dimension(:,:), allocatable, target ienode
 
integer, dimension(:,:), allocatable, target nbsn
 
integer, dimension(:,:), allocatable, target niec
 
integer, dimension(:), allocatable, target ntrg
 
integer, dimension(:,:), allocatable, target nbve
 
integer, dimension(:,:), allocatable, target nbvt
 
integer, dimension(:), allocatable, target lisbce_1
 
integer, dimension(:), allocatable, target lisbce_2
 
integer, dimension(:), allocatable, target lisbce_3
 
real(sp), dimension(:), allocatable, target dltxc
 
real(sp), dimension(:), allocatable, target dltyc
 
real(sp), dimension(:), allocatable, target dltxyc
 
real(sp), dimension(:), allocatable, target sitae
 
real(sp), dimension(:), allocatable, target xijc
 
real(sp), dimension(:), allocatable, target yijc
 
real(sp), dimension(:,:), allocatable, target xije
 
real(sp), dimension(:,:), allocatable, target yije
 
real(sp), dimension(:), allocatable, target dltxe
 
real(sp), dimension(:), allocatable, target dltye
 
real(sp), dimension(:), allocatable, target dltxye
 
real(sp), dimension(:), allocatable, target sitac
 
real(sp), dimension(:), allocatable, target epor
 
real(sp), dimension(:,:), allocatable, target dltxncve
 
real(sp), dimension(:,:), allocatable, target dltyncve
 
real(sp), dimension(:,:), allocatable, target dltytrie
 
real(sp), dimension(:,:), allocatable, target dltxtrie
 
real(sp), dimension(:,:), allocatable, target dltxecec
 
real(sp), dimension(:,:), allocatable, target dltyecec
 
real(sp), dimension(:,:), allocatable, target dltxnec
 
real(sp), dimension(:,:), allocatable, target dltynec
 
integer, dimension(:), allocatable, target ibclsf_gl
 
real(sp), dimension(:), allocatable, target rbc_geo_gl
 
real(sp), dimension(:), allocatable, target rbc_wdf_gl
 
real(sp), dimension(:), allocatable, target wdf_ang
 
real(sp), dimension(:), allocatable, target wdf_dist
 
integer, dimension(:), allocatable, target ibclsf
 
integer, dimension(:), allocatable, target ibclsf_output
 
integer, dimension(:), allocatable, target nbclsf
 
real(sp), dimension(:), allocatable, target rbc_geo
 
real(sp), dimension(:), allocatable, target rbc_wdf
 
real(sp), dimension(:,:), allocatable, target z
 
real(sp), dimension(:,:), allocatable, target zz
 
real(sp), dimension(:,:), allocatable, target dz
 
real(sp), dimension(:,:), allocatable, target dzz
 
real(sp), dimension(:,:), allocatable, target z1
 
real(sp), dimension(:,:), allocatable, target zz1
 
real(sp), dimension(:,:), allocatable, target dz1
 
real(sp), dimension(:,:), allocatable, target dzz1
 
real(sp), dimension(:), allocatable, target ua
 
real(sp), dimension(:), allocatable, target va
 
real(sp), dimension(:), allocatable, target uaf
 
real(sp), dimension(:), allocatable, target vaf
 
real(sp), dimension(:), allocatable, target uark
 
real(sp), dimension(:), allocatable, target vark
 
real(sp), dimension(:), allocatable, target uard
 
real(sp), dimension(:), allocatable, target vard
 
real(sp), dimension(:), allocatable, target cor
 
real(sp), dimension(:), allocatable, target f_alfa
 
real(sp), dimension(:), allocatable, target h1
 
real(sp), dimension(:), allocatable, target d1
 
real(sp), dimension(:), allocatable, target dt1
 
real(sp), dimension(:), allocatable, target el1
 
real(sp), dimension(:), allocatable, target et1
 
real(sp), dimension(:), allocatable, target elrk1
 
real(sp), dimension(:), allocatable, target elf1
 
real(sp), dimension(:), allocatable, target dtfa
 
real(sp), dimension(:), allocatable, target cc_sponge
 
real(sp), dimension(:), allocatable, target h
 
real(sp), dimension(:), allocatable, target d
 
real(sp), dimension(:), allocatable, target dt
 
real(sp), dimension(:), allocatable, target el
 
real(sp), dimension(:), allocatable, target et
 
real(sp), dimension(:), allocatable, target egf
 
real(sp), dimension(:), allocatable, target elrk
 
real(sp), dimension(:), allocatable, target elf
 
real(sp), dimension(:), allocatable, target elf_eqi
 
real(sp), dimension(:), allocatable, target elrk_eqi
 
real(sp), dimension(:), allocatable, target el_eqi
 
real(sp), dimension(:), allocatable, target egf_eqi
 
real(sp), dimension(:), allocatable, target elf_atmo
 
real(sp), dimension(:), allocatable, target elrk_atmo
 
real(sp), dimension(:), allocatable, target el_atmo
 
real(sp), dimension(:), allocatable, target egf_atmo
 
real(sp), dimension(:), allocatable, target elf_air
 
real(sp), dimension(:), allocatable, target elrk_air
 
real(sp), dimension(:), allocatable, target el_air
 
real(sp), dimension(:), allocatable, target egf_air
 
real(sp), dimension(:), allocatable, target vort
 
real(sp), dimension(:), allocatable, target cbc
 
real(sp), dimension(:), allocatable, target cc_z0b
 
real(sp), dimension(:), allocatable, target swrad_watts
 
real(sp), dimension(:), allocatable, target wtsurf_watts
 
real(sp), dimension(:), allocatable, target swrad
 
real(sp), dimension(:), allocatable, target wtsurf
 
real(sp), dimension(:), allocatable, target wusurf2
 
real(sp), dimension(:), allocatable, target wvsurf2
 
real(sp), dimension(:), allocatable, target wubot
 
real(sp), dimension(:), allocatable, target wvbot
 
real(sp), dimension(:), allocatable, target taubm
 
real(sp), dimension(:), allocatable, target wubot_n
 
real(sp), dimension(:), allocatable, target wvbot_n
 
real(sp), dimension(:), allocatable, target taubm_n
 
real(sp), dimension(:), allocatable, target wusurf
 
real(sp), dimension(:), allocatable, target wvsurf
 
real(sp), dimension(:), allocatable, target wusurf_save
 
real(sp), dimension(:), allocatable, target wvsurf_save
 
real(sp), dimension(:), allocatable, target bfwdis
 
real(sp), dimension(:), allocatable, target bfwdis2
 
real(sp), dimension(:), allocatable, target bfwtmp
 
real(sp), dimension(:), allocatable, target bfwslt
 
real(sp), dimension(:), allocatable, target icing_wndx
 
real(sp), dimension(:), allocatable, target icing_wndy
 
real(sp), dimension(:), allocatable, target icing_satmp
 
real(sp), dimension(:), allocatable, target icing_0kts
 
real(sp), dimension(:), allocatable, target icing_10kts
 
integer, dimension(:), allocatable, target inodeq
 
integer, dimension(:), allocatable, target icellq
 
integer, dimension(:,:), allocatable, target n_icellq
 
real(sp), dimension(:,:), allocatable, target vqdist
 
integer, dimension(:), allocatable, target riv_gl2loc
 
real(sp), dimension(:), allocatable, target qdis
 
real(sp), dimension(:), allocatable, target qdis2
 
real(sp), dimension(:), allocatable, target tdis
 
real(sp), dimension(:), allocatable, target sdis
 
real(sp), dimension(:), allocatable, target qarea
 
real(sp), dimension(:,:), allocatable, target rdisq
 
real(sp), dimension(:), allocatable, target angleq
 
real(sp), dimension(:), allocatable, target vlctyq
 
real(sp), dimension(:), allocatable, target uuwind
 
real(sp), dimension(:), allocatable, target vvwind
 
real(sp), dimension(:), allocatable, target qprec2
 
real(sp), dimension(:), allocatable, target qevap2
 
real(sp), dimension(:), allocatable, target qprec
 
real(sp), dimension(:), allocatable, target qevap
 
real(sp), dimension(:), allocatable, target whs
 
real(sp), dimension(:), allocatable, target wdir
 
real(sp), dimension(:), allocatable, target wper
 
real(sp), dimension(:), allocatable, target wlength
 
real(sp), dimension(:), allocatable, target wper_bot
 
real(sp), dimension(:), allocatable, target wub_bot
 
real(sp), dimension(:), allocatable, target pstx
 
real(sp), dimension(:), allocatable, target psty
 
real(sp), dimension(:), allocatable, target advua
 
real(sp), dimension(:), allocatable, target advva
 
real(sp), dimension(:), allocatable, target adx2d
 
real(sp), dimension(:), allocatable, target ady2d
 
real(sp), dimension(:), allocatable, target drx2d
 
real(sp), dimension(:), allocatable, target dry2d
 
real(sp), dimension(:), allocatable, target tps
 
real(sp), dimension(:,:), allocatable, target advx
 
real(sp), dimension(:,:), allocatable, target advy
 
real(sp), dimension(:,:), allocatable, target u
 
real(sp), dimension(:,:), allocatable, target v
 
real(sp), dimension(:,:), allocatable, target ubeta
 
real(sp), dimension(:,:), allocatable, target vbeta
 
real(sp), dimension(:), allocatable ubeta2d
 
real(sp), dimension(:), allocatable vbeta2d
 
real(sp), dimension(:), allocatable, target partition
 
real(sp), dimension(:,:), allocatable, target w
 
real(sp), dimension(:,:), allocatable, target ww
 
real(sp), dimension(:,:), allocatable, target uf
 
real(sp), dimension(:,:), allocatable, target vf
 
real(sp), dimension(:,:), allocatable, target wt
 
real(sp), dimension(:,:), allocatable, target rho
 
real(sp), dimension(:,:), allocatable, target rmean
 
real(sp), dimension(:,:), allocatable, target t
 
real(sp), dimension(:,:), allocatable, target tmean
 
real(sp), dimension(:,:), allocatable, target s
 
real(sp), dimension(:,:), allocatable, target smean
 
real(sp), dimension(:,:), allocatable, target q2
 
real(sp), dimension(:,:), allocatable, target l
 
real(sp), dimension(:,:), allocatable, target q2l
 
real(sp), dimension(:,:), allocatable, target km
 
real(sp), dimension(:,:), allocatable, target kh
 
real(sp), dimension(:,:), allocatable, target kq
 
real(sp), dimension(:,:), allocatable, target aam
 
real(sp), dimension(:,:), allocatable, target q2f
 
real(sp), dimension(:,:), allocatable, target q2lf
 
real(sp), dimension(:,:), allocatable, target km1
 
real(sp), dimension(:), allocatable cc_hvc
 
real(sp), dimension(:), allocatable nn_hvc
 
real(sp), dimension(:,:), allocatable, target t1
 
real(sp), dimension(:,:), allocatable, target s1
 
real(sp), dimension(:,:), allocatable, target rho1
 
real(sp), dimension(:,:), allocatable, target tf1
 
real(sp), dimension(:,:), allocatable, target sf1
 
real(sp), dimension(:,:), allocatable, target t0
 
real(sp), dimension(:,:), allocatable, target t2
 
real(sp), dimension(:,:), allocatable, target s0
 
real(sp), dimension(:,:), allocatable, target s2
 
real(sp), dimension(:,:), allocatable, target tmean1
 
real(sp), dimension(:,:), allocatable, target smean1
 
real(sp), dimension(:,:), allocatable, target rmean1
 
real(sp), dimension(:,:), allocatable, target wts
 
real(sp), dimension(:,:), allocatable, target wtts
 
real(sp), dimension(:,:), allocatable, target drhox
 
real(sp), dimension(:,:), allocatable, target drhoy
 
real(sp), dimension(:,:), allocatable, target a1u
 
real(sp), dimension(:,:), allocatable, target a2u
 
real(sp), dimension(:,:), allocatable, target awx
 
real(sp), dimension(:,:), allocatable, target awy
 
real(sp), dimension(:,:), allocatable, target aw0
 
real(sp), dimension(:), allocatable, target alpha
 
real(sp), dimension(:), allocatable, target phpn
 
real(sp), dimension(:), allocatable, target pfpxb
 
real(sp), dimension(:), allocatable, target pfpyb
 
real(sp), dimension(:), allocatable, target sita_gd
 
real(sp), dimension(:), allocatable, target ah_bottom
 
real(sp), dimension(:,:), allocatable, target u_ave
 
real(sp), dimension(:,:), allocatable, target v_ave
 
real(sp), dimension(:,:), allocatable, target w_ave
 
real(sp), dimension(:,:), allocatable, target km_ave
 
real(sp), dimension(:,:), allocatable, target kh_ave
 
real(sp), dimension(:,:), allocatable, target t_ave
 
real(sp), dimension(:,:), allocatable, target s_ave
 
real(sp), dimension(:,:), allocatable, target r_ave
 
real(sp), dimension(:), allocatable, target el_ave
 
real(sp), dimension(:,:), allocatable, target viscofh
 
real(sp), dimension(:,:), allocatable, target viscofm
 
real(sp), dimension(:,:), allocatable, target hyw
 

Function/Subroutine Documentation

◆ alloc_vars()

subroutine all_vars::alloc_vars ( logical, intent(in)  dbg_set)

Definition at line 1447 of file mod_main.f90.

1447 
1448 !==============================================================================!
1449  IMPLICIT NONE
1450  logical,intent(in) :: dbg_set
1451  INTEGER NCT,NDB
1452 !==============================================================================!
1453  ndb = 1 !!GWC BASE THIS ON KIND
1454 
1455  nct = nt*3 ! A DIMENSION USED FOR ALLOCATION!
1456 
1457 !==============================================================================!
1458 ! ALLOCATE: !
1459 !==============================================================================!
1460 
1461 !--------------------------Grid Metrics---------------------------------------------!
1462 
1463  ALLOCATE(lon(0:mt)) ;lon = zero !!LONGITUDE AT THE NODE
1464  ALLOCATE(lat(0:mt)) ;lat = zero !!LATITUDE AT THE NODE
1465  ALLOCATE(lonc(0:nt)) ;lonc = zero !!LONGITUDE AT THE NODE
1466  ALLOCATE(latc(0:nt)) ;latc = zero !!LATITUDE AT THE NODE
1467  ALLOCATE(xm(0:mt)) ;xm = zero !!X-COORD AT NODE IN METERS
1468  ALLOCATE(ym(0:mt)) ;ym = zero !!Y-COORD AT NODE IN METERS
1469  ALLOCATE(xmc(0:nt)) ;xmc = zero !!X-COORD AT FACE CENTER IN METERS
1470  ALLOCATE(ymc(0:nt)) ;ymc = zero !!Y-COORD AT FACE CENTER IN METERS
1471  ALLOCATE(xc(0:nt)) ;xc = zero !!X-COORD AT FACE CENTER
1472  ALLOCATE(yc(0:nt)) ;yc = zero !!Y-COORD AT FACE CENTER
1473  ALLOCATE(vx(0:mt)) ;vx = zero !!X-COORD AT GRID POINT
1474  ALLOCATE(vy(0:mt)) ;vy = zero !!Y-COORD AT GRID POINT
1475  ALLOCATE(art(0:nt)) ;art = zero !!AREA OF ELEMENT
1476  ALLOCATE(art1(0:mt)) ;art1 = zero !!AREA OF NODE-BASE CONTROl VOLUME
1477  ALLOCATE(art2(0:mt)) ;art2 = zero !!AREA OF ELEMENTS AROUND NODE
1478  ALLOCATE(grav_n(0:mt)) ;grav_n = zero !! VARIABLE GRAVITY
1479  ALLOCATE(grav_e(0:nt)) ;grav_e = zero !! VARIABLE GRAVITY
1480 
1481  memcnt = mt*9*ndb + nt*8*ndb + memcnt
1482 
1483 !----------------Node, Boundary Condition, and Control Volume-----------------------!
1484 
1485 ! ALLOCATED IN setup_domain.F But count the memory here
1486 ! ALLOCATE(NV(0:NT,4)) ;NV = 0 !!NODE NUMBERING FOR ELEMENTS
1487 ! ALLOCATE(NVGL(0:NT,3)) ;NVGL = 0 !!GLOBAL NODE NUMBERING FOR LOCAL ELEMENTS
1488  ALLOCATE(nbe(0:nt,3)) ;nbe = 0 !!INDICES OF ELMNT NEIGHBORS
1489  ALLOCATE(ntve(0:mt)) ;ntve = 0
1490  ALLOCATE(ntsn(0:mt)) ;ntsn = 0
1491  ALLOCATE(isonb(0:mt)) ;isonb = 0 !!NODE MARKER = 0,1,2
1492  ALLOCATE(isonb_w(0:mt)) ;isonb_w = 0 !!NODE MARKER = 0,1,2
1493  ALLOCATE(isbce(0:nt)) ;isbce = 0
1494  ALLOCATE(niec(nct,2)) ;niec = 0
1495  ALLOCATE(ntrg(nct)) ;ntrg = 0
1496 
1497  ! POSITION OF NODAL CONTROL VOLUME CORNERS
1498  ALLOCATE(xije(nct,2)) ;xije = zero
1499  ALLOCATE(yije(nct,2)) ;yije = zero
1500  ! LENGTH OF NODAL CONTROL VOLUME EDGES
1501  ALLOCATE(dltxe(nct)) ;dltxe = zero
1502  ALLOCATE(dltye(nct)) ;dltye = zero
1503  ALLOCATE(dltxye(nct)) ;dltxye = zero !! TOTAL LENGTH
1504  ALLOCATE(sitae(nct)) ;sitae = zero !! ANGLE
1505 
1506  ! LENGTH BETWEEN NODE AND CONTROL VOLUMEN EDGE CENTER
1507  ALLOCATE(dltxncve(nct,2)) ; dltxncve = zero !! DeLTa X Node to Control Volume Edge
1508  ALLOCATE(dltyncve(nct,2)) ; dltyncve = zero !! DeLTa Y Node to Control Volume Edge
1509 
1510 
1511  ! THE FOLLOWING ARRAYS COULD BE REPLACED WITH (N,3) ARRAYS
1512  ! BUT THE INDEXING WOULD BE COMPLEX AND THERE ARE SIGN ISSUES!
1513 
1514  ! TRIANGLE EDGE LENGTH FOR EDGES SURROUNDING EACH NODE
1515  ! NTSN Can not be greater than 13!
1516  ALLOCATE(dltxtrie(m,12)) ;dltxtrie = zero !! DeLTa X TRIangle Edge
1517  ALLOCATE(dltytrie(m,12)) ;dltytrie = zero !! DeLTa Y TRIangle Edge
1518 
1519  ALLOCATE(dltxnec(m,12)) ;dltxnec = zero !! DeLTa X Node to Edge Center
1520  ALLOCATE(dltynec(m,12)) ;dltynec = zero !! DeLTa Y Node to Edge Center
1521 
1522  ! DISTANCE BETWEEN TRIANGLE EDGE CENTERS FOR EACH TRIANGLE AROUND A NODE
1523  ! NTVE Can not be greater than 13!
1524  ALLOCATE(dltxecec(m,12)) ;dltxecec = zero !! DeLTa X Edge Center to Edge Center
1525  ALLOCATE(dltyecec(m,12)) ;dltyecec = zero !! DeLTa Y Edge Center to Edge Center
1526 
1527 
1528 
1529  memcnt = nt*4 + mt*3 +m*6*12*ndb + nct*3 + nct*12*ndb + memcnt
1530 
1531 !----------------2-d arrays for the general vertical coordinate -------------------------------!
1532 
1533  ALLOCATE(z(0:mt,kb)) ; z = zero !!SIGMA COORDINATE VALUE
1534  ALLOCATE(zz(0:mt,kb)) ; zz = zero !!INTRA LEVEL SIGMA VALUE
1535  ALLOCATE(dz(0:mt,kb)) ; dz = zero !!DELTA-SIGMA VALUE
1536  ALLOCATE(dzz(0:mt,kb)) ; dzz = zero !!DELTA OF INTRA LEVEL SIGMA
1537  ALLOCATE(z1(0:nt,kb)) ; z1 = zero !!SIGMA COORDINATE VALUE
1538  ALLOCATE(zz1(0:nt,kb)) ; zz1 = zero !!INTRA LEVEL SIGMA VALUE
1539  ALLOCATE(dz1(0:nt,kb)) ; dz1 = zero !!DELTA-SIGMA VALUE
1540  ALLOCATE(dzz1(0:nt,kb)) ; dzz1 = zero !!DELTA OF INTRA LEVEL SIGMA
1541  memcnt = mt*kb*4*ndb + nt*kb*4*ndb +memcnt
1542 
1543 !---------------2-d flow variable arrays at elements-------------------------------!
1544 
1545  ALLOCATE(ua(0:nt)) ;ua = zero !!VERTICALLY AVERAGED X-VELOC
1546  ALLOCATE(va(0:nt)) ;va = zero !!VERTICALLY AVERAGED Y-VELOC
1547  ALLOCATE(uaf(0:nt)) ;uaf = zero !!UA FROM PREVIOUS RK STAGE
1548  ALLOCATE(vaf(0:nt)) ;vaf = zero !!VA FROM PREVIOUS RK STAGE
1549  ALLOCATE(uark(0:nt)) ;uark = zero !!UA FROM PREVIOUS TIMESTEP
1550  ALLOCATE(vark(0:nt)) ;vark = zero !!VA FROM PREVIOUS TIMESTEP
1551  ALLOCATE(uard(0:nt)) ;uard = zero !!UA AVERAGED OVER EXTERNAL INT
1552  ALLOCATE(vard(0:nt)) ;vard = zero !!VA AVERAGED OVER EXTERNAL INT
1553  ALLOCATE(cor(0:nt)) ;cor = zero !!CORIOLIS PARAMETER
1554  ALLOCATE(f_alfa(0:nt)) ;f_alfa = 1.0_sp !!EQUATORIAL BETA PLANE PARAMETER
1555  ALLOCATE(h1(0:nt)) ;h1 = zero !!BATHYMETRIC DEPTH
1556  ALLOCATE(d1(0:nt)) ;d1 = zero !!DEPTH
1557  ALLOCATE(dt1(0:nt)) ;dt1 = zero !!DEPTH
1558  ALLOCATE(el1(0:nt)) ;el1 = zero !!SURFACE ELEVATION
1559  ALLOCATE(elf1(0:nt)) ;elf1 = zero !!SURFACE ELEVATION
1560  ALLOCATE(dtfa(0:mt)) ;dtfa = zero !!ADJUSTED DEPTH FOR MASS CONSERVATION
1561  ALLOCATE(et1(0:nt)) ;et1 = zero !!SURFACE ELEVATION
1562  ALLOCATE(elrk1(0:nt)) ;elrk1 = zero !!SURFACE ELEVATION
1563  ALLOCATE(cc_sponge(0:nt)) ;cc_sponge = zero !!SPONGE DAMPING COEFFICIENT FOR MOMENTUM
1564  memcnt = nt*17*ndb + mt*ndb + memcnt
1565 
1566 !---------------2-d flow variable arrays at nodes----------------------------------!
1567 
1568  ALLOCATE(h(0:mt)) ;h = zero !!BATHYMETRIC DEPTH
1569  ALLOCATE(d(0:mt)) ;d = zero !!DEPTH
1570  ALLOCATE(dt(0:mt)) ;dt = zero !!DEPTH
1571  ALLOCATE(el(0:mt)) ;el = zero !!SURFACE ELEVATION
1572  ALLOCATE(elf(0:mt)) ;elf = zero !!SURFACE ELEVATION
1573  ALLOCATE(et(0:mt)) ;et = zero !!SURFACE ELEVATION
1574  ALLOCATE(egf(0:mt)) ;egf = zero !!SURFACE ELEVATION
1575  ALLOCATE(elrk(0:mt)) ;elrk = zero !!SURFACE ELEVATION
1576  memcnt = mt*8*ndb + memcnt
1577 
1578 
1579 
1580 
1581  ALLOCATE(vort(0:mt)) ; vort = zero
1582  memcnt = mt*ndb + memcnt
1583 
1584 !---------------surface/bottom/edge boundary conditions-----------------------------!
1585 
1586  ALLOCATE(cbc(0:nt)) ;cbc = zero !!BOTTOM FRICTION
1587  ALLOCATE(cc_z0b(0:nt)) ;cc_z0b = zero !!BOTTOM ROUGHNESS VARIABLE
1588 !# if !defined (SEMI_IMPLICIT)
1589  ALLOCATE(wusurf2(0:nt)) ;wusurf2= zero !!SURFACE FRICTION FOR EXT
1590  ALLOCATE(wvsurf2(0:nt)) ;wvsurf2= zero !!SURFACE FRICTION FOR EXT
1591 !# endif
1592  ALLOCATE(wubot(0:nt)) ;wubot = zero !!BOTTOM FRICTION
1593  ALLOCATE(wvbot(0:nt)) ;wvbot = zero !!BOTTOM FRICTION
1594  ALLOCATE(taubm(0:nt)) ;taubm = zero !!BOTTOM FRICTION
1595  ALLOCATE(wubot_n(0:mt)) ;wubot_n = zero !!U-Component bottom shear stress on nodes
1596  ALLOCATE(wvbot_n(0:mt)) ;wvbot_n = zero !!V-Component bottom shear stress on nodes
1597  ALLOCATE(taubm_n(0:mt)) ;taubm_n = zero !!Magnitude bottom shear stress on nodes
1598  ALLOCATE(wusurf(0:nt)) ;wusurf = zero !!SURFACE FRICTION FOR INT
1599  ALLOCATE(wvsurf(0:nt)) ;wvsurf = zero !!SURFACE FRICTION FOR INT
1600  ALLOCATE(wusurf_save(0:nt)) ;wusurf_save = zero!!SURFACE FRICTION FOR INT
1601  ALLOCATE(wvsurf_save(0:nt)) ;wvsurf_save = zero!!SURFACE FRICTION FOR INT
1602  ALLOCATE(uuwind(0:nt)) ;uuwind = zero !!SURFACE X-WIND
1603  ALLOCATE(vvwind(0:nt)) ;vvwind = zero !!SURFACE Y-WIND
1604  ALLOCATE(swrad(0:mt)) ;swrad = zero !!SURFACE INCIDENT RADIATION
1605  ALLOCATE(wtsurf(0:mt)) ;wtsurf = zero
1606  ALLOCATE(swrad_watts(0:mt)) ;swrad_watts = zero !!SURFACE INCIDENT RADIATION
1607  ALLOCATE(wtsurf_watts(0:mt)) ;wtsurf_watts = zero
1608 
1609  ALLOCATE(qprec2(0:mt)) ;qprec2 = zero !!SURFACE PRECIPITATION FOR EXT
1610  ALLOCATE(qevap2(0:mt)) ;qevap2 = zero !!SURFACE EVAPORATION FOR EXT
1611  ALLOCATE(qprec(0:mt)) ;qprec = zero !!SURFACE PRECIPITATION FOR INT
1612  ALLOCATE(qevap(0:mt)) ;qevap = zero !!SURFACE EVAPORATION FOR INT
1613 
1614 
1615 
1616  memcnt = nt*10*ndb + mt*8*ndb + memcnt
1617 
1618  IF (icing_model) THEN
1619  ALLOCATE(icing_wndx(0:mt)) ;icing_wndx = zero
1620  ALLOCATE(icing_wndy(0:mt)) ;icing_wndy = zero
1621  ALLOCATE(icing_satmp(0:mt));icing_satmp = zero
1622  ALLOCATE(icing_0kts(0:mt)) ;icing_0kts = zero
1623  ALLOCATE(icing_10kts(0:mt));icing_10kts= zero
1624 
1625  memcnt = memcnt + mt*4*ndb
1626  END IF
1627 
1628 
1629 !--------------------------------------------------------------
1630 !--------------------------------------------------------------
1631 
1632  ALLOCATE(bfwdis(0:mt)) ;bfwdis = zero !!GROUNDWATER FLUX FOR INT
1633  ALLOCATE(bfwdis2(0:mt)) ;bfwdis2= zero !!GROUNDWATER FLUX FOR EXT
1634  ALLOCATE(bfwslt(0:mt)) ;bfwslt = zero !!GROUNDWATER SALT AT CURRENT TIME
1635  ALLOCATE(bfwtmp(0:mt)) ;bfwtmp = zero !!GROUNDWATER TEMP AT CURRENT TIME
1636 
1637  memcnt = mt*4*ndb + memcnt
1638 
1639 !-----------------------2-d flow fluxes---------------------------------------------!
1640 
1641  ALLOCATE(pstx(0:nt)) ;pstx = zero !!EXT MODE BAROTROPIC TERMS
1642  ALLOCATE(psty(0:nt)) ;psty = zero !!EXT MODE BAROTROPIC TERMS
1643  ALLOCATE(advua(0:nt)) ;advua = zero
1644  ALLOCATE(advva(0:nt)) ;advva = zero
1645  ALLOCATE(adx2d(0:nt)) ;adx2d = zero
1646  ALLOCATE(ady2d(0:nt)) ;ady2d = zero
1647  ALLOCATE(drx2d(0:nt)) ;drx2d = zero
1648  ALLOCATE(dry2d(0:nt)) ;dry2d = zero
1649  ALLOCATE(advx(0:nt,kb)) ;advx = zero
1650  ALLOCATE(advy(0:nt,kb)) ;advy = zero
1651  ALLOCATE(tps(0:nt)) ;tps = zero !!WORKING ARRAY
1652  memcnt = nt*9*ndb + nt*kb*2*ndb + memcnt
1653 
1654 
1655 !---------------- internal mode arrays-(element based)----------------------------!
1656 
1657  ALLOCATE(u(0:nt,kb)) ;u = zero !!X-VELOCITY
1658  ALLOCATE(v(0:nt,kb)) ;v = zero !!Y-VELOCITY
1659  ALLOCATE(ubeta(0:nt,kb)) ;ubeta = zero !!X-VELOCITY temp time step
1660  ALLOCATE(vbeta(0:nt,kb)) ;vbeta = zero !!X-VELOCITY temp time step
1661  ALLOCATE(ubeta2d(0:nt)) ;ubeta2d = zero
1662  ALLOCATE(vbeta2d(0:nt)) ;vbeta2d = zero
1663 
1664  ALLOCATE(w(0:nt,kb)) ;w = zero !!VERTICAL VELOCITY IN SIGMA SYSTEM
1665  ALLOCATE(ww(0:nt,kb)) ;ww = zero !!Z-VELOCITY
1666  ALLOCATE(uf(0:nt,kb)) ;uf = zero !!X-VELOCITY FROM PREVIOUS TIMESTEP
1667  ALLOCATE(vf(0:nt,kb)) ;vf = zero !!Y-VELOCITY FROM PREVIOUS TIMESTEP
1668  ALLOCATE(wt(0:nt,kb)) ;wt = zero !!Z-VELOCITY FROM PREVIOUS TIMESTEP
1669  ALLOCATE(rho(0:nt,kb)) ;rho = zero !!DENSITY AT ELEMENTS
1670  ALLOCATE(rmean(0:nt,kb)) ;rmean = zero !!MEAN INITIAL DENSITY AT ELEMENTS
1671  ALLOCATE(t(0:nt,kb)) ;t = zero !!TEMPERATURE AT ELEMENTS
1672  ALLOCATE(tmean(0:nt,kb)) ;tmean = zero !!MEAN INITIAL TEMPERATURE AT ELEMENTS
1673  ALLOCATE(s(0:nt,kb)) ;s = zero !!SALINITY AT ELEMENTS
1674  ALLOCATE(smean(0:nt,kb)) ;smean = zero !!MEAN INITIAL SALINITY AT ELEMENTS
1675  memcnt = nt*kb*13*ndb + memcnt
1676 
1677 !-----------------------3d variable arrays-(node based)-----------------------------!
1678 
1679  ALLOCATE(t1(0:mt,kb)) ;t1 = zero !!TEMPERATURE AT NODES
1680  ALLOCATE(s1(0:mt,kb)) ;s1 = zero !!SALINITY AT NODES
1681 !J. Ge for tracer advection
1682  ALLOCATE(t0(0:mt,kb)) ;t0 = zero !!TEMPERATURE FROM PREVIOUS TIME STEP
1683  ALLOCATE(t2(0:mt,kb)) ;t2 = zero !!TEMPERATURE FROM PREVIOUS TWO STEP
1684  ALLOCATE(s0(0:mt,kb)) ;s0 = zero !!SALINITY FROM PREVIOUS TIME STEP
1685  ALLOCATE(s2(0:mt,kb)) ;s2 = zero !!SALINITY FROM PREVIOUS TWO STEP
1686 !J. Ge for tracer advection
1687  ALLOCATE(rho1(0:mt,kb)) ;rho1 = zero !!DENSITY AT NODES
1688  ALLOCATE(tf1(0:mt,kb)) ;tf1 = zero !!TEMPERATURE FROM PREVIOUS TIME
1689  ALLOCATE(sf1(0:mt,kb)) ;sf1 = zero !!SALINITY FROM PREVIOUS TIME
1690  ALLOCATE(tmean1(0:mt,kb)) ;tmean1 = zero !!MEAN INITIAL TEMP
1691  ALLOCATE(smean1(0:mt,kb)) ;smean1 = zero !!MEAN INITIAL SALINITY
1692  ALLOCATE(rmean1(0:mt,kb)) ;rmean1 = zero !!MEAN INITIAL DENSITY
1693  ALLOCATE(wts(0:mt,kb)) ;wts = zero !!VERTICAL VELOCITY IN SIGMA SYSTEM
1694  ALLOCATE(wtts(0:mt,kb)) ;wtts = zero !!WTS FROM PREVIOUS TIMESTEP
1695  ALLOCATE(q2(0:mt,kb)) ;q2 = zero !!TURBULENT KINETIC ENERGY AT NODES
1696  ALLOCATE(q2l(0:mt,kb)) ;q2l = zero !!TURBULENT KE*LENGTH AT NODES
1697  ALLOCATE(l(0:mt,kb)) ;l = zero !!TURBULENT LENGTH SCALE AT ELEMENTS
1698  ALLOCATE(km(0:mt,kb)) ;km = zero !!TURBULENT QUANTITY
1699  ALLOCATE(kh(0:mt,kb)) ;kh = zero !!TURBULENT QUANTITY
1700  ALLOCATE(kq(0:mt,kb)) ;kq = zero !!TURBULENT QUANTITY
1701  ALLOCATE(aam(0:mt,kb)) ;aam = zero !!??
1702  ALLOCATE(km1(0:nt,kb)) ;km1 = zero !!TURBULENT QUANTITY AT ELEMENTS
1703 
1704 
1705  ALLOCATE(cc_hvc(0:nt)) ;cc_hvc = zero !!VISCOSITY COEFFICIENT AT ELEMENTS
1706  ALLOCATE(nn_hvc(0:mt)) ;nn_hvc = zero !!VISCOSITY COEFFICIENT AT NODES
1707 
1708  memcnt = mt*kb*18*ndb + nt*kb*ndb + memcnt + (mt+nt)*ndb
1709 
1710 
1711 !---------------------------internal mode fluxes------------------------------------!
1712 
1713  ALLOCATE(drhox(0:nt,kb)) ;drhox = zero
1714  ALLOCATE(drhoy(0:nt,kb)) ;drhoy = zero
1715  ALLOCATE(q2f(0:mt,kb)) ;q2f = zero
1716  ALLOCATE(q2lf(0:mt,kb)) ;q2lf = zero
1717  memcnt = nt*kb*2*ndb + mt*kb*2*ndb + memcnt
1718 
1719 !------------shape coefficient arrays and control volume metrics--------------------!
1720 
1721  ALLOCATE(a1u(0:nt,4)) ;a1u = zero
1722  ALLOCATE(a2u(0:nt,4)) ;a2u = zero
1723  ALLOCATE(awx(0:nt,3)) ;awx = zero
1724  ALLOCATE(awy(0:nt,3)) ;awy = zero
1725  ALLOCATE(aw0(0:nt,3)) ;aw0 = zero
1726  ALLOCATE(alpha(0:nt)) ;alpha = zero
1727  memcnt = nt*4*2*ndb + nt*3*3*ndb + nt*ndb + memcnt
1728 
1729 !-----salinity and temperature bottom diffusion condition/bottom depth gradients----!
1730 
1731  ALLOCATE(phpn(0:mt)) ;phpn = zero
1732  ALLOCATE(pfpxb(mt)) ;pfpxb = zero
1733  ALLOCATE(pfpyb(mt)) ;pfpyb = zero
1734  ALLOCATE(sita_gd(0:mt)) ;sita_gd = zero
1735  ALLOCATE(ah_bottom(mt)) ;ah_bottom = zero
1736  memcnt = mt*5*ndb + memcnt
1737 
1738  ALLOCATE(viscofh(0:mt,kb)) ;viscofh = zero
1739  ALLOCATE(viscofm(0:nt,kb)) ;viscofm = zero
1740  memcnt = mt*kb*ndb + nt*kb*ndb + memcnt
1741 
1742  ALLOCATE(hyw(0:mt,kb)) ;hyw = zero
1743 !-----special initialization which probably do nothing------------------------------!
1744 
1745  dt1(0) = 100.0_sp
1746 
1747 !---------------report approximate memory usage-------------------------------------!
1748 
1749 
1750  RETURN
integer, dimension(:), allocatable, target ntsn
Definition: mod_main.f90:1023
real(sp), dimension(:), allocatable, target alpha
Definition: mod_main.f90:1336
real(sp), dimension(:,:), allocatable, target q2
Definition: mod_main.f90:1290
real(sp), dimension(:), allocatable, target elrk1
Definition: mod_main.f90:1121
real(sp), dimension(:,:), allocatable, target km
Definition: mod_main.f90:1293
real(sp), dimension(:), allocatable, target va
Definition: mod_main.f90:1104
real(sp), dimension(:), allocatable, target d
Definition: mod_main.f90:1132
real(sp), dimension(:,:), allocatable, target yije
Definition: mod_main.f90:1048
real(sp), dimension(:), allocatable, target cor
Definition: mod_main.f90:1113
real(sp), dimension(:), allocatable, target d1
Definition: mod_main.f90:1116
real(sp), dimension(:), allocatable, target adx2d
Definition: mod_main.f90:1258
real(sp), dimension(:), allocatable, target qprec
Definition: mod_main.f90:1239
real(sp), dimension(:,:), allocatable, target t2
Definition: mod_main.f90:1314
real(sp), dimension(:,:), allocatable, target q2lf
Definition: mod_main.f90:1298
real(sp), dimension(:), allocatable, target psty
Definition: mod_main.f90:1255
real(sp), dimension(:), allocatable, target elrk
Definition: mod_main.f90:1138
real(sp), dimension(:,:), allocatable, target s
Definition: mod_main.f90:1288
real(sp), dimension(:), allocatable, target h
Definition: mod_main.f90:1131
integer mt
Definition: mod_main.f90:78
real(sp), dimension(:,:), allocatable, target viscofh
Definition: mod_main.f90:1359
real(sp), dimension(:), allocatable, target art
Definition: mod_main.f90:1009
real(sp), dimension(:,:), allocatable, target advx
Definition: mod_main.f90:1263
real(sp), dimension(:), allocatable, target dtfa
Definition: mod_main.f90:1124
real(sp), dimension(:), allocatable, target el
Definition: mod_main.f90:1134
real(sp), dimension(:), allocatable, target uark
Definition: mod_main.f90:1108
real(sp), dimension(:), allocatable, target advua
Definition: mod_main.f90:1256
real(sp), dimension(:,:), allocatable, target v
Definition: mod_main.f90:1269
real(sp), dimension(:), allocatable, target qevap2
Definition: mod_main.f90:1237
real(sp), dimension(:,:), allocatable, target rho1
Definition: mod_main.f90:1309
real(sp), dimension(:), allocatable, target pfpxb
Definition: mod_main.f90:1342
real(sp), dimension(:,:), allocatable, target dltxnec
Definition: mod_main.f90:1069
real(sp), dimension(:), allocatable, target wtsurf_watts
Definition: mod_main.f90:1174
real(sp), dimension(:,:), allocatable, target dltxncve
Definition: mod_main.f90:1059
real(sp), dimension(:), allocatable, target art1
Definition: mod_main.f90:1010
real(sp), dimension(:), allocatable, target yc
Definition: mod_main.f90:1004
real(sp), dimension(:,:), allocatable, target t1
Definition: mod_main.f90:1307
real(sp), dimension(:), allocatable cc_hvc
Definition: mod_main.f90:1302
real(sp), dimension(:,:), allocatable, target w
Definition: mod_main.f90:1279
real(sp), dimension(:), allocatable, target wubot_n
Definition: mod_main.f90:1188
real(sp), dimension(:), allocatable, target dltxye
Definition: mod_main.f90:1052
real(sp), dimension(:), allocatable, target ymc
Definition: mod_main.f90:994
real(sp), dimension(:), allocatable, target egf
Definition: mod_main.f90:1136
real(sp), dimension(:,:), allocatable, target dzz1
Definition: mod_main.f90:1097
real(sp), dimension(:,:), allocatable, target dltytrie
Definition: mod_main.f90:1063
real(sp), dimension(:,:), allocatable, target xije
Definition: mod_main.f90:1047
real(sp), dimension(:), allocatable, target latc
Definition: mod_main.f90:998
real(sp), dimension(:), allocatable, target icing_0kts
Definition: mod_main.f90:1208
real(sp), dimension(:,:), allocatable, target dltyncve
Definition: mod_main.f90:1060
real(sp), dimension(:), allocatable vbeta2d
Definition: mod_main.f90:1275
real(sp), dimension(:,:), allocatable, target a1u
Definition: mod_main.f90:1331
integer, dimension(:), allocatable, target isonb_w
Definition: mod_main.f90:1025
real(sp), dimension(:,:), allocatable, target rho
Definition: mod_main.f90:1284
real(sp), dimension(:,:), allocatable, target awx
Definition: mod_main.f90:1333
integer m
Definition: mod_main.f90:56
real(sp), dimension(:), allocatable, target pfpyb
Definition: mod_main.f90:1343
real(sp), dimension(:,:), allocatable, target hyw
Definition: mod_main.f90:1362
real(sp), dimension(:,:), allocatable, target vf
Definition: mod_main.f90:1282
real(sp), dimension(:,:), allocatable, target ww
Definition: mod_main.f90:1280
real(sp), dimension(:), allocatable, target wusurf_save
Definition: mod_main.f90:1193
real(sp), dimension(:,:), allocatable, target q2l
Definition: mod_main.f90:1292
real(sp), dimension(:), allocatable, target art2
Definition: mod_main.f90:1011
real(sp), dimension(:), allocatable, target bfwdis2
Definition: mod_main.f90:1198
integer, dimension(:), allocatable, target ntrg
Definition: mod_main.f90:1033
real(sp), dimension(:,:), allocatable, target viscofm
Definition: mod_main.f90:1360
real(sp), dimension(:,:), allocatable, target tmean1
Definition: mod_main.f90:1318
real(sp), dimension(:,:), allocatable, target u
Definition: mod_main.f90:1268
real(sp), dimension(:), allocatable, target f_alfa
Definition: mod_main.f90:1114
real(sp), dimension(:,:), allocatable, target s1
Definition: mod_main.f90:1308
real(sp), dimension(:), allocatable, target vard
Definition: mod_main.f90:1111
real(sp), dimension(:,:), allocatable, target drhox
Definition: mod_main.f90:1326
real(sp), dimension(:,:), allocatable, target vbeta
Definition: mod_main.f90:1272
real(sp), dimension(:), allocatable, target wubot
Definition: mod_main.f90:1185
real(sp), dimension(:,:), allocatable, target aw0
Definition: mod_main.f90:1335
integer, dimension(:,:), allocatable, target niec
Definition: mod_main.f90:1032
real(sp), dimension(:), allocatable, target icing_wndy
Definition: mod_main.f90:1206
real(sp), dimension(:), allocatable, target pstx
Definition: mod_main.f90:1254
real(sp), dimension(:,:), allocatable, target smean1
Definition: mod_main.f90:1319
real(sp), dimension(:), allocatable, target el1
Definition: mod_main.f90:1118
real(sp), dimension(:), allocatable, target et
Definition: mod_main.f90:1135
real(sp), dimension(:,:), allocatable, target awy
Definition: mod_main.f90:1334
real(sp), dimension(:), allocatable, target vort
Definition: mod_main.f90:1165
real(sp), dimension(:), allocatable, target vx
Definition: mod_main.f90:1001
real(sp), dimension(:), allocatable, target phpn
Definition: mod_main.f90:1341
real(sp), dimension(:), allocatable, target dltye
Definition: mod_main.f90:1051
real(sp) memcnt
Definition: mod_main.f90:81
real(sp), dimension(:), allocatable ubeta2d
Definition: mod_main.f90:1274
real(sp), dimension(:), allocatable, target bfwslt
Definition: mod_main.f90:1201
real(sp), dimension(:), allocatable, target uard
Definition: mod_main.f90:1110
real(sp), dimension(:), allocatable, target grav_e
Definition: mod_main.f90:1013
real(sp), dimension(:), allocatable, target swrad
Definition: mod_main.f90:1177
real(sp), dimension(:,:), allocatable, target tf1
Definition: mod_main.f90:1310
integer kb
Definition: mod_main.f90:64
real(sp), dimension(:,:), allocatable, target uf
Definition: mod_main.f90:1281
real(sp), dimension(:), allocatable, target wvbot
Definition: mod_main.f90:1186
real(sp), dimension(:), allocatable, target wvsurf2
Definition: mod_main.f90:1183
real(sp), dimension(:), allocatable, target vaf
Definition: mod_main.f90:1106
real(sp), dimension(:), allocatable nn_hvc
Definition: mod_main.f90:1303
real(sp), dimension(:,:), allocatable, target wtts
Definition: mod_main.f90:1322
real(sp), dimension(:), allocatable, target vy
Definition: mod_main.f90:1002
real(sp), dimension(:,:), allocatable, target ubeta
Definition: mod_main.f90:1271
integer, dimension(:), allocatable, target ntve
Definition: mod_main.f90:1022
real(sp), dimension(:), allocatable, target xmc
Definition: mod_main.f90:993
integer, dimension(:,:), allocatable, target nbe
Definition: mod_main.f90:1020
real(sp), dimension(:,:), allocatable, target sf1
Definition: mod_main.f90:1311
real(sp), dimension(:), allocatable, target lonc
Definition: mod_main.f90:997
real(sp), dimension(:), allocatable, target elf
Definition: mod_main.f90:1140
real(sp), dimension(:,:), allocatable, target advy
Definition: mod_main.f90:1264
real(sp), dimension(:), allocatable, target bfwdis
Definition: mod_main.f90:1196
real(sp), dimension(:), allocatable, target cc_z0b
Definition: mod_main.f90:1171
real(sp), dimension(:), allocatable, target wusurf
Definition: mod_main.f90:1191
real(sp), dimension(:), allocatable, target bfwtmp
Definition: mod_main.f90:1200
real(sp), dimension(:), allocatable, target wvbot_n
Definition: mod_main.f90:1189
real(sp), dimension(:), allocatable, target icing_10kts
Definition: mod_main.f90:1209
real(sp), dimension(:,:), allocatable, target dltyecec
Definition: mod_main.f90:1067
real(sp), dimension(:), allocatable, target xm
Definition: mod_main.f90:991
real(dp), parameter zero
Definition: mod_main.f90:882
real(sp), dimension(:,:), allocatable, target zz1
Definition: mod_main.f90:1095
real(sp), dimension(:,:), allocatable, target drhoy
Definition: mod_main.f90:1327
real(sp), dimension(:,:), allocatable, target dltynec
Definition: mod_main.f90:1070
real(sp), dimension(:,:), allocatable, target dzz
Definition: mod_main.f90:1093
real(sp), dimension(:,:), allocatable, target aam
Definition: mod_main.f90:1296
real(sp), dimension(:), allocatable, target wusurf2
Definition: mod_main.f90:1182
real(sp), dimension(:), allocatable, target sita_gd
Definition: mod_main.f90:1344
real(sp), dimension(:,:), allocatable, target wt
Definition: mod_main.f90:1283
real(sp), dimension(:), allocatable, target ua
Definition: mod_main.f90:1103
real(sp), dimension(:), allocatable, target qevap
Definition: mod_main.f90:1240
real(sp), dimension(:,:), allocatable, target tmean
Definition: mod_main.f90:1287
real(sp), dimension(:,:), allocatable, target q2f
Definition: mod_main.f90:1297
real(sp), dimension(:,:), allocatable, target dz
Definition: mod_main.f90:1092
real(sp), dimension(:), allocatable, target sitae
Definition: mod_main.f90:1043
real(sp), dimension(:,:), allocatable, target l
Definition: mod_main.f90:1291
real(sp), dimension(:,:), allocatable, target kh
Definition: mod_main.f90:1294
real(sp), dimension(:), allocatable, target ady2d
Definition: mod_main.f90:1259
real(sp), dimension(:), allocatable, target swrad_watts
Definition: mod_main.f90:1173
real(sp), dimension(:), allocatable, target tps
Definition: mod_main.f90:1262
real(sp), dimension(:), allocatable, target taubm_n
Definition: mod_main.f90:1190
logical icing_model
Definition: mod_main.f90:719
real(sp), dimension(:,:), allocatable, target dltxtrie
Definition: mod_main.f90:1064
real(sp), dimension(:,:), allocatable, target a2u
Definition: mod_main.f90:1332
real(sp), dimension(:), allocatable, target lat
Definition: mod_main.f90:996
real(sp), dimension(:), allocatable, target dt1
Definition: mod_main.f90:1117
real(sp), dimension(:,:), allocatable, target z
Definition: mod_main.f90:1090
real(sp), dimension(:), allocatable, target icing_satmp
Definition: mod_main.f90:1207
real(sp), dimension(:), allocatable, target h1
Definition: mod_main.f90:1115
real(sp), dimension(:), allocatable, target lon
Definition: mod_main.f90:995
real(sp), dimension(:), allocatable, target xc
Definition: mod_main.f90:1003
real(sp), dimension(:), allocatable, target vvwind
Definition: mod_main.f90:1233
real(sp), dimension(:), allocatable, target uaf
Definition: mod_main.f90:1105
real(sp), dimension(:), allocatable, target dry2d
Definition: mod_main.f90:1261
real(sp), dimension(:), allocatable, target taubm
Definition: mod_main.f90:1187
real(sp), dimension(:,:), allocatable, target dz1
Definition: mod_main.f90:1096
real(sp), dimension(:,:), allocatable, target dltxecec
Definition: mod_main.f90:1066
real(sp), dimension(:,:), allocatable, target t0
Definition: mod_main.f90:1313
real(sp), dimension(:,:), allocatable, target z1
Definition: mod_main.f90:1094
real(sp), dimension(:), allocatable, target elf1
Definition: mod_main.f90:1123
real(sp), dimension(:), allocatable, target qprec2
Definition: mod_main.f90:1236
real(sp), dimension(:), allocatable, target grav_n
Definition: mod_main.f90:1013
integer, dimension(:), allocatable, target isbce
Definition: mod_main.f90:1027
real(sp), dimension(:), allocatable, target wvsurf_save
Definition: mod_main.f90:1194
real(sp), dimension(:), allocatable, target cc_sponge
Definition: mod_main.f90:1127
real(sp), dimension(:,:), allocatable, target smean
Definition: mod_main.f90:1289
real(sp), dimension(:,:), allocatable, target wts
Definition: mod_main.f90:1321
real(sp), dimension(:,:), allocatable, target t
Definition: mod_main.f90:1286
real(sp), dimension(:), allocatable, target ah_bottom
Definition: mod_main.f90:1345
real(sp), dimension(:), allocatable, target wtsurf
Definition: mod_main.f90:1178
real(sp), dimension(:,:), allocatable, target s2
Definition: mod_main.f90:1316
real(sp), dimension(:), allocatable, target dltxe
Definition: mod_main.f90:1050
real(sp), dimension(:), allocatable, target cbc
Definition: mod_main.f90:1170
real(sp), dimension(:), allocatable, target vark
Definition: mod_main.f90:1109
real(sp), dimension(:,:), allocatable, target km1
Definition: mod_main.f90:1299
real(sp), dimension(:,:), allocatable, target s0
Definition: mod_main.f90:1315
real(sp), dimension(:), allocatable, target advva
Definition: mod_main.f90:1257
integer, dimension(:), allocatable, target isonb
Definition: mod_main.f90:1024
real(sp), dimension(:,:), allocatable, target zz
Definition: mod_main.f90:1091
integer nt
Definition: mod_main.f90:77
real(sp), dimension(:), allocatable, target et1
Definition: mod_main.f90:1119
real(sp), dimension(:,:), allocatable, target kq
Definition: mod_main.f90:1295
real(sp), dimension(:,:), allocatable, target rmean
Definition: mod_main.f90:1285
real(sp), dimension(:), allocatable, target wvsurf
Definition: mod_main.f90:1192
real(sp), dimension(:), allocatable, target uuwind
Definition: mod_main.f90:1232
real(sp), dimension(:), allocatable, target dt
Definition: mod_main.f90:1133
real(sp), dimension(:,:), allocatable, target rmean1
Definition: mod_main.f90:1320
real(sp), dimension(:), allocatable, target drx2d
Definition: mod_main.f90:1260
real(sp), dimension(:), allocatable, target ym
Definition: mod_main.f90:992
real(sp), dimension(:), allocatable, target icing_wndx
Definition: mod_main.f90:1205
Here is the caller graph for this function:

◆ e2n2d()

subroutine all_vars::e2n2d ( real(sp), dimension(0:nt), intent(in)  EVAR,
real(sp), dimension(0:mt), intent(inout)  NVAR 
)

Definition at line 1408 of file mod_main.f90.

1408 !==============================================================================|
1409  IMPLICIT NONE
1410  REAL(SP), DIMENSION(0:NT), INTENT(IN ) :: EVAR
1411  REAL(SP), DIMENSION(0:MT), INTENT(INOUT) :: NVAR
1412 
1413  INTEGER I,K
1414 !------------------------------------------------------------------------------|
1415  DO i=1,m
1416  nvar(i) = sum(evar(nbve(i,1:ntve(i))))/float(ntve(i))
1417  END DO
1418  RETURN
integer m
Definition: mod_main.f90:56
integer, dimension(:), allocatable, target ntve
Definition: mod_main.f90:1022
integer, dimension(:,:), allocatable, target nbve
Definition: mod_main.f90:1034
Here is the caller graph for this function:

◆ e2n3d()

subroutine all_vars::e2n3d ( real(sp), dimension(0:nt,1:kb), intent(in)  EVAR,
real(sp), dimension(0:mt,1:kb), intent(inout)  NVAR 
)

Definition at line 1427 of file mod_main.f90.

1427 !==============================================================================|
1428  IMPLICIT NONE
1429  REAL(SP), DIMENSION(0:NT,1:KB), INTENT(IN ) :: EVAR
1430  REAL(SP), DIMENSION(0:MT,1:KB), INTENT(INOUT) :: NVAR
1431  INTEGER I,K
1432 !------------------------------------------------------------------------------|
1433  DO k=1,kb
1434  DO i=1,m
1435  nvar(i,k) = sum(evar(nbve(i,1:ntve(i)),k))/float(ntve(i))
1436  END DO
1437  END DO
1438  RETURN
integer m
Definition: mod_main.f90:56
integer kb
Definition: mod_main.f90:64
integer, dimension(:), allocatable, target ntve
Definition: mod_main.f90:1022
integer, dimension(:,:), allocatable, target nbve
Definition: mod_main.f90:1034

◆ n2e2d()

subroutine all_vars::n2e2d ( real(sp), dimension(0:mt), intent(in)  NVAR,
real(sp), dimension(0:nt), intent(inout)  EVAR 
)

Definition at line 1390 of file mod_main.f90.

1390 !==============================================================================|
1391  IMPLICIT NONE
1392  REAL(SP), DIMENSION(0:MT), INTENT(IN) :: NVAR
1393  REAL(SP), DIMENSION(0:NT), INTENT(INOUT) :: EVAR
1394  INTEGER I,K
1395 !------------------------------------------------------------------------------|
1396  DO i = 1, nt
1397  evar(i) = one_third*(nvar(nv(i,1))+nvar(nv(i,2))+nvar(nv(i,3)))
1398  END DO
1399  RETURN
integer, dimension(:,:), allocatable, target nv
Definition: mod_main.f90:1018
real(dp), parameter one_third
Definition: mod_main.f90:883
integer nt
Definition: mod_main.f90:77
Here is the caller graph for this function:

◆ n2e3d()

subroutine all_vars::n2e3d ( real(sp), dimension(0:mt,1:kb), intent(in)  NVAR,
real(sp), dimension(0:nt,1:kb), intent(inout)  EVAR 
)

Definition at line 1370 of file mod_main.f90.

1370 !==============================================================================|
1371  IMPLICIT NONE
1372  REAL(SP), DIMENSION(0:MT,1:KB), INTENT(IN) :: NVAR
1373  REAL(SP), DIMENSION(0:NT,1:KB), INTENT(INOUT) :: EVAR
1374  INTEGER I,K
1375 !------------------------------------------------------------------------------|
1376  DO k=1,kb
1377  DO i = 1, nt
1378  evar(i,k) = one_third*(nvar(nv(i,1),k)+nvar(nv(i,2),k)+nvar(nv(i,3),k))
1379  END DO
1380  END DO
1381  RETURN
integer kb
Definition: mod_main.f90:64
integer, dimension(:,:), allocatable, target nv
Definition: mod_main.f90:1018
real(dp), parameter one_third
Definition: mod_main.f90:883
integer nt
Definition: mod_main.f90:77
Here is the caller graph for this function:

Variable Documentation

◆ a1u

real(sp), dimension(:,:), allocatable, target all_vars::a1u

Definition at line 1331 of file mod_main.f90.

1331  REAL(SP), ALLOCATABLE,TARGET :: A1U(:,:)

◆ a2u

real(sp), dimension(:,:), allocatable, target all_vars::a2u

Definition at line 1332 of file mod_main.f90.

1332  REAL(SP), ALLOCATABLE,TARGET :: A2U(:,:)

◆ aam

real(sp), dimension(:,:), allocatable, target all_vars::aam

Definition at line 1296 of file mod_main.f90.

1296  REAL(SP), ALLOCATABLE,TARGET :: AAM(:,:) !STORAGE FOR OUTPUT OF HORIZONTAL VISCOSITY

◆ advua

real(sp), dimension(:), allocatable, target all_vars::advua

Definition at line 1256 of file mod_main.f90.

1256  REAL(SP), ALLOCATABLE,TARGET :: ADVUA(:)

◆ advva

real(sp), dimension(:), allocatable, target all_vars::advva

Definition at line 1257 of file mod_main.f90.

1257  REAL(SP), ALLOCATABLE,TARGET :: ADVVA(:)

◆ advx

real(sp), dimension(:,:), allocatable, target all_vars::advx

Definition at line 1263 of file mod_main.f90.

1263  REAL(SP), ALLOCATABLE,TARGET :: ADVX(:,:)

◆ advy

real(sp), dimension(:,:), allocatable, target all_vars::advy

Definition at line 1264 of file mod_main.f90.

1264  REAL(SP), ALLOCATABLE,TARGET :: ADVY(:,:)

◆ adx2d

real(sp), dimension(:), allocatable, target all_vars::adx2d

Definition at line 1258 of file mod_main.f90.

1258  REAL(SP), ALLOCATABLE,TARGET :: ADX2D(:)

◆ ady2d

real(sp), dimension(:), allocatable, target all_vars::ady2d

Definition at line 1259 of file mod_main.f90.

1259  REAL(SP), ALLOCATABLE,TARGET :: ADY2D(:)

◆ ah_bottom

real(sp), dimension(:), allocatable, target all_vars::ah_bottom

Definition at line 1345 of file mod_main.f90.

1345  REAL(SP), ALLOCATABLE,TARGET :: AH_BOTTOM(:)

◆ alpha

real(sp), dimension(:), allocatable, target all_vars::alpha

Definition at line 1336 of file mod_main.f90.

1336  REAL(SP), ALLOCATABLE,TARGET :: ALPHA(:)

◆ angleq

real(sp), dimension(:), allocatable, target all_vars::angleq

Definition at line 1228 of file mod_main.f90.

1228  REAL(SP), ALLOCATABLE,TARGET :: ANGLEQ(:) !!RIVER DISCHARGE ANGLE

◆ art

real(sp), dimension(:), allocatable, target all_vars::art

Definition at line 1009 of file mod_main.f90.

1009  REAL(SP), ALLOCATABLE,TARGET :: ART(:) !!AREA OF ELEMENT

◆ art1

real(sp), dimension(:), allocatable, target all_vars::art1

Definition at line 1010 of file mod_main.f90.

1010  REAL(SP), ALLOCATABLE,TARGET :: ART1(:) !!AREA OF NODE-BASE CONTROl VOLUME

◆ art2

real(sp), dimension(:), allocatable, target all_vars::art2

Definition at line 1011 of file mod_main.f90.

1011  REAL(SP), ALLOCATABLE,TARGET :: ART2(:) !!AREA OF ELEMENTS AROUND NODE

◆ aw0

real(sp), dimension(:,:), allocatable, target all_vars::aw0

Definition at line 1335 of file mod_main.f90.

1335  REAL(SP), ALLOCATABLE,TARGET :: AW0(:,:)

◆ awx

real(sp), dimension(:,:), allocatable, target all_vars::awx

Definition at line 1333 of file mod_main.f90.

1333  REAL(SP), ALLOCATABLE,TARGET :: AWX(:,:)

◆ awy

real(sp), dimension(:,:), allocatable, target all_vars::awy

Definition at line 1334 of file mod_main.f90.

1334  REAL(SP), ALLOCATABLE,TARGET :: AWY(:,:)

◆ bfwdis

real(sp), dimension(:), allocatable, target all_vars::bfwdis

Definition at line 1196 of file mod_main.f90.

1196  REAL(SP), ALLOCATABLE,TARGET :: BFWDIS(:) !!GROUNDWATER FLUX AT CURRENT TIME

◆ bfwdis2

real(sp), dimension(:), allocatable, target all_vars::bfwdis2

Definition at line 1198 of file mod_main.f90.

1198  REAL(SP), ALLOCATABLE,TARGET :: BFWDIS2(:) !!GROUNDWATER FLUX FOR EXT

◆ bfwslt

real(sp), dimension(:), allocatable, target all_vars::bfwslt

Definition at line 1201 of file mod_main.f90.

1201  REAL(SP), ALLOCATABLE,TARGET :: BFWSLT(:) !!GROUNDWATER SALT AT CURRENT TIME

◆ bfwtmp

real(sp), dimension(:), allocatable, target all_vars::bfwtmp

Definition at line 1200 of file mod_main.f90.

1200  REAL(SP), ALLOCATABLE,TARGET :: BFWTMP(:) !!GROUNDWATER TEMP AT CURRENT TIME

◆ cbc

real(sp), dimension(:), allocatable, target all_vars::cbc

Definition at line 1170 of file mod_main.f90.

1170  REAL(SP), ALLOCATABLE,TARGET :: CBC(:) !!BOTTOM FRICTION

◆ cc_hvc

real(sp), dimension(:), allocatable all_vars::cc_hvc

Definition at line 1302 of file mod_main.f90.

1302  REAL(SP), ALLOCATABLE :: CC_HVC(:)

◆ cc_sponge

real(sp), dimension(:), allocatable, target all_vars::cc_sponge

Definition at line 1127 of file mod_main.f90.

1127  REAL(SP), ALLOCATABLE,TARGET :: CC_SPONGE(:) !!SPONGE DAMPING COEFFICIENT FOR MOMENTUM

◆ cc_z0b

real(sp), dimension(:), allocatable, target all_vars::cc_z0b

Definition at line 1171 of file mod_main.f90.

1171  REAL(SP), ALLOCATABLE,TARGET :: CC_Z0B(:) !!BOTTOM ROUGHNESS VARIABLE

◆ cor

real(sp), dimension(:), allocatable, target all_vars::cor

Definition at line 1113 of file mod_main.f90.

1113  REAL(SP), ALLOCATABLE,TARGET :: COR(:) !!CORIOLIS PARAMETER

◆ d

real(sp), dimension(:), allocatable, target all_vars::d

Definition at line 1132 of file mod_main.f90.

1132  REAL(SP), ALLOCATABLE,TARGET :: D(:) !!CURRENT DEPTH

◆ d1

real(sp), dimension(:), allocatable, target all_vars::d1

Definition at line 1116 of file mod_main.f90.

1116  REAL(SP), ALLOCATABLE,TARGET :: D1(:) !!CURRENT DEPTH

◆ dltxc

real(sp), dimension(:), allocatable, target all_vars::dltxc

Definition at line 1040 of file mod_main.f90.

1040  REAL(SP),ALLOCATABLE,TARGET :: DLTXC(:)

◆ dltxe

real(sp), dimension(:), allocatable, target all_vars::dltxe

Definition at line 1050 of file mod_main.f90.

1050  REAL(SP),ALLOCATABLE,TARGET :: DLTXE(:)

◆ dltxecec

real(sp), dimension(:,:), allocatable, target all_vars::dltxecec

Definition at line 1066 of file mod_main.f90.

1066  REAL(SP),ALLOCATABLE,TARGET :: DLTXECEC(:,:)!! DeLTa X Edge Center to Edge Center

◆ dltxncve

real(sp), dimension(:,:), allocatable, target all_vars::dltxncve

Definition at line 1059 of file mod_main.f90.

1059  REAL(SP),ALLOCATABLE,TARGET :: DLTXNCVE(:,:)!! DeLTa X Node to Control Volume Edge

◆ dltxnec

real(sp), dimension(:,:), allocatable, target all_vars::dltxnec

Definition at line 1069 of file mod_main.f90.

1069  REAL(SP),ALLOCATABLE,TARGET :: DLTXNEC(:,:)!! DeLTa X Node to Edge Center

◆ dltxtrie

real(sp), dimension(:,:), allocatable, target all_vars::dltxtrie

Definition at line 1064 of file mod_main.f90.

1064  REAL(SP),ALLOCATABLE,TARGET :: DLTXTRIE(:,:)!! DeLTa X TRIangle Edge

◆ dltxyc

real(sp), dimension(:), allocatable, target all_vars::dltxyc

Definition at line 1042 of file mod_main.f90.

1042  REAL(SP),ALLOCATABLE,TARGET :: DLTXYC(:)

◆ dltxye

real(sp), dimension(:), allocatable, target all_vars::dltxye

Definition at line 1052 of file mod_main.f90.

1052  REAL(SP),ALLOCATABLE,TARGET :: DLTXYE(:)

◆ dltyc

real(sp), dimension(:), allocatable, target all_vars::dltyc

Definition at line 1041 of file mod_main.f90.

1041  REAL(SP),ALLOCATABLE,TARGET :: DLTYC(:)

◆ dltye

real(sp), dimension(:), allocatable, target all_vars::dltye

Definition at line 1051 of file mod_main.f90.

1051  REAL(SP),ALLOCATABLE,TARGET :: DLTYE(:)

◆ dltyecec

real(sp), dimension(:,:), allocatable, target all_vars::dltyecec

Definition at line 1067 of file mod_main.f90.

1067  REAL(SP),ALLOCATABLE,TARGET :: DLTYECEC(:,:)!! DeLTa Y Edge Center to Edge Center

◆ dltyncve

real(sp), dimension(:,:), allocatable, target all_vars::dltyncve

Definition at line 1060 of file mod_main.f90.

1060  REAL(SP),ALLOCATABLE,TARGET :: DLTYNCVE(:,:)!! DeLTa Y Node to Control Volume Edge

◆ dltynec

real(sp), dimension(:,:), allocatable, target all_vars::dltynec

Definition at line 1070 of file mod_main.f90.

1070  REAL(SP),ALLOCATABLE,TARGET :: DLTYNEC(:,:)!! DeLTa Y Node to Edge Center

◆ dltytrie

real(sp), dimension(:,:), allocatable, target all_vars::dltytrie

Definition at line 1063 of file mod_main.f90.

1063  REAL(SP),ALLOCATABLE,TARGET :: DLTYTRIE(:,:)!! DeLTa Y TRIangle Edge

◆ drhox

real(sp), dimension(:,:), allocatable, target all_vars::drhox

Definition at line 1326 of file mod_main.f90.

1326  REAL(SP), ALLOCATABLE,TARGET :: DRHOX(:,:) !!BAROCLINIC PG IN X DIRECTION

◆ drhoy

real(sp), dimension(:,:), allocatable, target all_vars::drhoy

Definition at line 1327 of file mod_main.f90.

1327  REAL(SP), ALLOCATABLE,TARGET :: DRHOY(:,:) !!BAROCLINIC PG IN Y DIRECTION

◆ drx2d

real(sp), dimension(:), allocatable, target all_vars::drx2d

Definition at line 1260 of file mod_main.f90.

1260  REAL(SP), ALLOCATABLE,TARGET :: DRX2D(:)

◆ dry2d

real(sp), dimension(:), allocatable, target all_vars::dry2d

Definition at line 1261 of file mod_main.f90.

1261  REAL(SP), ALLOCATABLE,TARGET :: DRY2D(:)

◆ dt

real(sp), dimension(:), allocatable, target all_vars::dt

Definition at line 1133 of file mod_main.f90.

1133  REAL(SP), ALLOCATABLE,TARGET :: DT(:) !!DEPTH AT PREVIOUS TIME STEP

◆ dt1

real(sp), dimension(:), allocatable, target all_vars::dt1

Definition at line 1117 of file mod_main.f90.

1117  REAL(SP), ALLOCATABLE,TARGET :: DT1(:) !!DEPTH AT PREVIOUS TIME STEP

◆ dtfa

real(sp), dimension(:), allocatable, target all_vars::dtfa

Definition at line 1124 of file mod_main.f90.

1124  REAL(SP), ALLOCATABLE,TARGET :: DTFA(:) !!ADJUSTED DEPTH FOR MASS CONSERVATION

◆ dz

real(sp), dimension(:,:), allocatable, target all_vars::dz

Definition at line 1092 of file mod_main.f90.

1092  REAL(SP), ALLOCATABLE,TARGET :: DZ(:,:) !!DELTA-SIGMA VALUE

◆ dz1

real(sp), dimension(:,:), allocatable, target all_vars::dz1

Definition at line 1096 of file mod_main.f90.

1096  REAL(SP), ALLOCATABLE,TARGET :: DZ1(:,:) !!DELTA-SIGMA VALUE

◆ dzz

real(sp), dimension(:,:), allocatable, target all_vars::dzz

Definition at line 1093 of file mod_main.f90.

1093  REAL(SP), ALLOCATABLE,TARGET :: DZZ(:,:) !!DELTA OF INTRA LEVEL SIGMA

◆ dzz1

real(sp), dimension(:,:), allocatable, target all_vars::dzz1

Definition at line 1097 of file mod_main.f90.

1097  REAL(SP), ALLOCATABLE,TARGET :: DZZ1(:,:) !!DELTA OF INTRA LEVEL SIGMA

◆ egf

real(sp), dimension(:), allocatable, target all_vars::egf

Definition at line 1136 of file mod_main.f90.

1136  REAL(SP), ALLOCATABLE,TARGET :: EGF(:) !!AVERAGE SURFACE ELEVATION OVER EXTERNAL INT

◆ egf_air

real(sp), dimension(:), allocatable, target all_vars::egf_air

Definition at line 1163 of file mod_main.f90.

1163  REAL(SP), ALLOCATABLE,TARGET :: EGF_AIR(:)

◆ egf_atmo

real(sp), dimension(:), allocatable, target all_vars::egf_atmo

Definition at line 1155 of file mod_main.f90.

1155  REAL(SP), ALLOCATABLE,TARGET :: EGF_ATMO(:)

◆ egf_eqi

real(sp), dimension(:), allocatable, target all_vars::egf_eqi

Definition at line 1148 of file mod_main.f90.

1148  REAL(SP), ALLOCATABLE,TARGET :: EGF_EQI(:)

◆ el

real(sp), dimension(:), allocatable, target all_vars::el

Definition at line 1134 of file mod_main.f90.

1134  REAL(SP), ALLOCATABLE,TARGET :: EL(:) !!CURRENT SURFACE ELEVATION

◆ el1

real(sp), dimension(:), allocatable, target all_vars::el1

Definition at line 1118 of file mod_main.f90.

1118  REAL(SP), ALLOCATABLE,TARGET :: EL1(:) !!CURRENT SURFACE ELEVATION

◆ el_air

real(sp), dimension(:), allocatable, target all_vars::el_air

Definition at line 1162 of file mod_main.f90.

1162  REAL(SP), ALLOCATABLE,TARGET :: EL_AIR(:)

◆ el_atmo

real(sp), dimension(:), allocatable, target all_vars::el_atmo

Definition at line 1154 of file mod_main.f90.

1154  REAL(SP), ALLOCATABLE,TARGET :: EL_ATMO(:)

◆ el_ave

real(sp), dimension(:), allocatable, target all_vars::el_ave

Definition at line 1357 of file mod_main.f90.

1357  REAL(SP), ALLOCATABLE,TARGET :: EL_AVE(:) !EL AVERAGED OVER INT_AVGE ITERATIONS

◆ el_eqi

real(sp), dimension(:), allocatable, target all_vars::el_eqi

Definition at line 1147 of file mod_main.f90.

1147  REAL(SP), ALLOCATABLE,TARGET :: EL_EQI(:)

◆ elf

real(sp), dimension(:), allocatable, target all_vars::elf

Definition at line 1140 of file mod_main.f90.

1140  REAL(SP), ALLOCATABLE,TARGET :: ELF(:) !!SURFACE ELEVATION STORAGE FOR RK INT

◆ elf1

real(sp), dimension(:), allocatable, target all_vars::elf1

Definition at line 1123 of file mod_main.f90.

1123  REAL(SP), ALLOCATABLE,TARGET :: ELF1(:) !!SURFACE ELEVATION STORAGE FOR RK INT

◆ elf_air

real(sp), dimension(:), allocatable, target all_vars::elf_air

Definition at line 1158 of file mod_main.f90.

1158  REAL(SP), ALLOCATABLE,TARGET :: ELF_AIR(:)

◆ elf_atmo

real(sp), dimension(:), allocatable, target all_vars::elf_atmo

Definition at line 1150 of file mod_main.f90.

1150  REAL(SP), ALLOCATABLE,TARGET :: ELF_ATMO(:)

◆ elf_eqi

real(sp), dimension(:), allocatable, target all_vars::elf_eqi

Definition at line 1143 of file mod_main.f90.

1143  REAL(SP), ALLOCATABLE,TARGET :: ELF_EQI(:)

◆ elrk

real(sp), dimension(:), allocatable, target all_vars::elrk

Definition at line 1138 of file mod_main.f90.

1138  REAL(SP), ALLOCATABLE,TARGET :: ELRK(:) !!SURFACE ELEVATION AT BEGINNING OF RK INT

◆ elrk1

real(sp), dimension(:), allocatable, target all_vars::elrk1

Definition at line 1121 of file mod_main.f90.

1121  REAL(SP), ALLOCATABLE,TARGET :: ELRK1(:) !!SURFACE ELEVATION AT BEGINNING OF RK INT

◆ elrk_air

real(sp), dimension(:), allocatable, target all_vars::elrk_air

Definition at line 1160 of file mod_main.f90.

1160  REAL(SP), ALLOCATABLE,TARGET :: ELRK_AIR(:)

◆ elrk_atmo

real(sp), dimension(:), allocatable, target all_vars::elrk_atmo

Definition at line 1152 of file mod_main.f90.

1152  REAL(SP), ALLOCATABLE,TARGET :: ELRK_ATMO(:)

◆ elrk_eqi

real(sp), dimension(:), allocatable, target all_vars::elrk_eqi

Definition at line 1145 of file mod_main.f90.

1145  REAL(SP), ALLOCATABLE,TARGET :: ELRK_EQI(:)

◆ epor

real(sp), dimension(:), allocatable, target all_vars::epor

Definition at line 1056 of file mod_main.f90.

1056  REAL(SP),ALLOCATABLE,TARGET :: EPOR(:) !!ELEMENT FLUX POROSITY (=0. IF ISBCE = 2)

◆ et

real(sp), dimension(:), allocatable, target all_vars::et

Definition at line 1135 of file mod_main.f90.

1135  REAL(SP), ALLOCATABLE,TARGET :: ET(:) !!SURFACE ELEVATION AT PREVIOUS TIME STEP

◆ et1

real(sp), dimension(:), allocatable, target all_vars::et1

Definition at line 1119 of file mod_main.f90.

1119  REAL(SP), ALLOCATABLE,TARGET :: ET1(:) !!SURFACE ELEVATION AT PREVIOUS TIME STEP

◆ f_alfa

real(sp), dimension(:), allocatable, target all_vars::f_alfa

Definition at line 1114 of file mod_main.f90.

1114  REAL(SP), ALLOCATABLE,TARGET :: F_ALFA(:)

◆ grav_e

real(sp), dimension(:), allocatable, target all_vars::grav_e

Definition at line 1013 of file mod_main.f90.

◆ grav_n

real(sp), dimension(:), allocatable, target all_vars::grav_n

Definition at line 1013 of file mod_main.f90.

1013  REAL(SP),ALLOCATABLE,TARGET :: GRAV_N(:),GRAV_E(:) ! CALCULATED AS A

◆ h

real(sp), dimension(:), allocatable, target all_vars::h

Definition at line 1131 of file mod_main.f90.

1131  REAL(SP), ALLOCATABLE,TARGET :: H(:) !!BATHYMETRIC DEPTH

◆ h1

real(sp), dimension(:), allocatable, target all_vars::h1

Definition at line 1115 of file mod_main.f90.

1115  REAL(SP), ALLOCATABLE,TARGET :: H1(:) !!BATHYMETRIC DEPTH

◆ hg

real(sp), dimension(:), allocatable all_vars::hg

Definition at line 977 of file mod_main.f90.

977  REAL(SP), ALLOCATABLE :: HG(:) !!GLOBAL DEPTH AT NODE

◆ hyw

real(sp), dimension(:,:), allocatable, target all_vars::hyw

Definition at line 1362 of file mod_main.f90.

1362  REAL(SP), ALLOCATABLE,TARGET :: HYW(:,:)

◆ ibclsf

integer, dimension(:), allocatable, target all_vars::ibclsf

Definition at line 1080 of file mod_main.f90.

1080  INTEGER, ALLOCATABLE,TARGET :: IBCLSF(:) !!LOCAL NODE NUMBER OF LSF BOUNDARY

◆ ibclsf_gl

integer, dimension(:), allocatable, target all_vars::ibclsf_gl

Definition at line 1074 of file mod_main.f90.

1074  INTEGER, ALLOCATABLE,TARGET :: IBCLSF_GL(:) !!GLOBAL NODE NUMBER OF LSF BOUNDARY

◆ ibclsf_output

integer, dimension(:), allocatable, target all_vars::ibclsf_output

Definition at line 1081 of file mod_main.f90.

1081  INTEGER, ALLOCATABLE,TARGET :: IBCLSF_OUTPUT(:) !! LIST OF LOCAL LSF NODES GLOBAL NUMBER FOR OUTPUT

◆ icellq

integer, dimension(:), allocatable, target all_vars::icellq

Definition at line 1215 of file mod_main.f90.

1215  INTEGER, ALLOCATABLE,TARGET :: ICELLQ(:) !!LOCAL FRESH WATER INFLOW ELEMENT

◆ icing_0kts

real(sp), dimension(:), allocatable, target all_vars::icing_0kts

Definition at line 1208 of file mod_main.f90.

1208  REAL(SP), ALLOCATABLE,TARGET :: ICING_0kts(:)

◆ icing_10kts

real(sp), dimension(:), allocatable, target all_vars::icing_10kts

Definition at line 1209 of file mod_main.f90.

1209  REAL(SP), ALLOCATABLE,TARGET :: ICING_10kts(:)

◆ icing_satmp

real(sp), dimension(:), allocatable, target all_vars::icing_satmp

Definition at line 1207 of file mod_main.f90.

1207  REAL(SP), ALLOCATABLE,TARGET :: ICING_SATMP(:)

◆ icing_wndx

real(sp), dimension(:), allocatable, target all_vars::icing_wndx

Definition at line 1205 of file mod_main.f90.

1205  REAL(SP), ALLOCATABLE,TARGET :: ICING_WNDX(:)

◆ icing_wndy

real(sp), dimension(:), allocatable, target all_vars::icing_wndy

Definition at line 1206 of file mod_main.f90.

1206  REAL(SP), ALLOCATABLE,TARGET :: ICING_WNDY(:)

◆ iec

integer, dimension(:,:), allocatable, target all_vars::iec

Definition at line 1028 of file mod_main.f90.

1028  INTEGER, ALLOCATABLE,TARGET :: IEC(:,:)

◆ ienode

integer, dimension(:,:), allocatable, target all_vars::ienode

Definition at line 1029 of file mod_main.f90.

1029  INTEGER, ALLOCATABLE,TARGET :: IENODE(:,:)

◆ inodeq

integer, dimension(:), allocatable, target all_vars::inodeq

Definition at line 1214 of file mod_main.f90.

1214  INTEGER, ALLOCATABLE,TARGET :: INODEQ(:) !!LOCAL FRESH WATER INFLOW NODES

◆ isbc

integer, dimension(:), allocatable, target all_vars::isbc

Definition at line 1026 of file mod_main.f90.

1026  INTEGER, ALLOCATABLE,TARGET :: ISBC(:)

◆ isbce

integer, dimension(:), allocatable, target all_vars::isbce

Definition at line 1027 of file mod_main.f90.

1027  INTEGER, ALLOCATABLE,TARGET :: ISBCE(:)

◆ isonb

integer, dimension(:), allocatable, target all_vars::isonb

Definition at line 1024 of file mod_main.f90.

1024  INTEGER, ALLOCATABLE,TARGET :: ISONB(:) !!NODE MARKER = 0,1,2

◆ isonb_w

integer, dimension(:), allocatable, target all_vars::isonb_w

Definition at line 1025 of file mod_main.f90.

1025  INTEGER, ALLOCATABLE,TARGET :: ISONB_W(:) !!NODE MARKER = 0,1,2

◆ kh

real(sp), dimension(:,:), allocatable, target all_vars::kh

Definition at line 1294 of file mod_main.f90.

1294  REAL(SP), ALLOCATABLE,TARGET :: KH(:,:) !TURBULENT DIFFUSIVITY FOR SALINITY/TEMP

◆ kh_ave

real(sp), dimension(:,:), allocatable, target all_vars::kh_ave

Definition at line 1353 of file mod_main.f90.

1353  REAL(SP), ALLOCATABLE,TARGET :: KH_AVE(:,:) !KH AVERAGED OVER INT_AVGE ITERATIONS

◆ km

real(sp), dimension(:,:), allocatable, target all_vars::km

Definition at line 1293 of file mod_main.f90.

1293  REAL(SP), ALLOCATABLE,TARGET :: KM(:,:) !TURBULENT EDDY VISCOSITY FOR MOMENTUM

◆ km1

real(sp), dimension(:,:), allocatable, target all_vars::km1

Definition at line 1299 of file mod_main.f90.

1299  REAL(SP), ALLOCATABLE,TARGET :: KM1(:,:) !TURBULENT EDDY VISCOSITY FOR MOMENTUM

◆ km_ave

real(sp), dimension(:,:), allocatable, target all_vars::km_ave

Definition at line 1352 of file mod_main.f90.

1352  REAL(SP), ALLOCATABLE,TARGET :: KM_AVE(:,:) !KM AVERAGED OVER INT_AVGE ITERATIONS

◆ kq

real(sp), dimension(:,:), allocatable, target all_vars::kq

Definition at line 1295 of file mod_main.f90.

1295  REAL(SP), ALLOCATABLE,TARGET :: KQ(:,:) !TURBULENT DIFFUSIVITY FOR Q2/Q2L

◆ l

real(sp), dimension(:,:), allocatable, target all_vars::l

Definition at line 1291 of file mod_main.f90.

1291  REAL(SP), ALLOCATABLE,TARGET :: L(:,:) !TURBULENT LENGTH MACROSCALE

◆ lat

real(sp), dimension(:), allocatable, target all_vars::lat

Definition at line 996 of file mod_main.f90.

996  REAL(SP), ALLOCATABLE,TARGET :: LAT(:) !!LATITUDE AT THE NODE

◆ latc

real(sp), dimension(:), allocatable, target all_vars::latc

Definition at line 998 of file mod_main.f90.

998  REAL(SP), ALLOCATABLE,TARGET :: LATC(:) !!LATITUDE AT THE NODE

◆ lisbce_1

integer, dimension(:), allocatable, target all_vars::lisbce_1

Definition at line 1037 of file mod_main.f90.

1037  INTEGER, ALLOCATABLE,TARGET :: LISBCE_1(:) !!LIST OF ELEMENTS WITH ISBCE=1

◆ lisbce_2

integer, dimension(:), allocatable, target all_vars::lisbce_2

Definition at line 1038 of file mod_main.f90.

1038  INTEGER, ALLOCATABLE,TARGET :: LISBCE_2(:) !!LIST OF ELEMENTS WITH ISBCE=2

◆ lisbce_3

integer, dimension(:), allocatable, target all_vars::lisbce_3

Definition at line 1039 of file mod_main.f90.

1039  INTEGER, ALLOCATABLE,TARGET :: LISBCE_3(:) !!LIST OF ELEMENTS WITH ISBCE=3

◆ lon

real(sp), dimension(:), allocatable, target all_vars::lon

Definition at line 995 of file mod_main.f90.

995  REAL(SP), ALLOCATABLE,TARGET :: LON(:) !!LONGITUDE AT THE NODE

◆ lonc

real(sp), dimension(:), allocatable, target all_vars::lonc

Definition at line 997 of file mod_main.f90.

997  REAL(SP), ALLOCATABLE,TARGET :: LONC(:) !!LONGITUDE AT THE NODE

◆ n_icellq

integer, dimension(:,:), allocatable, target all_vars::n_icellq

Definition at line 1216 of file mod_main.f90.

1216  INTEGER, ALLOCATABLE,TARGET :: N_ICELLQ(:,:) !!TWO NODES BOUNDING THE INFLOW ELEMENT

◆ nbclsf

integer, dimension(:), allocatable, target all_vars::nbclsf

Definition at line 1082 of file mod_main.f90.

1082  INTEGER, ALLOCATABLE,TARGET :: NBCLSF(:) !!LOCAL NODE NUMBER OF THE NEXT LSF BOUNDARY

◆ nbe

integer, dimension(:,:), allocatable, target all_vars::nbe

Definition at line 1020 of file mod_main.f90.

1020  INTEGER, ALLOCATABLE,TARGET :: NBE(:,:) !!INDICES OF ELMNT NEIGHBORS

◆ nbsn

integer, dimension(:,:), allocatable, target all_vars::nbsn

Definition at line 1030 of file mod_main.f90.

1030  INTEGER, ALLOCATABLE,TARGET :: NBSN(:,:) !! INDICES OF NODES SURROUNDING EACH NODE

◆ nbve

integer, dimension(:,:), allocatable, target all_vars::nbve

Definition at line 1034 of file mod_main.f90.

1034  INTEGER, ALLOCATABLE,TARGET :: NBVE(:,:) !! INDICIES OF ELEMENTS SURROUNDING EACH NODE

◆ nbvt

integer, dimension(:,:), allocatable, target all_vars::nbvt

Definition at line 1036 of file mod_main.f90.

1036  INTEGER, ALLOCATABLE,TARGET :: NBVT(:,:)

◆ niec

integer, dimension(:,:), allocatable, target all_vars::niec

Definition at line 1032 of file mod_main.f90.

1032  INTEGER, ALLOCATABLE,TARGET :: NIEC(:,:)

◆ nn_hvc

real(sp), dimension(:), allocatable all_vars::nn_hvc

Definition at line 1303 of file mod_main.f90.

1303  REAL(SP), ALLOCATABLE :: NN_HVC(:)

◆ ntrg

integer, dimension(:), allocatable, target all_vars::ntrg

Definition at line 1033 of file mod_main.f90.

1033  INTEGER, ALLOCATABLE,TARGET :: NTRG(:)

◆ ntsn

integer, dimension(:), allocatable, target all_vars::ntsn

Definition at line 1023 of file mod_main.f90.

1023  INTEGER, ALLOCATABLE,TARGET :: NTSN(:) !! NUMBER OF NODES SURROUNDING EACH NODE

◆ ntve

integer, dimension(:), allocatable, target all_vars::ntve

Definition at line 1022 of file mod_main.f90.

1022  INTEGER, ALLOCATABLE,TARGET :: NTVE(:) !! NUMBER OF ELEMENTS SURROUNDING EACH NODE

◆ nv

integer, dimension(:,:), allocatable, target all_vars::nv

Definition at line 1018 of file mod_main.f90.

1018  INTEGER, ALLOCATABLE,TARGET :: NV(:,:) !!NODE NUMBERING FOR ELEMENTS

◆ nvg

integer, dimension(:,:), allocatable all_vars::nvg

Definition at line 969 of file mod_main.f90.

969  INTEGER, ALLOCATABLE :: NVG(:,:)

◆ partition

real(sp), dimension(:), allocatable, target all_vars::partition

Definition at line 1277 of file mod_main.f90.

1277  REAL(SP), ALLOCATABLE, TARGET :: partition(:) !gwc

◆ pfpxb

real(sp), dimension(:), allocatable, target all_vars::pfpxb

Definition at line 1342 of file mod_main.f90.

1342  REAL(SP), ALLOCATABLE,TARGET :: PFPXB(:)

◆ pfpyb

real(sp), dimension(:), allocatable, target all_vars::pfpyb

Definition at line 1343 of file mod_main.f90.

1343  REAL(SP), ALLOCATABLE,TARGET :: PFPYB(:)

◆ phpn

real(sp), dimension(:), allocatable, target all_vars::phpn

Definition at line 1341 of file mod_main.f90.

1341  REAL(SP), ALLOCATABLE,TARGET :: PHPN(:)

◆ pstx

real(sp), dimension(:), allocatable, target all_vars::pstx

Definition at line 1254 of file mod_main.f90.

1254  REAL(SP), ALLOCATABLE,TARGET :: PSTX(:) !!EXT MODE BAROTROPIC TERMS

◆ psty

real(sp), dimension(:), allocatable, target all_vars::psty

Definition at line 1255 of file mod_main.f90.

1255  REAL(SP), ALLOCATABLE,TARGET :: PSTY(:) !!EXT MODE BAROTROPIC TERMS

◆ q2

real(sp), dimension(:,:), allocatable, target all_vars::q2

Definition at line 1290 of file mod_main.f90.

1290  REAL(SP), ALLOCATABLE,TARGET :: Q2(:,:) !2 X TURBULENT KINETIC ENERGY AT NODES

◆ q2f

real(sp), dimension(:,:), allocatable, target all_vars::q2f

Definition at line 1297 of file mod_main.f90.

1297  REAL(SP), ALLOCATABLE,TARGET :: Q2F(:,:) !WORKING ARRAY FOR UPDATING Q2

◆ q2l

real(sp), dimension(:,:), allocatable, target all_vars::q2l

Definition at line 1292 of file mod_main.f90.

1292  REAL(SP), ALLOCATABLE,TARGET :: Q2L(:,:) !2 X TURBULENT KE X LENGTH AT NODES

◆ q2lf

real(sp), dimension(:,:), allocatable, target all_vars::q2lf

Definition at line 1298 of file mod_main.f90.

1298  REAL(SP), ALLOCATABLE,TARGET :: Q2LF(:,:) !WORKING ARRAY FOR UPDATING Q2F

◆ qarea

real(sp), dimension(:), allocatable, target all_vars::qarea

Definition at line 1226 of file mod_main.f90.

1226  REAL(SP), ALLOCATABLE,TARGET :: QAREA(:) !!AREA OF RIVER DISCHARGE

◆ qdis

real(sp), dimension(:), allocatable, target all_vars::qdis

Definition at line 1220 of file mod_main.f90.

1220  REAL(SP), ALLOCATABLE,TARGET :: QDIS(:) !!RIVER FLUX AT CURRENT TIME

◆ qdis2

real(sp), dimension(:), allocatable, target all_vars::qdis2

Definition at line 1222 of file mod_main.f90.

1222  REAL(SP), ALLOCATABLE,TARGET :: QDIS2(:) !!RIVER FLUX (EXT MODE, NOT USED)

◆ qevap

real(sp), dimension(:), allocatable, target all_vars::qevap

Definition at line 1240 of file mod_main.f90.

1240  REAL(SP), ALLOCATABLE,TARGET :: QEVAP(:) !!SURFACE EVAPORATION FOR INT

◆ qevap2

real(sp), dimension(:), allocatable, target all_vars::qevap2

Definition at line 1237 of file mod_main.f90.

1237  REAL(SP), ALLOCATABLE,TARGET :: QEVAP2(:) !!SURFACE EVAPORATION FOR EXT

◆ qprec

real(sp), dimension(:), allocatable, target all_vars::qprec

Definition at line 1239 of file mod_main.f90.

1239  REAL(SP), ALLOCATABLE,TARGET :: QPREC(:) !!SURFACE PRECIPITATION FOR INT

◆ qprec2

real(sp), dimension(:), allocatable, target all_vars::qprec2

Definition at line 1236 of file mod_main.f90.

1236  REAL(SP), ALLOCATABLE,TARGET :: QPREC2(:) !!SURFACE PRECIPITATION FOR EXT

◆ r_ave

real(sp), dimension(:,:), allocatable, target all_vars::r_ave

Definition at line 1356 of file mod_main.f90.

1356  REAL(SP), ALLOCATABLE,TARGET :: R_AVE(:,:) !RHO1 AVERAGED OVER INT_AVGE ITERATIONS

◆ rbc_geo

real(sp), dimension(:), allocatable, target all_vars::rbc_geo

Definition at line 1083 of file mod_main.f90.

1083  REAL(SP),ALLOCATABLE,TARGET :: RBC_GEO(:) !!LOCAL GEOSTROPHIC FRICTION CORRECTION NODES

◆ rbc_geo_gl

real(sp), dimension(:), allocatable, target all_vars::rbc_geo_gl

Definition at line 1075 of file mod_main.f90.

1075  REAL(SP),ALLOCATABLE,TARGET :: RBC_GEO_GL(:) !!GLOBAL GEOSTROPHIC FRICTION CORRECTION NODES

◆ rbc_wdf

real(sp), dimension(:), allocatable, target all_vars::rbc_wdf

Definition at line 1084 of file mod_main.f90.

1084  REAL(SP),ALLOCATABLE,TARGET :: RBC_WDF(:) !!LOCAL WIND DRIVEN FLOW CORRECTION NODES

◆ rbc_wdf_gl

real(sp), dimension(:), allocatable, target all_vars::rbc_wdf_gl

Definition at line 1076 of file mod_main.f90.

1076  REAL(SP),ALLOCATABLE,TARGET :: RBC_WDF_GL(:) !!GLOBAL WIND DRIVEN FLOW CORRECTION NODES

◆ rdisq

real(sp), dimension(:,:), allocatable, target all_vars::rdisq

Definition at line 1227 of file mod_main.f90.

1227  REAL(SP), ALLOCATABLE,TARGET :: RDISQ(:,:) !!AREA OF FLUX

◆ rho

real(sp), dimension(:,:), allocatable, target all_vars::rho

Definition at line 1284 of file mod_main.f90.

1284  REAL(SP), ALLOCATABLE,TARGET :: RHO(:,:) !DENSITY AT ELEMENTS

◆ rho1

real(sp), dimension(:,:), allocatable, target all_vars::rho1

Definition at line 1309 of file mod_main.f90.

1309  REAL(SP), ALLOCATABLE,TARGET :: RHO1(:,:) !!DENSITY AT NODES

◆ riv_gl2loc

integer, dimension(:), allocatable, target all_vars::riv_gl2loc

Definition at line 1218 of file mod_main.f90.

1218  INTEGER, ALLOCATABLE,TARGET :: RIV_GL2LOC(:)

◆ rmean

real(sp), dimension(:,:), allocatable, target all_vars::rmean

Definition at line 1285 of file mod_main.f90.

1285  REAL(SP), ALLOCATABLE,TARGET :: RMEAN(:,:) !INITIAL DENSITY AT ELEMENTS

◆ rmean1

real(sp), dimension(:,:), allocatable, target all_vars::rmean1

Definition at line 1320 of file mod_main.f90.

1320  REAL(SP), ALLOCATABLE,TARGET :: RMEAN1(:,:) !!MEAN INITIAL DENSITY

◆ s

real(sp), dimension(:,:), allocatable, target all_vars::s

Definition at line 1288 of file mod_main.f90.

1288  REAL(SP), ALLOCATABLE,TARGET :: S(:,:) !SALINITY AT ELEMENTS

◆ s0

real(sp), dimension(:,:), allocatable, target all_vars::s0

Definition at line 1315 of file mod_main.f90.

1315  REAL(SP), ALLOCATABLE,TARGET :: S0(:,:) !!SALINITY AT NODES AT PREVIOUS TIME STEP

◆ s1

real(sp), dimension(:,:), allocatable, target all_vars::s1

Definition at line 1308 of file mod_main.f90.

1308  REAL(SP), ALLOCATABLE,TARGET :: S1(:,:) !!SALINITY AT NODES

◆ s2

real(sp), dimension(:,:), allocatable, target all_vars::s2

Definition at line 1316 of file mod_main.f90.

1316  REAL(SP), ALLOCATABLE,TARGET :: S2(:,:) !!SALINITY AT NODES AT PREVIOUS TWO STEP

◆ s_ave

real(sp), dimension(:,:), allocatable, target all_vars::s_ave

Definition at line 1355 of file mod_main.f90.

1355  REAL(SP), ALLOCATABLE,TARGET :: S_AVE(:,:) !S1 AVERAGED OVER INT_AVGE ITERATIONS

◆ sdis

real(sp), dimension(:), allocatable, target all_vars::sdis

Definition at line 1225 of file mod_main.f90.

1225  REAL(SP), ALLOCATABLE,TARGET :: SDIS(:) !!RIVER WATER SLNT AT CURRENT TIME

◆ sf1

real(sp), dimension(:,:), allocatable, target all_vars::sf1

Definition at line 1311 of file mod_main.f90.

1311  REAL(SP), ALLOCATABLE,TARGET :: SF1(:,:) !!SALINITY FROM PREVIOUS TIME

◆ sita_gd

real(sp), dimension(:), allocatable, target all_vars::sita_gd

Definition at line 1344 of file mod_main.f90.

1344  REAL(SP), ALLOCATABLE,TARGET :: SITA_GD(:)

◆ sitac

real(sp), dimension(:), allocatable, target all_vars::sitac

Definition at line 1053 of file mod_main.f90.

1053  REAL(SP),ALLOCATABLE,TARGET :: SITAC(:)

◆ sitae

real(sp), dimension(:), allocatable, target all_vars::sitae

Definition at line 1043 of file mod_main.f90.

1043  REAL(SP),ALLOCATABLE,TARGET :: SITAE(:)

◆ smean

real(sp), dimension(:,:), allocatable, target all_vars::smean

Definition at line 1289 of file mod_main.f90.

1289  REAL(SP), ALLOCATABLE,TARGET :: SMEAN(:,:) !INITIAL SALINITY AT ELEMENTS

◆ smean1

real(sp), dimension(:,:), allocatable, target all_vars::smean1

Definition at line 1319 of file mod_main.f90.

1319  REAL(SP), ALLOCATABLE,TARGET :: SMEAN1(:,:) !!MEAN INITIAL SALINITY

◆ swrad

real(sp), dimension(:), allocatable, target all_vars::swrad

Definition at line 1177 of file mod_main.f90.

1177  REAL(SP), ALLOCATABLE,TARGET :: SWRAD(:) !!SURFACE INCIDENT RADIATION

◆ swrad_watts

real(sp), dimension(:), allocatable, target all_vars::swrad_watts

Definition at line 1173 of file mod_main.f90.

1173  REAL(SP), ALLOCATABLE,TARGET :: SWRAD_WATTS(:) !!SURFACE INCIDENT RADIATION

◆ t

real(sp), dimension(:,:), allocatable, target all_vars::t

Definition at line 1286 of file mod_main.f90.

1286  REAL(SP), ALLOCATABLE,TARGET :: T(:,:) !TEMPERATURE AT ELEMENTS

◆ t0

real(sp), dimension(:,:), allocatable, target all_vars::t0

Definition at line 1313 of file mod_main.f90.

1313  REAL(SP), ALLOCATABLE,TARGET :: T0(:,:) !!TEMPERATURE AT NODES AT PREVIOUS TIME STEP

◆ t1

real(sp), dimension(:,:), allocatable, target all_vars::t1

Definition at line 1307 of file mod_main.f90.

1307  REAL(SP), ALLOCATABLE,TARGET :: T1(:,:) !!TEMPERATURE AT NODES

◆ t2

real(sp), dimension(:,:), allocatable, target all_vars::t2

Definition at line 1314 of file mod_main.f90.

1314  REAL(SP), ALLOCATABLE,TARGET :: T2(:,:) !!TEMPERATURE AT NODES AT PREVIOUS TWO STEP

◆ t_ave

real(sp), dimension(:,:), allocatable, target all_vars::t_ave

Definition at line 1354 of file mod_main.f90.

1354  REAL(SP), ALLOCATABLE,TARGET :: T_AVE(:,:) !T1 AVERAGED OVER INT_AVGE ITERATIONS

◆ taubm

real(sp), dimension(:), allocatable, target all_vars::taubm

Definition at line 1187 of file mod_main.f90.

1187  REAL(SP), ALLOCATABLE,TARGET :: TAUBM(:) !!BOTTOM FRICTION MAGNITUDE(Caution is Tau' [no Rho])

◆ taubm_n

real(sp), dimension(:), allocatable, target all_vars::taubm_n

Definition at line 1190 of file mod_main.f90.

1190  REAL(SP), ALLOCATABLE,TARGET :: TAUBM_N(:) !!BOTTOM FRICTION MAGNITUDE ON NODES (Caution is Tau' [no Rho])

◆ tdis

real(sp), dimension(:), allocatable, target all_vars::tdis

Definition at line 1224 of file mod_main.f90.

1224  REAL(SP), ALLOCATABLE,TARGET :: TDIS(:) !!RIVER WATER TEMP AT CURRENT TIME

◆ tf1

real(sp), dimension(:,:), allocatable, target all_vars::tf1

Definition at line 1310 of file mod_main.f90.

1310  REAL(SP), ALLOCATABLE,TARGET :: TF1(:,:) !!TEMPERATURE FROM PREVIOUS TIME

◆ tmean

real(sp), dimension(:,:), allocatable, target all_vars::tmean

Definition at line 1287 of file mod_main.f90.

1287  REAL(SP), ALLOCATABLE,TARGET :: TMEAN(:,:) !INITIAL TEMPERATURE AT ELEMENTS

◆ tmean1

real(sp), dimension(:,:), allocatable, target all_vars::tmean1

Definition at line 1318 of file mod_main.f90.

1318  REAL(SP), ALLOCATABLE,TARGET :: TMEAN1(:,:) !!MEAN INITIAL TEMP

◆ tps

real(sp), dimension(:), allocatable, target all_vars::tps

Definition at line 1262 of file mod_main.f90.

1262  REAL(SP), ALLOCATABLE,TARGET :: TPS(:) !!WORKING ARRAY

◆ u

real(sp), dimension(:,:), allocatable, target all_vars::u

Definition at line 1268 of file mod_main.f90.

1268  REAL(SP), ALLOCATABLE,TARGET :: U(:,:) !X-VELOCITY

◆ u_ave

real(sp), dimension(:,:), allocatable, target all_vars::u_ave

Definition at line 1349 of file mod_main.f90.

1349  REAL(SP), ALLOCATABLE,TARGET :: U_AVE(:,:) !U AVERAGED OVER INT_AVGE ITERATIONS

◆ ua

real(sp), dimension(:), allocatable, target all_vars::ua

Definition at line 1103 of file mod_main.f90.

1103  REAL(SP), ALLOCATABLE,TARGET :: UA(:) !!VERTICALLY AVERAGED X-VELOC

◆ uaf

real(sp), dimension(:), allocatable, target all_vars::uaf

Definition at line 1105 of file mod_main.f90.

1105  REAL(SP), ALLOCATABLE,TARGET :: UAF(:) !!UA FROM PREVIOUS RK STAGE

◆ uard

real(sp), dimension(:), allocatable, target all_vars::uard

Definition at line 1110 of file mod_main.f90.

1110  REAL(SP), ALLOCATABLE,TARGET :: UARD(:) !!UA AVERAGED OVER EXTERNAL INT

◆ uark

real(sp), dimension(:), allocatable, target all_vars::uark

Definition at line 1108 of file mod_main.f90.

1108  REAL(SP), ALLOCATABLE,TARGET :: UARK(:) !!UA FROM PREVIOUS TIMESTEP

◆ ubeta

real(sp), dimension(:,:), allocatable, target all_vars::ubeta

Definition at line 1271 of file mod_main.f90.

1271  REAL(SP), ALLOCATABLE,TARGET :: UBETA(:,:) !X-VELOCITY temp time step

◆ ubeta2d

real(sp), dimension(:), allocatable all_vars::ubeta2d

Definition at line 1274 of file mod_main.f90.

1274  REAL(SP), ALLOCATABLE :: UBETA2D(:)

◆ uf

real(sp), dimension(:,:), allocatable, target all_vars::uf

Definition at line 1281 of file mod_main.f90.

1281  REAL(SP), ALLOCATABLE,TARGET :: UF(:,:) !X-VELOCITY FROM PREVIOUS TIMESTEP

◆ uuwind

real(sp), dimension(:), allocatable, target all_vars::uuwind

Definition at line 1232 of file mod_main.f90.

1232  REAL(SP), ALLOCATABLE,TARGET :: UUWIND(:) !!SURFACE X-WIND

◆ v

real(sp), dimension(:,:), allocatable, target all_vars::v

Definition at line 1269 of file mod_main.f90.

1269  REAL(SP), ALLOCATABLE,TARGET :: V(:,:) !Y-VELOCITY

◆ v_ave

real(sp), dimension(:,:), allocatable, target all_vars::v_ave

Definition at line 1350 of file mod_main.f90.

1350  REAL(SP), ALLOCATABLE,TARGET :: V_AVE(:,:) !V AVERAGED OVER INT_AVGE ITERATIONS

◆ va

real(sp), dimension(:), allocatable, target all_vars::va

Definition at line 1104 of file mod_main.f90.

1104  REAL(SP), ALLOCATABLE,TARGET :: VA(:) !!VERTICALLY AVERAGED Y-VELOC

◆ vaf

real(sp), dimension(:), allocatable, target all_vars::vaf

Definition at line 1106 of file mod_main.f90.

1106  REAL(SP), ALLOCATABLE,TARGET :: VAF(:) !!VA FROM PREVIOUS RK STAGE

◆ vard

real(sp), dimension(:), allocatable, target all_vars::vard

Definition at line 1111 of file mod_main.f90.

1111  REAL(SP), ALLOCATABLE,TARGET :: VARD(:) !!VA AVERAGED OVER EXTERNAL INT

◆ vark

real(sp), dimension(:), allocatable, target all_vars::vark

Definition at line 1109 of file mod_main.f90.

1109  REAL(SP), ALLOCATABLE,TARGET :: VARK(:) !!VA FROM PREVIOUS TIMESTEP

◆ vbeta

real(sp), dimension(:,:), allocatable, target all_vars::vbeta

Definition at line 1272 of file mod_main.f90.

1272  REAL(SP), ALLOCATABLE,TARGET :: VBETA(:,:) !Y-VELOCITY temp time step

◆ vbeta2d

real(sp), dimension(:), allocatable all_vars::vbeta2d

Definition at line 1275 of file mod_main.f90.

1275  REAL(SP), ALLOCATABLE :: VBETA2D(:)

◆ vf

real(sp), dimension(:,:), allocatable, target all_vars::vf

Definition at line 1282 of file mod_main.f90.

1282  REAL(SP), ALLOCATABLE,TARGET :: VF(:,:) !Y-VELOCITY FROM PREVIOUS TIMESTEP

◆ viscofh

real(sp), dimension(:,:), allocatable, target all_vars::viscofh

Definition at line 1359 of file mod_main.f90.

1359  REAL(SP), ALLOCATABLE,TARGET :: VISCOFH(:,:)

◆ viscofm

real(sp), dimension(:,:), allocatable, target all_vars::viscofm

Definition at line 1360 of file mod_main.f90.

1360  REAL(SP), ALLOCATABLE,TARGET :: VISCOFM(:,:)

◆ vlctyq

real(sp), dimension(:), allocatable, target all_vars::vlctyq

Definition at line 1229 of file mod_main.f90.

1229  REAL(SP), ALLOCATABLE,TARGET :: VLCTYQ(:) !!RIVER DISCHARGE VELOCITY

◆ vort

real(sp), dimension(:), allocatable, target all_vars::vort

Definition at line 1165 of file mod_main.f90.

1165  REAL(SP), ALLOCATABLE,TARGET :: VORT(:)

◆ vqdist

real(sp), dimension(:,:), allocatable, target all_vars::vqdist

Definition at line 1217 of file mod_main.f90.

1217  REAL(SP), ALLOCATABLE,TARGET :: VQDIST(:,:) !!DISCHARGE VERTICAL DISTRIBUTION

◆ vvwind

real(sp), dimension(:), allocatable, target all_vars::vvwind

Definition at line 1233 of file mod_main.f90.

1233  REAL(SP), ALLOCATABLE,TARGET :: VVWIND(:) !!SURFACE Y-WIND

◆ vx

real(sp), dimension(:), allocatable, target all_vars::vx

Definition at line 1001 of file mod_main.f90.

1001  REAL(SP), ALLOCATABLE,TARGET :: VX(:) !!X-COORD AT GRID POINT

◆ vxmax

real(sp) all_vars::vxmax

Definition at line 989 of file mod_main.f90.

◆ vxmin

real(sp) all_vars::vxmin

Definition at line 989 of file mod_main.f90.

989  REAL(SP) :: VXMIN,VYMIN,VXMAX,VYMAX

◆ vy

real(sp), dimension(:), allocatable, target all_vars::vy

Definition at line 1002 of file mod_main.f90.

1002  REAL(SP), ALLOCATABLE,TARGET :: VY(:) !!Y-COORD AT GRID POINT

◆ vymax

real(sp) all_vars::vymax

Definition at line 989 of file mod_main.f90.

◆ vymin

real(sp) all_vars::vymin

Definition at line 989 of file mod_main.f90.

◆ w

real(sp), dimension(:,:), allocatable, target all_vars::w

Definition at line 1279 of file mod_main.f90.

1279  REAL(SP), ALLOCATABLE,TARGET :: W(:,:) !VERTICAL VELOCITY IN SIGMA SYSTEM

◆ w_ave

real(sp), dimension(:,:), allocatable, target all_vars::w_ave

Definition at line 1351 of file mod_main.f90.

1351  REAL(SP), ALLOCATABLE,TARGET :: W_AVE(:,:) !WW AVERAGED OVER INT_AVGE ITERATIONS

◆ wdf_ang

real(sp), dimension(:), allocatable, target all_vars::wdf_ang

Definition at line 1078 of file mod_main.f90.

1078  REAL(SP),ALLOCATABLE,TARGET :: WDF_ANG(:) !!ANGLE ALLONG THE OPEN BOUNDARY

◆ wdf_dist

real(sp), dimension(:), allocatable, target all_vars::wdf_dist

Definition at line 1079 of file mod_main.f90.

1079  REAL(SP),ALLOCATABLE,TARGET :: WDF_DIST(:) !!DISTANCE ALLONG THE OPEN BOUNDARY

◆ wdir

real(sp), dimension(:), allocatable, target all_vars::wdir

Definition at line 1243 of file mod_main.f90.

1243  REAL(SP), ALLOCATABLE,TARGET :: WDIR(:) !!SURFACE WAVE DIRECTION

◆ whs

real(sp), dimension(:), allocatable, target all_vars::whs

Definition at line 1242 of file mod_main.f90.

1242  REAL(SP), ALLOCATABLE,TARGET :: WHS(:) !!SURFACE WAVE HEIGHT

◆ wlength

real(sp), dimension(:), allocatable, target all_vars::wlength

Definition at line 1245 of file mod_main.f90.

1245  REAL(SP), ALLOCATABLE,TARGET :: WLENGTH(:) !!SURFACE WAVE LENGTH

◆ wper

real(sp), dimension(:), allocatable, target all_vars::wper

Definition at line 1244 of file mod_main.f90.

1244  REAL(SP), ALLOCATABLE,TARGET :: WPER(:) !!SURFACE WAVE PERIOD

◆ wper_bot

real(sp), dimension(:), allocatable, target all_vars::wper_bot

Definition at line 1246 of file mod_main.f90.

1246  REAL(SP), ALLOCATABLE,TARGET :: WPER_BOT(:) !!BOTTOM WAVE PERIOD

◆ wt

real(sp), dimension(:,:), allocatable, target all_vars::wt

Definition at line 1283 of file mod_main.f90.

1283  REAL(SP), ALLOCATABLE,TARGET :: WT(:,:) !Z-VELOCITY FROM PREVIOUS TIMESTEP

◆ wts

real(sp), dimension(:,:), allocatable, target all_vars::wts

Definition at line 1321 of file mod_main.f90.

1321  REAL(SP), ALLOCATABLE,TARGET :: WTS(:,:) !!VERTICAL VELOCITY IN SIGMA SYSTEM

◆ wtsurf

real(sp), dimension(:), allocatable, target all_vars::wtsurf

Definition at line 1178 of file mod_main.f90.

1178  REAL(SP), ALLOCATABLE,TARGET :: WTSURF(:) !!NET HEAT FLUX AT SURFACE

◆ wtsurf_watts

real(sp), dimension(:), allocatable, target all_vars::wtsurf_watts

Definition at line 1174 of file mod_main.f90.

1174  REAL(SP), ALLOCATABLE,TARGET :: WTSURF_WATTS(:) !!NET HEAT FLUX AT SURFACE

◆ wtts

real(sp), dimension(:,:), allocatable, target all_vars::wtts

Definition at line 1322 of file mod_main.f90.

1322  REAL(SP), ALLOCATABLE,TARGET :: WTTS(:,:) !!WTS FROM PREVIOUS TIMESTEP

◆ wub_bot

real(sp), dimension(:), allocatable, target all_vars::wub_bot

Definition at line 1247 of file mod_main.f90.

1247  REAL(SP), ALLOCATABLE,TARGET :: WUB_BOT(:) !!BOTTOM ORBITAL VELOCITY

◆ wubot

real(sp), dimension(:), allocatable, target all_vars::wubot

Definition at line 1185 of file mod_main.f90.

1185  REAL(SP), ALLOCATABLE,TARGET :: WUBOT(:) !!BOTTOM FRICTION

◆ wubot_n

real(sp), dimension(:), allocatable, target all_vars::wubot_n

Definition at line 1188 of file mod_main.f90.

1188  REAL(SP), ALLOCATABLE,TARGET :: WUBOT_N(:) !!BOTTOM FRICTION ON NODES (Caution is Tau' [no Rho])

◆ wusurf

real(sp), dimension(:), allocatable, target all_vars::wusurf

Definition at line 1191 of file mod_main.f90.

1191  REAL(SP), ALLOCATABLE,TARGET :: WUSURF(:) !!SURFACE FRICTION FOR INT

◆ wusurf2

real(sp), dimension(:), allocatable, target all_vars::wusurf2

Definition at line 1182 of file mod_main.f90.

1182  REAL(SP), ALLOCATABLE,TARGET :: WUSURF2(:) !!SURFACE FRICTION FOR EXT

◆ wusurf_save

real(sp), dimension(:), allocatable, target all_vars::wusurf_save

Definition at line 1193 of file mod_main.f90.

1193  REAL(SP), ALLOCATABLE,TARGET :: WUSURF_save(:) !!SURFACE FRICTION FOR INT

◆ wvbot

real(sp), dimension(:), allocatable, target all_vars::wvbot

Definition at line 1186 of file mod_main.f90.

1186  REAL(SP), ALLOCATABLE,TARGET :: WVBOT(:) !!BOTTOM FRICTION

◆ wvbot_n

real(sp), dimension(:), allocatable, target all_vars::wvbot_n

Definition at line 1189 of file mod_main.f90.

1189  REAL(SP), ALLOCATABLE,TARGET :: WVBOT_N(:) !!BOTTOM FRICTION ON NODES (Caution is Tau' [no Rho])

◆ wvsurf

real(sp), dimension(:), allocatable, target all_vars::wvsurf

Definition at line 1192 of file mod_main.f90.

1192  REAL(SP), ALLOCATABLE,TARGET :: WVSURF(:) !!SURFACE FRICTION FOR INT

◆ wvsurf2

real(sp), dimension(:), allocatable, target all_vars::wvsurf2

Definition at line 1183 of file mod_main.f90.

1183  REAL(SP), ALLOCATABLE,TARGET :: WVSURF2(:) !!SURFACE FRICTION FOR EXT

◆ wvsurf_save

real(sp), dimension(:), allocatable, target all_vars::wvsurf_save

Definition at line 1194 of file mod_main.f90.

1194  REAL(SP), ALLOCATABLE,TARGET :: WVSURF_save(:) !!SURFACE FRICTION FOR INT

◆ ww

real(sp), dimension(:,:), allocatable, target all_vars::ww

Definition at line 1280 of file mod_main.f90.

1280  REAL(SP), ALLOCATABLE,TARGET :: WW(:,:) !Z-VELOCITY

◆ xc

real(sp), dimension(:), allocatable, target all_vars::xc

Definition at line 1003 of file mod_main.f90.

1003  REAL(SP), ALLOCATABLE,TARGET :: XC(:) !!X-COORD AT FACE CENTER

◆ xcg

real(sp), dimension(:), allocatable all_vars::xcg

Definition at line 979 of file mod_main.f90.

979  REAL(SP), ALLOCATABLE :: XCG(:) !!GLOBAL X-COORD AT FACE CENTER

◆ xg

real(sp), dimension(:), allocatable all_vars::xg

Definition at line 975 of file mod_main.f90.

975  REAL(SP), ALLOCATABLE :: XG(:) !!GLOBAL X-COORD AT NODE

◆ xijc

real(sp), dimension(:), allocatable, target all_vars::xijc

Definition at line 1044 of file mod_main.f90.

1044  REAL(SP),ALLOCATABLE,TARGET :: XIJC(:)

◆ xije

real(sp), dimension(:,:), allocatable, target all_vars::xije

Definition at line 1047 of file mod_main.f90.

1047  REAL(SP),ALLOCATABLE,TARGET :: XIJE(:,:)

◆ xm

real(sp), dimension(:), allocatable, target all_vars::xm

Definition at line 991 of file mod_main.f90.

991  REAL(SP), ALLOCATABLE,TARGET :: XM(:) !!X-COORD AT NODE IN METERS

◆ xmc

real(sp), dimension(:), allocatable, target all_vars::xmc

Definition at line 993 of file mod_main.f90.

993  REAL(SP), ALLOCATABLE,TARGET :: XMC(:) !!X-COORD AT CELL CENTER IN METERS

◆ yc

real(sp), dimension(:), allocatable, target all_vars::yc

Definition at line 1004 of file mod_main.f90.

1004  REAL(SP), ALLOCATABLE,TARGET :: YC(:) !!Y-COORD AT FACE CENTER

◆ ycg

real(sp), dimension(:), allocatable all_vars::ycg

Definition at line 980 of file mod_main.f90.

980  REAL(SP), ALLOCATABLE :: YCG(:) !!GLOBAL X-COORD AT FACE CENTER

◆ yg

real(sp), dimension(:), allocatable all_vars::yg

Definition at line 976 of file mod_main.f90.

976  REAL(SP), ALLOCATABLE :: YG(:) !!GLOBAL X-COORD AT NODE

◆ yijc

real(sp), dimension(:), allocatable, target all_vars::yijc

Definition at line 1045 of file mod_main.f90.

1045  REAL(SP),ALLOCATABLE,TARGET :: YIJC(:)

◆ yije

real(sp), dimension(:,:), allocatable, target all_vars::yije

Definition at line 1048 of file mod_main.f90.

1048  REAL(SP),ALLOCATABLE,TARGET :: YIJE(:,:)

◆ ym

real(sp), dimension(:), allocatable, target all_vars::ym

Definition at line 992 of file mod_main.f90.

992  REAL(SP), ALLOCATABLE,TARGET :: YM(:) !!Y-COORD AT NODE IN METERS

◆ ymc

real(sp), dimension(:), allocatable, target all_vars::ymc

Definition at line 994 of file mod_main.f90.

994  REAL(SP), ALLOCATABLE,TARGET :: YMC(:) !!Y-COORD AT CELL CENTER IN METERS

◆ z

real(sp), dimension(:,:), allocatable, target all_vars::z

Definition at line 1090 of file mod_main.f90.

1090  REAL(SP), ALLOCATABLE,TARGET :: Z(:,:) !!SIGMA COORDINATE VALUE

◆ z1

real(sp), dimension(:,:), allocatable, target all_vars::z1

Definition at line 1094 of file mod_main.f90.

1094  REAL(SP), ALLOCATABLE,TARGET :: Z1(:,:) !!SIGMA COORDINATE VALUE

◆ zz

real(sp), dimension(:,:), allocatable, target all_vars::zz

Definition at line 1091 of file mod_main.f90.

1091  REAL(SP), ALLOCATABLE,TARGET :: ZZ(:,:) !!INTRA LEVEL SIGMA VALUE

◆ zz1

real(sp), dimension(:,:), allocatable, target all_vars::zz1

Definition at line 1095 of file mod_main.f90.

1095  REAL(SP), ALLOCATABLE,TARGET :: ZZ1(:,:) !!INTRA LEVEL SIGMA VALUE