WAVEWATCH III  beta 0.0.1
Data Types | Functions/Subroutines | Variables
w3adatmd Module Reference

Define data structures to set up wave model auxiliary data for several models simultaneously. More...

Data Types

type  wadat
 

Functions/Subroutines

subroutine w3naux (NDSE, NDST)
 Set up the number of grids to be used. More...
 
subroutine w3dima (IMOD, NDSE, NDST, D_ONLY)
 Initialize an individual data grid at the proper dimensions. More...
 
subroutine w3xdma (IMOD, NDSE, NDST, OUTFLAGS)
 Version of W3DIMX for extended ouput arrays only. More...
 
subroutine w3dmnl (IMOD, NDSE, NDST, NSP, NSPX)
 Initialize an individual data grid at the proper dimensions (DIA). More...
 
subroutine w3seta (IMOD, NDSE, NDST)
 Select one of the WAVEWATCH III grids / models. More...
 
subroutine w3xeta (IMOD, NDSE, NDST)
 Reduced version of W3SETA to point to expended output arrays. More...
 

Variables

integer nadata = -1
 
integer iadata = -1
 
integer, parameter mpibuf = 6
 
type(wadat), dimension(:), allocatable, target wadats
 
real, dimension(:,:), pointer cg
 
real, dimension(:,:), pointer wn
 
real, dimension(:,:), pointer ic3wn_r
 
real, dimension(:,:), pointer ic3wn_i
 
real, dimension(:,:), pointer ic3cg
 
real, dimension(:), pointer ca0
 
real, dimension(:), pointer cai
 
real, dimension(:), pointer cd0
 
real, dimension(:), pointer cdi
 
real, dimension(:), pointer ua0
 
real, dimension(:), pointer uai
 
real, dimension(:), pointer ud0
 
real, dimension(:), pointer udi
 
real, dimension(:), pointer ma0
 
real, dimension(:), pointer mai
 
real, dimension(:), pointer ra0
 
real, dimension(:), pointer rai
 
real, dimension(:), pointer md0
 
real, dimension(:), pointer mdi
 
real, dimension(:), pointer as0
 
real, dimension(:), pointer asi
 
real, dimension(:,:), pointer atrnx
 
real, dimension(:,:), pointer atrny
 
real, dimension(:), pointer dw
 
real, dimension(:), pointer ua
 
real, dimension(:), pointer ud
 
real, dimension(:), pointer u10
 
real, dimension(:), pointer u10d
 
real, dimension(:), pointer as
 
real, dimension(:), pointer cx
 
real, dimension(:), pointer cy
 
real, dimension(:), pointer taua
 
real, dimension(:), pointer tauadir
 
real, dimension(:), pointer hs
 
real, dimension(:), pointer wlm
 
real, dimension(:), pointer t02
 
real, dimension(:), pointer t0m1
 
real, dimension(:), pointer t01
 
real, dimension(:), pointer fp0
 
real, dimension(:), pointer thm
 
real, dimension(:), pointer ths
 
real, dimension(:), pointer thp0
 
real, dimension(:), pointer hsig
 
real, dimension(:), pointer stmaxe
 
real, dimension(:), pointer stmaxd
 
real, dimension(:), pointer hmaxe
 
real, dimension(:), pointer hcmaxe
 
real, dimension(:), pointer hmaxd
 
real, dimension(:), pointer hcmaxd
 
real, dimension(:), pointer qp
 
real, dimension(:), pointer wbt
 
real, dimension(:), pointer wnmean
 
real, dimension(:,:), pointer ef
 
real, dimension(:,:), pointer th1m
 
real, dimension(:,:), pointer sth1m
 
real, dimension(:,:), pointer th2m
 
real, dimension(:,:), pointer sth2m
 
real, dimension(:,:), pointer phs
 
real, dimension(:,:), pointer ptp
 
real, dimension(:,:), pointer plp
 
real, dimension(:,:), pointer pdir
 
real, dimension(:,:), pointer psi
 
real, dimension(:,:), pointer pws
 
real, dimension(:), pointer pwst
 
real, dimension(:), pointer pnr
 
real, dimension(:,:), pointer pgw
 
real, dimension(:,:), pointer psw
 
real, dimension(:,:), pointer pthp0
 
real, dimension(:,:), pointer pqp
 
real, dimension(:,:), pointer ppe
 
real, dimension(:,:), pointer ptm1
 
real, dimension(:,:), pointer pt1
 
real, dimension(:,:), pointer pt2
 
real, dimension(:,:), pointer pep
 
real, dimension(:), pointer charn
 
real, dimension(:), pointer cge
 
real, dimension(:), pointer phiaw
 
real, dimension(:), pointer tauwix
 
real, dimension(:), pointer tauwiy
 
real, dimension(:), pointer tauwnx
 
real, dimension(:), pointer tauwny
 
real, dimension(:,:), pointer whitecap
 
real, dimension(:), pointer tws
 
real, dimension(:), pointer sxx
 
real, dimension(:), pointer syy
 
real, dimension(:), pointer sxy
 
real, dimension(:), pointer tauox
 
real, dimension(:), pointer tauoy
 
real, dimension(:), pointer bhd
 
real, dimension(:), pointer phioc
 
real, dimension(:), pointer tusx
 
real, dimension(:), pointer tusy
 
real, dimension(:), pointer ussx
 
real, dimension(:), pointer ussy
 
real, dimension(:), pointer tauocx
 
real, dimension(:), pointer tauocy
 
real, dimension(:), pointer prms
 
real, dimension(:), pointer tpms
 
real, dimension(:), pointer phice
 
real, dimension(:,:), pointer tauice
 
real, dimension(:,:), pointer p2sms
 
real, dimension(:,:), pointer us3d
 
real, dimension(:,:), pointer ussp
 
real, dimension(:), pointer aba
 
real, dimension(:), pointer abd
 
real, dimension(:), pointer uba
 
real, dimension(:), pointer ubd
 
real, dimension(:,:), pointer bedforms
 
real, dimension(:), pointer phibbl
 
real, dimension(:,:), pointer taubbl
 
real, dimension(:), pointer mssx
 
real, dimension(:), pointer mssy
 
real, dimension(:), pointer mssd
 
real, dimension(:), pointer mscx
 
real, dimension(:), pointer mscy
 
real, dimension(:), pointer mscd
 
real, dimension(:), pointer qkk
 
real, dimension(:), pointer skew
 
real, dimension(:), pointer embia1
 
real, dimension(:), pointer embia2
 
real, dimension(:), pointer dtdyn
 
real, dimension(:), pointer fcut
 
real, dimension(:), pointer cflxymax
 
real, dimension(:), pointer cflthmax
 
real, dimension(:), pointer cflkmax
 
real, dimension(:,:), pointer usero
 
real, dimension(:,:), pointer dddx
 
real, dimension(:,:), pointer dddy
 
real, dimension(:,:), pointer dcxdx
 
real, dimension(:,:), pointer dcydx
 
real, dimension(:,:), pointer dcxdy
 
real, dimension(:,:), pointer dcydy
 
real, dimension(:,:,:), pointer dcdx
 
real, dimension(:,:,:), pointer dcdy
 
real, dimension(:), pointer dhdx
 
real, dimension(:), pointer dhdy
 
real, dimension(:,:), pointer dhlmt
 
integer, dimension(:), pointer is0
 
integer, dimension(:), pointer is2
 
real, dimension(:), pointer facvx
 
real, dimension(:), pointer facvy
 
integer, pointer nmx0
 
integer, pointer nmx1
 
integer, pointer nmx2
 
integer, pointer nmy0
 
integer, pointer nmy1
 
integer, pointer nmy2
 
integer, pointer nact
 
integer, pointer nmxy
 
integer, dimension(:), pointer mapx2
 
integer, dimension(:), pointer mapy2
 
integer, dimension(:), pointer mapaxy
 
integer, dimension(:), pointer mapxy
 
integer, dimension(:), pointer mapth2
 
integer, dimension(:), pointer mapwn2
 
integer, pointer ncent
 
integer, dimension(:), pointer mapcxy
 
logical, dimension(:), pointer maptrn
 
integer, dimension(:,:), pointer iter
 
integer, pointer nfr
 
integer, pointer nfrhgh
 
integer, pointer nfrchg
 
integer, pointer nspecx
 
integer, pointer nspecy
 
integer, dimension(:), pointer ip11
 
integer, dimension(:), pointer ip12
 
integer, dimension(:), pointer ip13
 
integer, dimension(:), pointer ip14
 
integer, dimension(:), pointer im11
 
integer, dimension(:), pointer im12
 
integer, dimension(:), pointer im13
 
integer, dimension(:), pointer im14
 
integer, dimension(:), pointer ip21
 
integer, dimension(:), pointer ip22
 
integer, dimension(:), pointer ip23
 
integer, dimension(:), pointer ip24
 
integer, dimension(:), pointer im21
 
integer, dimension(:), pointer im22
 
integer, dimension(:), pointer im23
 
integer, dimension(:), pointer im24
 
integer, dimension(:), pointer ic11
 
integer, dimension(:), pointer ic12
 
integer, dimension(:), pointer ic21
 
integer, dimension(:), pointer ic22
 
integer, dimension(:), pointer ic31
 
integer, dimension(:), pointer ic32
 
integer, dimension(:), pointer ic41
 
integer, dimension(:), pointer ic42
 
integer, dimension(:), pointer ic51
 
integer, dimension(:), pointer ic52
 
integer, dimension(:), pointer ic61
 
integer, dimension(:), pointer ic62
 
integer, dimension(:), pointer ic71
 
integer, dimension(:), pointer ic72
 
integer, dimension(:), pointer ic81
 
integer, dimension(:), pointer ic82
 
real, pointer dal1
 
real, pointer dal2
 
real, pointer dal3
 
real, pointer awg1
 
real, pointer awg2
 
real, pointer awg3
 
real, pointer awg4
 
real, pointer awg5
 
real, pointer awg6
 
real, pointer awg7
 
real, pointer awg8
 
real, pointer swg1
 
real, pointer swg2
 
real, pointer swg3
 
real, pointer swg4
 
real, pointer swg5
 
real, pointer swg6
 
real, pointer swg7
 
real, pointer swg8
 
real, dimension(:), pointer af11
 
logical, pointer nlinit
 
integer, dimension(:), pointer iappro
 
integer, pointer mpi_comm_wave
 
integer, pointer mpi_comm_wcmp
 
integer, pointer ww3_field_vec
 
integer, pointer ww3_spec_vec
 
integer, pointer nrqsg1
 
integer, pointer nrqsg2
 
integer, pointer ibfloc
 
integer, pointer isploc
 
integer, pointer nsploc
 
integer, dimension(:), pointer bstat
 
integer, dimension(:), pointer bispl
 
integer, dimension(:,:), pointer irqsg1
 
integer, dimension(:,:), pointer irqsg2
 
real, dimension(:,:), pointer gstore
 
real, dimension(:,:), pointer sstore
 
real, dimension(:,:,:), pointer sppnt
 
integer, pointer itime
 
integer, pointer ipass
 
integer, pointer idlast
 
integer, pointer nsealm
 
real, dimension(:,:), pointer alpha
 
logical, pointer ainit
 
logical, pointer ainit2
 
logical, pointer fl_all
 
logical, pointer flcold
 
logical, pointer fliwnd
 

Detailed Description

Define data structures to set up wave model auxiliary data for several models simultaneously.

The number of grids is taken from W3GDATMD, and needs to be set first with W3DIMG.

Author
H. L. Tolman
Date
22-Mar-2021
Copyright
Copyright 2009-2022 National Weather Service (NWS), National Oceanic and Atmospheric Administration. All rights reserved. WAVEWATCH III is a trademark of the NWS. No unauthorized use without permission.

Function/Subroutine Documentation

◆ w3dima()

subroutine w3adatmd::w3dima ( integer, intent(in)  IMOD,
integer, intent(in)  NDSE,
integer, intent(in)  NDST,
logical, intent(in), optional  D_ONLY 
)

Initialize an individual data grid at the proper dimensions.

Allocate directly into the structure array. Note that this cannot be done through the pointer alias!

Parameters
[in]IMODModel number to point to.
[in]NDSEError output unit number.
[in]NDSTTest output unit number.
[in]D_ONLYFlag for initializing data arrays only.
Author
H. L. Tolman
Date
22-Mar-2021

Definition at line 846 of file w3adatmd.F90.

846  !/
847  !/ +-----------------------------------+
848  !/ | WAVEWATCH III NOAA/NCEP |
849  !/ | H. L. Tolman |
850  !/ | FORTRAN 90 |
851  !/ | Last update : 22-Mar-2021 !
852  !/ +-----------------------------------+
853  !/
854  !/ 28-Dec-2004 : Origination. ( version 3.06 )
855  !/ 20-Jul-2005 : Adding output fields. ( version 3.07 )
856  !/ 04-Oct-2006 : Add filter to array pointers. ( version 3.10 )
857  !/ 28-Mar-2007 : Add partitioned data arrays. ( version 3.11 )
858  !/ Add additional undefined arrays.
859  !/ 22-Feb-2008 ; Modify MAPTH2 declaration. ( version 3.14 )
860  !/ 31-Oct-2010 : Added initialization of CX,CY,DW ( version 3.14 )
861  !/ 25-Dec-2012 : Memory reduction for outputs. ( version 4.11 )
862  !/ 28-Jul-2013 : Bug fix initialization P2SMS. ( version 4.11 )
863  !/ 30-Apr-2014 : Memory reduction for group3. ( version 5.00 )
864  !/ 10-Dec-2014 : Add checks for allocate status ( version 5.04 )
865  !/ 22-Mar-2021 : Adds TAUA, WNMEAN, TAUOC parameters ( version 7.13 )
866  !/
867  ! 1. Purpose :
868  !
869  ! Initialize an individual data grid at the proper dimensions.
870  !
871  ! 2. Method :
872  !
873  ! Allocate directly into the structure array. Note that
874  ! this cannot be done through the pointer alias!
875  !
876  ! 3. Parameters :
877  !
878  ! Parameter list
879  ! ----------------------------------------------------------------
880  ! IMOD Int. I Model number to point to.
881  ! NDSE Int. I Error output unit number.
882  ! NDST Int. I Test output unit number.
883  ! D_ONLY L.O. I FLag for initializing data arrays only.
884  ! ----------------------------------------------------------------
885  !
886  ! 4. Subroutines used :
887  !
888  ! See module documentation.
889  !
890  ! 5. Called by :
891  !
892  ! Name Type Module Description
893  ! ----------------------------------------------------------------
894  ! W3IOGO Subr. W3IOGOMD Grid output IO routine.
895  ! WW3_SHEL Prog. N/A Wave model driver.
896  ! ----------------------------------------------------------------
897  !
898  ! 6. Error messages :
899  !
900  ! - Check on input parameters.
901  ! - Check on previous allocation.
902  !
903  ! 7. Remarks :
904  !
905  ! - W3SETA needs to be called after allocation to point to
906  ! proper allocated arrays.
907  !
908  ! 8. Structure :
909  !
910  ! See source code.
911  !
912  ! 9. Switches :
913  !
914  ! !/SHRD, !/DIST
915  ! Shared / distributed memory model
916  !
917  ! !/PRn Propagation scheme selection.
918  !
919  ! !/S Enable subroutine tracing.
920  ! !/T Enable test output
921  !
922  ! 10. Source code :
923  !
924  !/ ------------------------------------------------------------------- /
925  USE constants, ONLY : lpdlib
926  USE w3gdatmd, ONLY: ngrids, igrid, w3setg, nk, nx, ny, nsea, &
927  nseal, nspec, nth, e3df, p2msf, us3df, &
928  usspf, gtype, ungtype
929  USE w3odatmd, ONLY: iaproc, naproc, ntproc, napfld, &
930  noswll, noextr, undef, flogrd, flogr2
931  USE w3idatmd, ONLY: flcur, flwind, fltaua, flrhoa
932  USE w3servmd, ONLY: extcde
933 #ifdef W3_S
934  USE w3servmd, ONLY: strace
935 #endif
936  !
937  !/
938  !/ ------------------------------------------------------------------- /
939  !/ Parameter list
940  !/
941  INTEGER, INTENT(IN) :: IMOD, NDSE, NDST
942  LOGICAL, INTENT(IN), OPTIONAL :: D_ONLY
943  !/
944  !/ ------------------------------------------------------------------- /
945  !/ Local parameters
946  !/
947  INTEGER :: JGRID, NXXX, NSEAL_tmp
948 #ifdef W3_S
949  INTEGER, SAVE :: IENT = 0
950  CALL strace (ient, 'W3DIMA')
951 #endif
952  integer :: memunit
953  !
954  ! -------------------------------------------------------------------- /
955  ! 1. Test input and module status
956  !
957  memunit = 30000+iaproc
958  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 0')
959 
960  IF ( PRESENT(d_only) ) THEN
961  fl_all = .NOT. d_only
962  ELSE
963  fl_all = .true.
964  END IF
965  !
966  IF ( ngrids .EQ. -1 ) THEN
967  WRITE (ndse,1001)
968  CALL extcde (1)
969  END IF
970  !
971  IF ( imod.LT.1 .OR. imod.GT.nadata ) THEN
972  WRITE (ndse,1002) imod, nadata
973  CALL extcde (2)
974  END IF
975  !
976  IF ( wadats(imod)%AINIT ) THEN
977  WRITE (ndse,1003)
978  CALL extcde (3)
979  END IF
980  !
981 #ifdef W3_T
982  WRITE (ndst,9000) imod
983 #endif
984  !
985  jgrid = igrid
986  IF ( jgrid .NE. imod ) CALL w3setg ( imod, ndse, ndst )
987 
988  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 1')
989  !
990  ! -------------------------------------------------------------------- /
991  ! 2. Allocate arrays
992  ! Call W3SETA to assure of pointes FLCUR, FLWND, and FLTAUA
993  !
994  CALL w3seta ( imod, ndse, ndst )
995 
996  !
997  !AR: Check this below more ...
998  nxxx = nsealm * naproc
999  !
1000  ! Output and input parameteres by output type
1001  !
1002  ! 1) Forcing fields (these arrays are always needed)
1003  !
1004  ALLOCATE ( wadats(imod)%DW(0:nsea) , stat=istat )
1005  check_alloc_status( istat )
1006  wadats(imod)%DW(:)=0.
1007  !
1008  ALLOCATE ( wadats(imod)%CX(0:nsea) , wadats(imod)%CY(0:nsea) , &
1009  stat=istat )
1010  check_alloc_status( istat )
1011  wadats(imod)%CX(:)=0.
1012  wadats(imod)%CY(:)=0.
1013  !
1014  ALLOCATE ( wadats(imod)%UA(0:nsea) , wadats(imod)%UD(0:nsea) , &
1015  wadats(imod)%U10(nsea) , wadats(imod)%U10D(nsea) , &
1016  wadats(imod)%AS(0:nsea) , stat=istat )
1017  check_alloc_status( istat )
1018  !
1019  ALLOCATE ( wadats(imod)%TAUA(0:nsea) , &
1020  wadats(imod)%TAUADIR(0:nsea), stat=istat )
1021  check_alloc_status( istat )
1022  wadats(imod)%TAUA(:) =0.
1023  wadats(imod)%TAUADIR(:)=0.
1024 
1025  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 2')
1026  !
1027  ! Water level WLV stored in W3WDATMD
1028  ! Ice concentration ICE stored in W3WDATMD
1029  ! Ice floe sizes ICEF and ICEDMAX stored in W3WDATMD
1030  ! Iceberg damping BERG stored in W3WDATMD
1031  !
1032  ! 2) Standard mean wave parameters
1033  ! Here, all short arrays are always allocated to reduce logical
1034  ! checks in all computations. The coresponding full size arrays
1035  ! are allocated in W3MPIO only as needed to keep the memory
1036  ! footprint down.
1037  !
1038  IF (nsealm .eq. 0) THEN
1039  nsealm=nsea
1040  END IF
1041  ALLOCATE ( wadats(imod)%HS (nsealm), wadats(imod)%WLM (nsealm), &
1042  wadats(imod)%T02 (nsealm), wadats(imod)%T0M1(nsealm), &
1043  wadats(imod)%T01 (nsealm), wadats(imod)%FP0 (nsealm), &
1044  wadats(imod)%THM (nsealm), wadats(imod)%THS (nsealm), &
1045  wadats(imod)%THP0 (nsealm), wadats(imod)%HSIG(nsealm), &
1046  wadats(imod)%STMAXE (nsealm), &
1047  wadats(imod)%STMAXD(nsealm), &
1048  wadats(imod)%HMAXE(nsealm), wadats(imod)%HMAXD(nsealm), &
1049  wadats(imod)%HCMAXE(nsealm), &
1050  wadats(imod)%HCMAXD(nsealm), wadats(imod)%QP(nsealm), &
1051  wadats(imod)%WBT(nsealm), &
1052  wadats(imod)%WNMEAN(nsealm), &
1053  stat=istat )
1054  check_alloc_status( istat )
1055  !
1056  wadats(imod)%HS = undef
1057  wadats(imod)%WLM = undef
1058  wadats(imod)%T02 = undef
1059  wadats(imod)%T0M1 = undef
1060  wadats(imod)%T01 = undef
1061  wadats(imod)%FP0 = undef
1062  wadats(imod)%THM = undef
1063  wadats(imod)%THS = undef
1064  wadats(imod)%THP0 = undef
1065  wadats(imod)%HSIG = undef
1066  wadats(imod)%STMAXE = undef
1067  wadats(imod)%STMAXD = undef
1068  wadats(imod)%HMAXE = undef
1069  wadats(imod)%HMAXD = undef
1070  wadats(imod)%HCMAXE = undef
1071  wadats(imod)%HCMAXD = undef
1072  wadats(imod)%QP = undef
1073  wadats(imod)%WBT = undef
1074  wadats(imod)%WNMEAN = undef
1075 
1076  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 3')
1077  !
1078  ! 3) Frequency-dependent standard parameters
1079  !
1080  ! For the 3D arrays: the allocation is performed only if these arrays are allowed
1081  ! by specific variables defined through the mod_def file
1082  ! and read by w3iogr, which is called before W3DIMA.
1083  IF ( e3df(1,1).GT.0 ) THEN
1084  ALLOCATE(wadats(imod)%EF(nsealm,e3df(2,1):e3df(3,1)), &
1085  stat=istat )
1086  check_alloc_status( istat )
1087  END IF
1088  IF ( e3df(1,2).GT.0 ) THEN
1089  ALLOCATE(wadats(imod)%TH1M(nsealm,e3df(2,2):e3df(3,2)), &
1090  stat=istat )
1091  check_alloc_status( istat )
1092  END IF
1093  IF ( e3df(1,3).GT.0 ) THEN
1094  ALLOCATE(wadats(imod)%STH1M(nsealm,e3df(2,3):e3df(3,3)), &
1095  stat=istat )
1096  check_alloc_status( istat )
1097  END IF
1098  IF ( e3df(1,4).GT.0 ) THEN
1099  ALLOCATE(wadats(imod)%TH2M(nsealm,e3df(2,4):e3df(3,4)), &
1100  stat=istat )
1101  check_alloc_status( istat )
1102  END IF
1103  IF ( e3df(1,5).GT.0 ) THEN
1104  ALLOCATE(wadats(imod)%STH2M(nsealm,e3df(2,5):e3df(3,5)), &
1105  stat=istat )
1106  check_alloc_status( istat )
1107  END IF
1108  !
1109  IF ( e3df(1,1).GT.0 ) wadats(imod)%EF = undef
1110  IF ( e3df(1,2).GT.0 ) wadats(imod)%TH1M = undef
1111  IF ( e3df(1,3).GT.0 ) wadats(imod)%STH1M = undef
1112  IF ( e3df(1,4).GT.0 ) wadats(imod)%TH2M = undef
1113  IF ( e3df(1,5).GT.0 ) wadats(imod)%STH2M = undef
1114 
1115  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 4')
1116  !
1117  ! 4) Spectral Partitions parameters
1118  !
1119  ALLOCATE ( wadats(imod)%PHS(nsealm,0:noswll), &
1120  wadats(imod)%PTP(nsealm,0:noswll), &
1121  wadats(imod)%PLP(nsealm,0:noswll), &
1122  wadats(imod)%PDIR(nsealm,0:noswll), &
1123  wadats(imod)%PSI(nsealm,0:noswll), &
1124  wadats(imod)%PWS(nsealm,0:noswll), &
1125  wadats(imod)%PWST(nsealm), &
1126  wadats(imod)%PNR(nsealm), &
1127  wadats(imod)%PTHP0(nsealm,0:noswll), &
1128  wadats(imod)%PQP(nsealm,0:noswll), &
1129  wadats(imod)%PPE(nsealm,0:noswll), &
1130  wadats(imod)%PGW(nsealm,0:noswll), &
1131  wadats(imod)%PSW(nsealm,0:noswll), &
1132  wadats(imod)%PTM1(nsealm,0:noswll), &
1133  wadats(imod)%PT1(nsealm,0:noswll), &
1134  wadats(imod)%PT2(nsealm,0:noswll), &
1135  wadats(imod)%PEP(nsealm,0:noswll), &
1136  stat=istat )
1137  check_alloc_status( istat )
1138  !
1139  wadats(imod)%PHS = undef
1140  wadats(imod)%PTP = undef
1141  wadats(imod)%PLP = undef
1142  wadats(imod)%PDIR = undef
1143  wadats(imod)%PSI = undef
1144  wadats(imod)%PWS = undef
1145  wadats(imod)%PWST = undef
1146  wadats(imod)%PNR = undef
1147  wadats(imod)%PTHP0 = undef
1148  wadats(imod)%PQP = undef
1149  wadats(imod)%PPE = undef
1150  wadats(imod)%PGW = undef
1151  wadats(imod)%PSW = undef
1152  wadats(imod)%PTM1 = undef
1153  wadats(imod)%PT1 = undef
1154  wadats(imod)%PT2 = undef
1155  wadats(imod)%PEP = undef
1156  !
1157  ! 5) Atmosphere-waves layer
1158  !
1159  ! Friction velocity UST and USTDIR in W3WDATMD
1160  !
1161  ALLOCATE ( wadats(imod)%CHARN (nsealm), &
1162  wadats(imod)%TWS (nsealm), &
1163  wadats(imod)%CGE (nsealm), &
1164  wadats(imod)%PHIAW (nsealm), &
1165  wadats(imod)%TAUWIX (nsealm), &
1166  wadats(imod)%TAUWIY (nsealm), &
1167  wadats(imod)%TAUWNX (nsealm), &
1168  wadats(imod)%TAUWNY (nsealm), &
1169  wadats(imod)%WHITECAP(nsealm,4), &
1170  stat=istat )
1171  check_alloc_status( istat )
1172  !
1173  wadats(imod)%CHARN = undef
1174  wadats(imod)%TWS = undef
1175  wadats(imod)%CGE = undef
1176  wadats(imod)%PHIAW = undef
1177  wadats(imod)%TAUWIX = undef
1178  wadats(imod)%TAUWIY = undef
1179  wadats(imod)%TAUWNX = undef
1180  wadats(imod)%TAUWNY = undef
1181  wadats(imod)%WHITECAP = undef
1182 
1183  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 5')
1184  !
1185  ! 6) Wave-ocean layer
1186  !
1187  ALLOCATE ( wadats(imod)%SXX (nsealm) , &
1188  wadats(imod)%SYY (nsealm) , &
1189  wadats(imod)%SXY (nsealm) , &
1190  wadats(imod)%TAUOX (nsealm) , &
1191  wadats(imod)%TAUOY (nsealm) , &
1192  wadats(imod)%BHD (nsealm) , &
1193  wadats(imod)%PHIOC (nsealm) , &
1194  wadats(imod)%TUSX (nsealm) , &
1195  wadats(imod)%TUSY (nsealm) , &
1196  wadats(imod)%USSX (nsealm) , &
1197  wadats(imod)%USSY (nsealm) , &
1198  wadats(imod)%TAUOCX(nsealm) , &
1199  wadats(imod)%TAUOCY(nsealm) , &
1200  wadats(imod)%PRMS (nsealm) , &
1201  wadats(imod)%TPMS (nsealm) , &
1202  wadats(imod)%PHICE (nsealm) , &
1203  wadats(imod)%TAUICE(nsealm,2), &
1204  stat=istat )
1205  check_alloc_status( istat )
1206  !
1207  ! For the 3D arrays: the allocation is performed only if these arrays are allowed
1208  ! by specific variables defined through the mod_def file
1209  ! and read by w3iogr, which is called before W3DIMA.
1210  IF ( p2msf(1).GT.0 ) THEN
1211  ALLOCATE(wadats(imod)%P2SMS(nsealm,p2msf(2):p2msf(3)), stat=istat )
1212  check_alloc_status( istat )
1213  END IF
1214  IF ( us3df(1).GT.0 ) THEN ! maybe use US3DF(2:3)
1215  ALLOCATE(wadats(imod)%US3D(nsealm,nk*2), stat=istat )
1216  check_alloc_status( istat )
1217  END IF
1218  IF ( usspf(1).GT.0 ) THEN
1219  ALLOCATE(wadats(imod)%USSP(nsealm,nk*2), stat=istat )
1220  check_alloc_status( istat )
1221  END IF
1222  !
1223  wadats(imod)%SXX = undef
1224  wadats(imod)%SYY = undef
1225  wadats(imod)%SXY = undef
1226  wadats(imod)%TAUOX = undef
1227  wadats(imod)%TAUOY = undef
1228  wadats(imod)%BHD = undef
1229  wadats(imod)%PHIOC = undef
1230  wadats(imod)%TUSX = undef
1231  wadats(imod)%TUSY = undef
1232  wadats(imod)%USSX = undef
1233  wadats(imod)%USSY = undef
1234  wadats(imod)%TAUOCX = undef
1235  wadats(imod)%TAUOCY = undef
1236  wadats(imod)%PRMS = undef
1237  wadats(imod)%TPMS = undef
1238  wadats(imod)%PHICE = undef
1239  wadats(imod)%TAUICE = undef
1240  IF ( p2msf(1).GT.0 ) wadats(imod)%P2SMS = undef
1241  IF ( us3df(1).GT.0 ) wadats(imod)%US3D = undef
1242  IF ( usspf(1).GT.0 ) wadats(imod)%USSP = undef
1243 
1244  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 6')
1245  !
1246  ! 7) Wave-bottom layer
1247  !
1248  ALLOCATE ( wadats(imod)%ABA(nsealm) , wadats(imod)%ABD(nsealm) , &
1249  wadats(imod)%UBA(nsealm) , wadats(imod)%UBD(nsealm) , &
1250  wadats(imod)%BEDFORMS(nsealm,3), &
1251  wadats(imod)%PHIBBL (nsealm) , &
1252  wadats(imod)%TAUBBL (nsealm,2), stat=istat )
1253  check_alloc_status( istat )
1254  !
1255  wadats(imod)%ABA = undef
1256  wadats(imod)%ABD = undef
1257  wadats(imod)%UBA = undef
1258  wadats(imod)%UBD = undef
1259  wadats(imod)%BEDFORMS = undef
1260  wadats(imod)%PHIBBL = undef
1261  wadats(imod)%TAUBBL = undef
1262 
1263  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 7')
1264  !
1265  ! 8) Spectrum parameters
1266  !
1267  ALLOCATE ( wadats(imod)%MSSX(nsealm), wadats(imod)%MSSY(nsealm), &
1268  wadats(imod)%MSCX(nsealm), wadats(imod)%MSCY(nsealm), &
1269  wadats(imod)%MSSD(nsealm), wadats(imod)%MSCD(nsealm), &
1270  wadats(imod)%QKK(nsealm), wadats(imod)%SKEW(nsealm), &
1271  wadats(imod)%EMBIA1(nsealm), wadats(imod)%EMBIA2(nsealm), &
1272  stat=istat )
1273  check_alloc_status( istat )
1274  !
1275  wadats(imod)%MSSX = undef
1276  wadats(imod)%MSSY = undef
1277  wadats(imod)%MSSD = undef
1278  wadats(imod)%MSCX = undef
1279  wadats(imod)%MSCY = undef
1280  wadats(imod)%MSCD = undef
1281  wadats(imod)%QKK = undef
1282  wadats(imod)%SKEW = undef
1283  wadats(imod)%EMBIA1 = undef
1284  wadats(imod)%EMBIA2 = undef
1285  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 8')
1286  !
1287  ! 9) Numerical diagnostics
1288  !
1289  !
1290  ALLOCATE ( wadats(imod)%DTDYN (nsealm) , &
1291  wadats(imod)%FCUT (nsealm) , &
1292  wadats(imod)%CFLXYMAX(nsealm) , &
1293  wadats(imod)%CFLTHMAX(nsealm) , &
1294  wadats(imod)%CFLKMAX (nsealm) , stat=istat )
1295  check_alloc_status( istat )
1296  !
1297  wadats(imod)%DTDYN = undef
1298  wadats(imod)%FCUT = undef
1299  wadats(imod)%CFLXYMAX = undef
1300  wadats(imod)%CFLTHMAX = undef
1301  wadats(imod)%CFLKMAX = undef
1302 
1303  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 9')
1304  !
1305  ! 10) User defined
1306  !
1307  ALLOCATE ( wadats(imod)%USERO(nsealm,noextr), stat=istat )
1308  check_alloc_status( istat )
1309  !
1310  wadats(imod)%USERO = undef
1311  !
1312  ALLOCATE ( wadats(imod)%WN(0:nk+1,0:nsea), stat=istat )
1313  check_alloc_status( istat )
1314 
1315 #ifdef W3_IC3
1316  ALLOCATE (wadats(imod)%IC3WN_R(0:nk+1,0:300), stat=istat )
1317  check_alloc_status( istat )
1318  ALLOCATE (wadats(imod)%IC3WN_I(0:nk+1,0:300), stat=istat )
1319  check_alloc_status( istat )
1320 #endif
1321  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 10')
1322  !
1323  IF ( fl_all ) THEN
1324  !
1325  ALLOCATE ( wadats(imod)%CG(0:nk+1,0:nsea), stat=istat )
1326  check_alloc_status( istat )
1327 
1328 #ifdef W3_IC3
1329  ALLOCATE (wadats(imod)%IC3CG(0:nk+1,0:300), stat=istat )
1330  check_alloc_status( istat )
1331 #endif
1332 
1333  !
1334  IF ( flcur ) THEN
1335  ALLOCATE ( wadats(imod)%CA0(nsea) , &
1336  wadats(imod)%CAI(nsea) , &
1337  wadats(imod)%CD0(nsea) , &
1338  wadats(imod)%CDI(nsea) , &
1339  stat=istat )
1340  check_alloc_status( istat )
1341  END IF
1342  !
1343  IF ( flwind ) THEN
1344  ALLOCATE ( wadats(imod)%UA0(nsea) , &
1345  wadats(imod)%UAI(nsea) , &
1346  wadats(imod)%UD0(nsea) , &
1347  wadats(imod)%UDI(nsea) , &
1348  wadats(imod)%AS0(nsea) , &
1349  wadats(imod)%ASI(nsea) , &
1350  stat=istat )
1351  check_alloc_status( istat )
1352  END IF
1353  !
1354  IF ( fltaua ) THEN
1355  ALLOCATE ( wadats(imod)%MA0(nsea) , &
1356  wadats(imod)%MAI(nsea) , &
1357  wadats(imod)%MD0(nsea) , &
1358  wadats(imod)%MDI(nsea) , &
1359  stat=istat )
1360  check_alloc_status( istat )
1361  END IF
1362  !
1363  IF ( flrhoa ) THEN
1364  ALLOCATE ( wadats(imod)%RA0(nsea) , &
1365  wadats(imod)%RAI(nsea) , &
1366  stat=istat )
1367  check_alloc_status( istat )
1368  END IF
1369  !
1370  ALLOCATE ( wadats(imod)%ATRNX(ny*nx,-1:1) , &
1371  wadats(imod)%ATRNY(ny*nx,-1:1) , stat=istat )
1372  check_alloc_status( istat )
1373  !
1374  IF (.NOT. lpdlib) THEN
1375  ALLOCATE ( wadats(imod)%DDDX(ny,nx) , &
1376  wadats(imod)%DDDY(ny,nx) , &
1377  wadats(imod)%DCDX(0:nk+1,ny,nx) , &
1378  wadats(imod)%DCDY(0:nk+1,ny,nx) , &
1379  wadats(imod)%DCXDX(ny,nx) , &
1380  wadats(imod)%DCYDX(ny,nx) , &
1381  wadats(imod)%DCXDY(ny,nx) , &
1382  wadats(imod)%DCYDY(ny,nx) , stat=istat )
1383  ELSE
1384  ALLOCATE ( wadats(imod)%DDDX(1,nseal) , &
1385  wadats(imod)%DDDY(1,nseal) , &
1386  wadats(imod)%DCDX(0:nk+1,1,nseal) , &
1387  wadats(imod)%DCDY(0:nk+1,1,nseal) , &
1388  wadats(imod)%DCXDX(1,nseal) , &
1389  wadats(imod)%DCYDX(1,nseal) , &
1390  wadats(imod)%DCXDY(1,nseal) , &
1391  wadats(imod)%DCYDY(1,nseal) , &
1392  stat=istat )
1393  ENDIF
1394  check_alloc_status( istat )
1395  wadats(imod)%DDDX = 0.
1396  wadats(imod)%DDDY = 0.
1397  wadats(imod)%DCDX = 0.
1398  wadats(imod)%DCDY = 0.
1399  wadats(imod)%DCXDX = 0.
1400  wadats(imod)%DCYDX = 0.
1401  wadats(imod)%DCXDY = 0.
1402  wadats(imod)%DCYDY = 0.
1403  !
1404 #ifdef W3_SMC
1405  ALLOCATE ( wadats(imod)%DHDX(nsea) , &
1406  wadats(imod)%DHDY(nsea) , &
1407  wadats(imod)%DHLMT(nth,nsea) , stat=istat )
1408  check_alloc_status( istat )
1409 #endif
1410  !
1411  ALLOCATE ( wadats(imod)%ALPHA(nk,nseal) , stat=istat )
1412  check_alloc_status( istat )
1413  !
1414 #ifdef W3_PR1
1415  ALLOCATE ( wadats(imod)%IS0(nspec) , &
1416  wadats(imod)%IS2(nspec) , &
1417  wadats(imod)%FACVX(ny*nx) , &
1418  wadats(imod)%FACVY(ny*nx) , stat=istat )
1419  check_alloc_status( istat )
1420 #endif
1421  !
1422 #ifdef W3_PR2
1423  ALLOCATE ( wadats(imod)%MAPX2(ny*nx) , &
1424  wadats(imod)%MAPY2(ny*nx) , &
1425  wadats(imod)%MAPAXY(ny*nx) , &
1426  wadats(imod)%MAPXY(nsea) , &
1427  wadats(imod)%MAPTH2((nk+2)*nth) , &
1428  wadats(imod)%MAPWN2(nspec+nth) , stat=istat )
1429  check_alloc_status( istat )
1430  wadats(imod)%MAPTH2 = 0
1431 #endif
1432  !
1433  IF (gtype .EQ. ungtype) THEN
1434  ALLOCATE( wadats(imod)%ITER(nk,nth), stat=istat )
1435  check_alloc_status( istat )
1436  END IF
1437  !
1438 #ifdef W3_PR3
1439  ALLOCATE ( wadats(imod)%MAPX2(ny*nx) , &
1440  wadats(imod)%MAPY2(ny*nx) , &
1441  wadats(imod)%MAPAXY(ny*nx) , &
1442  wadats(imod)%MAPCXY(nsea) , &
1443  wadats(imod)%MAPTH2((nk+2)*nth) , &
1444  wadats(imod)%MAPWN2(nspec+nth) , &
1445  wadats(imod)%MAPTRN(ny*nx) , stat=istat )
1446  check_alloc_status( istat )
1447  wadats(imod)%MAPTH2 = 0
1448 #endif
1449  !
1450  ALLOCATE ( wadats(imod)%IAPPRO(nspec) , &
1451  wadats(imod)%SPPNT(nth,nk,4), stat=istat )
1452  check_alloc_status( istat )
1453  !
1454  END IF
1455  !
1456  wadats(imod)%AINIT = .true.
1457 
1458  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 11')
1459  !
1460 #ifdef W3_T
1461  WRITE (ndst,9001)
1462 #endif
1463  !
1464  ! -------------------------------------------------------------------- /
1465  ! 3. Point to allocated arrays
1466  !
1467  CALL w3seta ( imod, ndse, ndst )
1468 
1469  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA 12')
1470  !
1471 #ifdef W3_T
1472  WRITE (ndst,9002)
1473 #endif
1474  !
1475  ! -------------------------------------------------------------------- /
1476  ! 4. Update counters in grid
1477  !
1478 #ifdef W3_T
1479  WRITE (ndst,9003)
1480 #endif
1481  !
1482  ! -------------------------------------------------------------------- /
1483  ! 5. Restore previous grid setting if necessary
1484  !
1485  IF ( jgrid .NE. imod ) CALL w3setg ( jgrid, ndse, ndst )
1486 
1487  call print_memcheck(memunit, 'memcheck_____:'//' W3DIMA END')
1488  !
1489  RETURN
1490  !
1491  ! Formats
1492  !
1493 1001 FORMAT (/' *** ERROR W3DIMA : GRIDS NOT INITIALIZED *** '/ &
1494  ' RUN W3NMOD FIRST '/)
1495 1002 FORMAT (/' *** ERROR W3DIMA : ILLEGAL MODEL NUMBER *** '/ &
1496  ' IMOD = ',i10/ &
1497  ' NADATA = ',i10/)
1498 1003 FORMAT (/' *** ERROR W3DIMA : ARRAY(S) ALREADY ALLOCATED *** ')
1499  !
1500 #ifdef W3_T
1501 9000 FORMAT (' TEST W3DIMA : MODEL ',i4)
1502 9001 FORMAT (' TEST W3DIMA : ARRAYS ALLOCATED')
1503 9002 FORMAT (' TEST W3DIMA : POINTERS RESET')
1504 9003 FORMAT (' TEST W3DIMA : DIMENSIONS STORED')
1505 #endif
1506  !/
1507  !/ End of W3DIMA ----------------------------------------------------- /
1508  !/

References w3gdatmd::e3df, w3servmd::extcde(), fl_all, w3idatmd::flcur, w3odatmd::flogr2, w3odatmd::flogrd, w3idatmd::flrhoa, w3idatmd::fltaua, w3idatmd::flwind, w3gdatmd::gtype, w3odatmd::iaproc, w3gdatmd::igrid, constants::lpdlib, nadata, w3odatmd::napfld, w3odatmd::naproc, w3gdatmd::ngrids, w3gdatmd::nk, w3odatmd::noextr, w3odatmd::noswll, w3gdatmd::nsea, w3gdatmd::nseal, nsealm, w3gdatmd::nspec, w3gdatmd::nth, w3odatmd::ntproc, w3gdatmd::nx, w3gdatmd::ny, w3gdatmd::p2msf, w3servmd::strace(), w3gdatmd::ungtype, w3gdatmd::us3df, w3gdatmd::usspf, w3seta(), w3gdatmd::w3setg(), and wadats.

Referenced by w3grid_interp(), w3initmd::w3init(), w3iogomd::w3iogo(), and w3shel().

◆ w3dmnl()

subroutine w3adatmd::w3dmnl ( integer, intent(in)  IMOD,
integer, intent(in)  NDSE,
integer, intent(in)  NDST,
integer, intent(in)  NSP,
integer, intent(in)  NSPX 
)

Initialize an individual data grid at the proper dimensions (DIA).

Allocate directly into the structure array. Note that this cannot be done through the pointer alias!

Parameters
[in]IMODModel number to point to.
[in]NDSEError output unit number.
[in]NDSTTest output unit number.
[in]NSPArray dimensions.
[in]NSPXArray dimensions.
Author
H. L. Tolman
Date
10-Dec-2014

Definition at line 2431 of file w3adatmd.F90.

2431  !/
2432  !/ +-----------------------------------+
2433  !/ | WAVEWATCH III NOAA/NCEP |
2434  !/ | H. L. Tolman |
2435  !/ | FORTRAN 90 |
2436  !/ | Last update : 10-Dec-2014 |
2437  !/ +-----------------------------------+
2438  !/
2439  !/ 24-Dec-2004 : Origination. ( version 3.06 )
2440  !/ 04-Oct-2006 : Add filter to array pointers. ( version 3.10 )
2441  !/ 10-Dec-2014 : Add checks for allocate status ( version 5.04 )
2442  !/
2443  ! 1. Purpose :
2444  !
2445  ! Initialize an individual data grid at the proper dimensions (DIA).
2446  !
2447  ! 2. Method :
2448  !
2449  ! Allocate directly into the structure array. Note that
2450  ! this cannot be done through the pointer alias!
2451  !
2452  ! 3. Parameters :
2453  !
2454  ! Parameter list
2455  ! ----------------------------------------------------------------
2456  ! IMOD Int. I Model number to point to.
2457  ! NDSE Int. I Error output unit number.
2458  ! NDST Int. I Test output unit number.
2459  ! NSP(X) Int. I Array dimensions.
2460  ! ----------------------------------------------------------------
2461  !
2462  ! 4. Subroutines used :
2463  !
2464  ! See module documentation.
2465  !
2466  ! 5. Called by :
2467  !
2468  ! Name Type Module Description
2469  ! ----------------------------------------------------------------
2470  ! INSNL1 Subr. W3SNL1MD Traditional DIA approach to Snl.
2471  ! ----------------------------------------------------------------
2472  !
2473  ! 6. Error messages :
2474  !
2475  ! - Check on input parameters.
2476  ! - Check on previous allocation.
2477  !
2478  ! 7. Remarks :
2479  !
2480  ! - W3SETA needs to be called after allocation to point to
2481  ! proper allocated arrays.
2482  !
2483  ! 8. Structure :
2484  !
2485  ! See source code.
2486  !
2487  ! 9. Switches :
2488  !
2489  ! !/S Enable subroutine tracing.
2490  ! !/T Enable test output
2491  !
2492  ! 10. Source code :
2493  !
2494  !/ ------------------------------------------------------------------- /
2495  USE w3gdatmd, ONLY: ngrids, igrid, nk, nx, ny, nsea, nseal, &
2496  nspec, nth, gtype, ungtype
2497  USE w3odatmd, ONLY: naproc
2498  USE w3servmd, ONLY: extcde
2499 #ifdef W3_S
2500  USE w3servmd, ONLY: strace
2501 #endif
2502  !
2503  !/
2504  !/ ------------------------------------------------------------------- /
2505  !/ Parameter list
2506  !/
2507  INTEGER, INTENT(IN) :: IMOD, NDSE, NDST, NSP, NSPX
2508  !/
2509  !/ ------------------------------------------------------------------- /
2510  !/ Local parameters
2511  !/
2512 #ifdef W3_S
2513  INTEGER, SAVE :: IENT = 0
2514  CALL strace (ient, 'W3DMNL')
2515 #endif
2516  !
2517  ! -------------------------------------------------------------------- /
2518  ! 1. Test input and module status
2519  !
2520  IF ( ngrids .EQ. -1 ) THEN
2521  WRITE (ndse,1001)
2522  CALL extcde (1)
2523  END IF
2524  !
2525  IF ( imod.LT.1 .OR. imod.GT.nadata ) THEN
2526  WRITE (ndse,1002) imod, nadata
2527  CALL extcde (2)
2528  END IF
2529  !
2530 #ifdef W3_NL1
2531  IF ( wadats(imod)%NLINIT ) THEN
2532  WRITE (ndse,1003)
2533  CALL extcde (3)
2534  END IF
2535 #endif
2536  !
2537 #ifdef W3_T
2538  WRITE (ndst,9000) imod
2539 #endif
2540  !
2541  ! -------------------------------------------------------------------- /
2542  ! 2. Allocate arrays
2543  !
2544 #ifdef W3_NL1
2545  ALLOCATE ( wadats(imod)%IP11(nspx), &
2546  wadats(imod)%IP12(nspx), &
2547  wadats(imod)%IP13(nspx), &
2548  wadats(imod)%IP14(nspx), &
2549  wadats(imod)%IM11(nspx), &
2550  wadats(imod)%IM12(nspx), &
2551  wadats(imod)%IM13(nspx), &
2552  wadats(imod)%IM14(nspx), &
2553  wadats(imod)%IP21(nspx), &
2554  wadats(imod)%IP22(nspx), &
2555  wadats(imod)%IP23(nspx), &
2556  wadats(imod)%IP24(nspx), &
2557  wadats(imod)%IM21(nspx), &
2558  wadats(imod)%IM22(nspx), &
2559  wadats(imod)%IM23(nspx), &
2560  wadats(imod)%IM24(nspx), &
2561  wadats(imod)%IC11(nsp) , &
2562  wadats(imod)%IC12(nsp) , &
2563  wadats(imod)%IC21(nsp) , &
2564  wadats(imod)%IC22(nsp) , &
2565  wadats(imod)%IC31(nsp) , &
2566  wadats(imod)%IC32(nsp) , &
2567  wadats(imod)%IC41(nsp) , &
2568  wadats(imod)%IC42(nsp) , &
2569  wadats(imod)%IC51(nsp) , &
2570  wadats(imod)%IC52(nsp) , &
2571  wadats(imod)%IC61(nsp) , &
2572  wadats(imod)%IC62(nsp) , &
2573  wadats(imod)%IC71(nsp) , &
2574  wadats(imod)%IC72(nsp) , &
2575  wadats(imod)%IC81(nsp) , &
2576  wadats(imod)%IC82(nsp) , &
2577  wadats(imod)%AF11(nspx), &
2578  stat=istat )
2579  check_alloc_status( istat )
2580  wadats(imod)%NLINIT = .true.
2581 #endif
2582  !
2583 #ifdef W3_T
2584  WRITE (ndst,9001)
2585 #endif
2586  !
2587  ! -------------------------------------------------------------------- /
2588  ! 3. Point to allocated arrays
2589  !
2590  CALL w3seta ( imod, ndse, ndst )
2591  !
2592 #ifdef W3_T
2593  WRITE (ndst,9002)
2594 #endif
2595  !
2596  ! -------------------------------------------------------------------- /
2597  ! 4. Update counters in grid
2598  !
2599 #ifdef W3_NL1
2600  nspecx = nspx
2601 #endif
2602  !
2603 #ifdef W3_T
2604  WRITE (ndst,9003)
2605 #endif
2606  !
2607  RETURN
2608  !
2609  ! Formats
2610  !
2611 1001 FORMAT (/' *** ERROR W3DMNL : GRIDS NOT INITIALIZED *** '/ &
2612  ' RUN W3NMOD FIRST '/)
2613 1002 FORMAT (/' *** ERROR W3DMNL : ILLEGAL MODEL NUMBER *** '/ &
2614  ' IMOD = ',i10/ &
2615  ' NADATA = ',i10/)
2616 #ifdef W3_NL1
2617 1003 FORMAT (/' *** ERROR W3DMNL : ARRAY(S) ALREADY ALLOCATED *** ')
2618 #endif
2619  !
2620 #ifdef W3_T
2621 9000 FORMAT (' TEST W3DMNL : MODEL ',i4)
2622 9001 FORMAT (' TEST W3DMNL : ARRAYS ALLOCATED')
2623 9002 FORMAT (' TEST W3DMNL : POINTERS RESET')
2624 9003 FORMAT (' TEST W3DMNL : DIMENSIONS STORED')
2625 #endif
2626  !/
2627  !/ End of W3DMNL ----------------------------------------------------- /
2628  !/

References w3servmd::extcde(), w3gdatmd::gtype, w3gdatmd::igrid, nadata, w3odatmd::naproc, w3gdatmd::ngrids, w3gdatmd::nk, w3gdatmd::nsea, w3gdatmd::nseal, w3gdatmd::nspec, nspecx, w3gdatmd::nth, w3gdatmd::nx, w3gdatmd::ny, w3servmd::strace(), w3gdatmd::ungtype, w3seta(), and wadats.

Referenced by w3snl1md::insnl1().

◆ w3naux()

subroutine w3adatmd::w3naux ( integer, intent(in)  NDSE,
integer, intent(in)  NDST 
)

Set up the number of grids to be used.

Use data stored in NGRIDS in W3GDATMD.

Parameters
[in]NDSEError output unit number.
[in]NDSTTest output unit number.
Author
H. L. Tolman
Date
10-Dec-2014

Definition at line 704 of file w3adatmd.F90.

704  !/
705  !/ +-----------------------------------+
706  !/ | WAVEWATCH III NOAA/NCEP |
707  !/ | H. L. Tolman |
708  !/ | FORTRAN 90 |
709  !/ | Last update : 10-Dec-2014 !
710  !/ +-----------------------------------+
711  !/
712  !/ 14-Dec-2004 : Origination. ( version 3.06 )
713  !/ 04-Oct-2006 : Add filter to array pointers. ( version 3.10 )
714  !/ 10-Dec-2014 : Add checks for allocate status ( version 5.04 )
715  !/
716  ! 1. Purpose :
717  !
718  ! Set up the number of grids to be used.
719  !
720  ! 2. Method :
721  !
722  ! Use data stored in NGRIDS in W3GDATMD.
723  !
724  ! 3. Parameters :
725  !
726  ! Parameter list
727  ! ----------------------------------------------------------------
728  ! NDSE Int. I Error output unit number.
729  ! NDST Int. I Test output unit number.
730  ! ----------------------------------------------------------------
731  !
732  ! 4. Subroutines used :
733  !
734  ! See module documentation.
735  !
736  ! 5. Called by :
737  !
738  ! Any program that uses this grid structure.
739  !
740  ! 6. Error messages :
741  !
742  ! - Error checks on previous setting of variable NGRIDS.
743  !
744  ! 7. Remarks :
745  !
746  ! 8. Structure :
747  !
748  ! 9. Switches :
749  !
750  ! !/S Enable subroutine tracing.
751  ! !/T Enable test output
752  !
753  ! 10. Source code :
754  !
755  !/ ------------------------------------------------------------------- /
756  USE w3gdatmd, ONLY: ngrids
757  USE w3servmd, ONLY: extcde
758  USE w3odatmd, ONLY: iaproc
759 #ifdef W3_S
760  USE w3servmd, ONLY: strace
761 #endif
762  !
763  !/
764  !/ ------------------------------------------------------------------- /
765  !/ Parameter list
766  !/
767  INTEGER, INTENT(IN) :: NDSE, NDST
768  !/
769  !/ ------------------------------------------------------------------- /
770  !/ Local parameters
771  !/
772  INTEGER :: I
773 #ifdef W3_S
774  INTEGER, SAVE :: IENT = 0
775  CALL strace (ient, 'W3NAUX')
776 #endif
777  !
778  ! -------------------------------------------------------------------- /
779  ! 1. Test input and module status
780  !
781  IF ( ngrids .EQ. -1 ) THEN
782  WRITE (ndse,1001) ngrids
783  CALL extcde (1)
784  END IF
785  !
786  ! -------------------------------------------------------------------- /
787  ! 2. Set variable and allocate arrays
788  !
789  ALLOCATE ( wadats(ngrids), stat=istat )
790  check_alloc_status( istat )
791  nadata = ngrids
792  !
793  ! -------------------------------------------------------------------- /
794  ! 3. Initialize parameters
795  !
796  DO i=1, ngrids
797  wadats(i)%ITIME = 0
798  wadats(i)%IPASS = 0
799  wadats(i)%IDLAST = 0
800  wadats(i)%NSEALM = 0
801  wadats(i)%FLCOLD = .false.
802  wadats(i)%FLIWND = .false.
803  wadats(i)%AINIT = .false.
804  wadats(i)%AINIT2 = .false.
805  wadats(i)%FL_ALL = .false.
806 #ifdef W3_NL1
807  wadats(i)%NLINIT = .false.
808 #endif
809  END DO
810  !
811 #ifdef W3_T
812  WRITE (ndst,9000) ngrids
813 #endif
814  !
815  RETURN
816  !
817  ! Formats
818  !
819 1001 FORMAT (/' *** ERROR W3NAUX : NGRIDS NOT YET SET *** '/ &
820  ' NGRIDS = ',i10/ &
821  ' RUN W3NMOD FIRST'/)
822  !
823 #ifdef W3_T
824 9000 FORMAT (' TEST W3NAUX : SETTING UP FOR ',i4,' GRIDS')
825 #endif
826  !/
827  !/ End of W3NAUX ----------------------------------------------------- /
828  !/

References w3servmd::extcde(), w3odatmd::iaproc, nadata, w3gdatmd::ngrids, w3servmd::strace(), and wadats.

Referenced by gxoutf(), gxoutp(), w3bounc(), w3bound(), w3grib(), w3grid_interp(), w3gspl(), w3ounf(), w3ounp(), w3outf(), w3outp(), w3prep(), w3prnc(), w3prtide(), w3shel(), w3strt(), w3trnc(), w3uprstr(), wminitmd::wminit(), and wminitmd::wminitnml().

◆ w3seta()

subroutine w3adatmd::w3seta ( integer, intent(in)  IMOD,
integer, intent(in)  NDSE,
integer, intent(in)  NDST 
)

Select one of the WAVEWATCH III grids / models.

Point pointers to the proper variables in the proper element of the GRIDS array.

Parameters
[in]IMODModel number to point to.
[in]NDSEError output unit number.
[in]NDSTTest output unit number.
Author
H. L. Tolman
Date
22-Mar-2021

Definition at line 2645 of file w3adatmd.F90.

2645  !/
2646  !/ +-----------------------------------+
2647  !/ | WAVEWATCH III NOAA/NCEP |
2648  !/ | H. L. Tolman |
2649  !/ | FORTRAN 90 |
2650  !/ | Last update : 22-Mar-2021 |
2651  !/ +-----------------------------------+
2652  !/
2653  !/ 28-Dec-2004 : Origination. ( version 3.06 )
2654  !/ 04-May-2005 : Adding MPI_COMM_WAVE. ( version 3.07 )
2655  !/ 20-Jul-2005 : Adding output fields. ( version 3.07 )
2656  !/ 09-Nov-2005 : Removing soft boundary option. ( version 3.08 )
2657  !/ 13-Jun-2006 : Splitting STORE in G/SSTORE. ( version 3.09 )
2658  !/ 04-Oct-2006 : Add filter to array pointers. ( version 3.10 )
2659  !/ 28_Mar-2007 : Add partitioned data arrays. ( version 3.11 )
2660  !/ Add aditional undefined arrays.
2661  !/ 22-Mar-2021 : Adds TAUA, WNMEAN, TAUOC parameters ( version 7.13 )
2662  !/
2663  ! 1. Purpose :
2664  !
2665  ! Select one of the WAVEWATCH III grids / models.
2666  !
2667  ! 2. Method :
2668  !
2669  ! Point pointers to the proper variables in the proper element of
2670  ! the GRIDS array.
2671  !
2672  ! 3. Parameters :
2673  !
2674  ! Parameter list
2675  ! ----------------------------------------------------------------
2676  ! IMOD Int. I Model number to point to.
2677  ! NDSE Int. I Error output unit number.
2678  ! NDST Int. I Test output unit number.
2679  ! ----------------------------------------------------------------
2680  !
2681  ! 4. Subroutines used :
2682  !
2683  ! See module documentation below.
2684  !
2685  ! 5. Called by :
2686  !
2687  ! Many subroutines in the WAVEWATCH system.
2688  !
2689  ! 6. Error messages :
2690  !
2691  ! Checks on parameter list IMOD.
2692  !
2693  ! 7. Remarks :
2694  !
2695  ! 8. Structure :
2696  !
2697  ! 9. Switches :
2698  !
2699  ! !/MPI Paralllel model environment.
2700  !
2701  ! !/PRn Propagation scheme selection.
2702  !
2703  ! !/S Enable subroutine tracing.
2704  ! !/T Enable test output
2705  !
2706  ! 10. Source code :
2707  !
2708  !/ ------------------------------------------------------------------- /
2709  !
2710  USE w3idatmd, ONLY: inputs
2711  USE w3gdatmd, ONLY: e3df, p2msf, us3df, usspf, gtype, ungtype
2712  !
2713  USE w3servmd, ONLY: extcde
2714 #ifdef W3_S
2715  USE w3servmd, ONLY: strace
2716 #endif
2717  !
2718  !/
2719  !/ ------------------------------------------------------------------- /
2720  !/ Parameter list
2721  !/
2722  INTEGER, INTENT(IN) :: IMOD, NDSE, NDST
2723  !/
2724  !/ ------------------------------------------------------------------- /
2725  !/ Local parameters
2726  !/
2727 #ifdef W3_S
2728  INTEGER, SAVE :: IENT = 0
2729  CALL strace (ient, 'W3SETA')
2730 #endif
2731  !
2732  ! -------------------------------------------------------------------- /
2733  ! 1. Test input and module status
2734  !
2735  IF ( nadata .EQ. -1 ) THEN
2736  WRITE (ndse,1001)
2737  CALL extcde (1)
2738  END IF
2739  !
2740  IF ( imod.LT.1 .OR. imod.GT.nadata ) THEN
2741  WRITE (ndse,1002) imod, nadata
2742  CALL extcde (2)
2743  END IF
2744  !
2745 #ifdef W3_T
2746  WRITE (ndst,9000) imod
2747 #endif
2748  !
2749  ! -------------------------------------------------------------------- /
2750  ! 2. Set model numbers
2751  !
2752  iadata = imod
2753  !
2754  ! -------------------------------------------------------------------- /
2755  ! 3. Set pointers
2756  !
2757  itime => wadats(imod)%ITIME
2758  ipass => wadats(imod)%IPASS
2759  idlast => wadats(imod)%IDLAST
2760  nsealm => wadats(imod)%NSEALM
2761  flcold => wadats(imod)%FLCOLD
2762  fliwnd => wadats(imod)%FLIWND
2763  ainit => wadats(imod)%AINIT
2764  ainit2 => wadats(imod)%AINIT2
2765  fl_all => wadats(imod)%FL_ALL
2766  !
2767 #ifdef W3_PR2
2768  nmx0 => wadats(imod)%NMX0
2769  nmx1 => wadats(imod)%NMX1
2770  nmx2 => wadats(imod)%NMX2
2771  nmy0 => wadats(imod)%NMY0
2772  nmy1 => wadats(imod)%NMY1
2773  nmy2 => wadats(imod)%NMY2
2774  nact => wadats(imod)%NACT
2775  nmxy => wadats(imod)%NMXY
2776 #endif
2777  !
2778 #ifdef W3_PR3
2779  nmx0 => wadats(imod)%NMX0
2780  nmx1 => wadats(imod)%NMX1
2781  nmx2 => wadats(imod)%NMX2
2782  nmy0 => wadats(imod)%NMY0
2783  nmy1 => wadats(imod)%NMY1
2784  nmy2 => wadats(imod)%NMY2
2785  nact => wadats(imod)%NACT
2786  ncent => wadats(imod)%NCENT
2787 #endif
2788  !
2789 #ifdef W3_NL1
2790  nfr => wadats(imod)%NFR
2791  nfrhgh => wadats(imod)%NFRHGH
2792  nfrchg => wadats(imod)%NFRCHG
2793  nspecx => wadats(imod)%NSPECX
2794  nspecy => wadats(imod)%NSPECY
2795  dal1 => wadats(imod)%DAL1
2796  dal2 => wadats(imod)%DAL2
2797  dal3 => wadats(imod)%DAL3
2798  awg1 => wadats(imod)%AWG1
2799  awg2 => wadats(imod)%AWG2
2800  awg3 => wadats(imod)%AWG3
2801  awg4 => wadats(imod)%AWG4
2802  awg5 => wadats(imod)%AWG5
2803  awg6 => wadats(imod)%AWG6
2804  awg7 => wadats(imod)%AWG7
2805  awg8 => wadats(imod)%AWG8
2806  swg1 => wadats(imod)%SWG1
2807  swg2 => wadats(imod)%SWG2
2808  swg3 => wadats(imod)%SWG3
2809  swg4 => wadats(imod)%SWG4
2810  swg5 => wadats(imod)%SWG5
2811  swg6 => wadats(imod)%SWG6
2812  swg7 => wadats(imod)%SWG7
2813  swg8 => wadats(imod)%SWG8
2814  nlinit => wadats(imod)%NLINIT
2815 #endif
2816  !
2817 #ifdef W3_MPI
2818  mpi_comm_wave => wadats(imod)%MPI_COMM_WAVE
2819  mpi_comm_wcmp => wadats(imod)%MPI_COMM_WCMP
2820  ww3_field_vec => wadats(imod)%WW3_FIELD_VEC
2821  ww3_spec_vec => wadats(imod)%WW3_SPEC_VEC
2822  nrqsg1 => wadats(imod)%NRQSG1
2823  nrqsg2 => wadats(imod)%NRQSG2
2824  ibfloc => wadats(imod)%IBFLOC
2825  isploc => wadats(imod)%ISPLOC
2826  nsploc => wadats(imod)%NSPLOC
2827  bstat => wadats(imod)%BSTAT
2828  bispl => wadats(imod)%BISPL
2829 #endif
2830  !
2831  IF ( ainit ) THEN
2832  !
2833  dw => wadats(imod)%DW
2834  ua => wadats(imod)%UA
2835  ud => wadats(imod)%UD
2836  u10 => wadats(imod)%U10
2837  u10d => wadats(imod)%U10D
2838  as => wadats(imod)%AS
2839  cx => wadats(imod)%CX
2840  cy => wadats(imod)%CY
2841  taua => wadats(imod)%TAUA
2842  tauadir=> wadats(imod)%TAUADIR
2843  !
2844  hs => wadats(imod)%HS
2845  wlm => wadats(imod)%WLM
2846  t02 => wadats(imod)%T02
2847  t0m1 => wadats(imod)%T0M1
2848  t01 => wadats(imod)%T01
2849  fp0 => wadats(imod)%FP0
2850  thm => wadats(imod)%THM
2851  ths => wadats(imod)%THS
2852  thp0 => wadats(imod)%THP0
2853  hsig => wadats(imod)%HSIG
2854  stmaxe => wadats(imod)%STMAXE
2855  stmaxd => wadats(imod)%STMAXD
2856  hmaxe => wadats(imod)%HMAXE
2857  hmaxd => wadats(imod)%HMAXD
2858  hcmaxe => wadats(imod)%HCMAXE
2859  hcmaxd => wadats(imod)%HCMAXD
2860  qp => wadats(imod)%QP
2861  wbt => wadats(imod)%WBT
2862  wnmean => wadats(imod)%WNMEAN
2863  !
2864  ef => wadats(imod)%EF
2865  th1m => wadats(imod)%TH1M
2866  sth1m => wadats(imod)%STH1M
2867  th2m => wadats(imod)%TH2M
2868  sth2m => wadats(imod)%STH2M
2869  !
2870  phs => wadats(imod)%PHS
2871  ptp => wadats(imod)%PTP
2872  plp => wadats(imod)%PLP
2873  pdir => wadats(imod)%PDIR
2874  psi => wadats(imod)%PSI
2875  pws => wadats(imod)%PWS
2876  pwst => wadats(imod)%PWST
2877  pnr => wadats(imod)%PNR
2878  pthp0 => wadats(imod)%PTHP0
2879  pqp => wadats(imod)%PQP
2880  ppe => wadats(imod)%PPE
2881  pgw => wadats(imod)%PGW
2882  psw => wadats(imod)%PSW
2883  ptm1 => wadats(imod)%PTM1
2884  pt1 => wadats(imod)%PT1
2885  pt2 => wadats(imod)%PT2
2886  pep => wadats(imod)%PEP
2887  !
2888  charn => wadats(imod)%CHARN
2889  tws => wadats(imod)%TWS
2890  cge => wadats(imod)%CGE
2891  phiaw => wadats(imod)%PHIAW
2892  tauwix => wadats(imod)%TAUWIX
2893  tauwiy => wadats(imod)%TAUWIY
2894  tauwnx => wadats(imod)%TAUWNX
2895  tauwny => wadats(imod)%TAUWNY
2896  whitecap => wadats(imod)%WHITECAP
2897  !
2898  sxx => wadats(imod)%SXX
2899  syy => wadats(imod)%SYY
2900  sxy => wadats(imod)%SXY
2901  tauox => wadats(imod)%TAUOX
2902  tauoy => wadats(imod)%TAUOY
2903  bhd => wadats(imod)%BHD
2904  phioc => wadats(imod)%PHIOC
2905  tusx => wadats(imod)%TUSX
2906  tusy => wadats(imod)%TUSY
2907  ussx => wadats(imod)%USSX
2908  ussy => wadats(imod)%USSY
2909  prms => wadats(imod)%PRMS
2910  tpms => wadats(imod)%TPMS
2911  p2sms => wadats(imod)%P2SMS
2912  us3d => wadats(imod)%US3D
2913  phice => wadats(imod)%PHICE
2914  tauice => wadats(imod)%TAUICE
2915  ussp => wadats(imod)%USSP
2916  tauocx => wadats(imod)%TAUOCX
2917  tauocy => wadats(imod)%TAUOCY
2918  !
2919  aba => wadats(imod)%ABA
2920  abd => wadats(imod)%ABD
2921  uba => wadats(imod)%UBA
2922  ubd => wadats(imod)%UBD
2923  bedforms=> wadats(imod)%BEDFORMS
2924  phibbl => wadats(imod)%PHIBBL
2925  taubbl => wadats(imod)%TAUBBL
2926  !
2927  mssx => wadats(imod)%MSSX
2928  mssy => wadats(imod)%MSSY
2929  mssd => wadats(imod)%MSSD
2930  mscx => wadats(imod)%MSCX
2931  mscy => wadats(imod)%MSCY
2932  mscd => wadats(imod)%MSCD
2933  qkk => wadats(imod)%QKK
2934  skew => wadats(imod)%SKEW
2935  embia1 => wadats(imod)%EMBIA1
2936  embia2 => wadats(imod)%EMBIA2
2937  !
2938  dtdyn => wadats(imod)%DTDYN
2939  fcut => wadats(imod)%FCUT
2940  cflxymax => wadats(imod)%CFLXYMAX
2941  cflthmax => wadats(imod)%CFLTHMAX
2942  cflkmax => wadats(imod)%CFLKMAX
2943  !
2944  usero => wadats(imod)%USERO
2945  !
2946  wn => wadats(imod)%WN
2947 #ifdef W3_IC3
2948  ic3wn_r=> wadats(imod)%IC3WN_R
2949  ic3wn_i=> wadats(imod)%IC3WN_I
2950 #endif
2951  !
2952  IF ( fl_all ) THEN
2953  !
2954  cg => wadats(imod)%CG
2955 #ifdef W3_IC3
2956  ic3cg => wadats(imod)%IC3CG
2957 #endif
2958  !
2959  atrnx => wadats(imod)%ATRNX
2960  atrny => wadats(imod)%ATRNY
2961  !
2962  dddx => wadats(imod)%DDDX
2963  dddy => wadats(imod)%DDDY
2964  dcdx => wadats(imod)%DCDX
2965  dcdy => wadats(imod)%DCDY
2966  dcxdx => wadats(imod)%DCXDX
2967  dcydx => wadats(imod)%DCYDX
2968  dcxdy => wadats(imod)%DCXDY
2969  dcydy => wadats(imod)%DCYDY
2970  !
2971 #ifdef W3_SMC
2972  dhdx => wadats(imod)%DHDX
2973  dhdy => wadats(imod)%DHDY
2974  dhlmt => wadats(imod)%DHLMT
2975 #endif
2976  !
2977  alpha => wadats(imod)%ALPHA
2978  !
2979  IF ( inputs(imod)%INFLAGS1(2) ) THEN
2980  ca0 => wadats(imod)%CA0
2981  cai => wadats(imod)%CAI
2982  cd0 => wadats(imod)%CD0
2983  cdi => wadats(imod)%CDI
2984  END IF
2985  !
2986  IF ( inputs(imod)%INFLAGS1(3) ) THEN
2987  ua0 => wadats(imod)%UA0
2988  uai => wadats(imod)%UAI
2989  ud0 => wadats(imod)%UD0
2990  udi => wadats(imod)%UDI
2991  as0 => wadats(imod)%AS0
2992  asi => wadats(imod)%ASI
2993  END IF
2994  !
2995  IF ( inputs(imod)%INFLAGS1(5) ) THEN
2996  ma0 => wadats(imod)%MA0
2997  mai => wadats(imod)%MAI
2998  md0 => wadats(imod)%MD0
2999  mdi => wadats(imod)%MDI
3000  END IF
3001  !
3002  IF ( inputs(imod)%INFLAGS1(6) ) THEN
3003  ra0 => wadats(imod)%RA0
3004  rai => wadats(imod)%RAI
3005  END IF
3006  !
3007 #ifdef W3_PR1
3008  is0 => wadats(imod)%IS0
3009  is2 => wadats(imod)%IS2
3010  facvx => wadats(imod)%FACVX
3011  facvy => wadats(imod)%FACVY
3012 #endif
3013  !
3014 #ifdef W3_PR2
3015  mapx2 => wadats(imod)%MAPX2
3016  mapy2 => wadats(imod)%MAPY2
3017  mapaxy => wadats(imod)%MAPAXY
3018  mapxy => wadats(imod)%MAPXY
3019  mapth2 => wadats(imod)%MAPTH2
3020  mapwn2 => wadats(imod)%MAPWN2
3021 #endif
3022  !
3023 #ifdef W3_PR3
3024  mapx2 => wadats(imod)%MAPX2
3025  mapy2 => wadats(imod)%MAPY2
3026  mapaxy => wadats(imod)%MAPAXY
3027  mapcxy => wadats(imod)%MAPCXY
3028  mapth2 => wadats(imod)%MAPTH2
3029  mapwn2 => wadats(imod)%MAPWN2
3030  maptrn => wadats(imod)%MAPTRN
3031 #endif
3032  !
3033  IF (gtype .EQ. ungtype) iter => wadats(imod)%ITER
3034  !
3035  iappro => wadats(imod)%IAPPRO
3036  sppnt => wadats(imod)%SPPNT
3037  !
3038  END IF
3039  !
3040  END IF
3041  !
3042 #ifdef W3_NL1
3043  IF ( nlinit ) THEN
3044  ip11 => wadats(imod)%IP11
3045  ip12 => wadats(imod)%IP12
3046  ip13 => wadats(imod)%IP13
3047  ip14 => wadats(imod)%IP14
3048  im11 => wadats(imod)%IM11
3049  im12 => wadats(imod)%IM12
3050  im13 => wadats(imod)%IM13
3051  im14 => wadats(imod)%IM14
3052  ip21 => wadats(imod)%IP21
3053  ip22 => wadats(imod)%IP22
3054  ip23 => wadats(imod)%IP23
3055  ip24 => wadats(imod)%IP24
3056  im21 => wadats(imod)%IM21
3057  im22 => wadats(imod)%IM22
3058  im23 => wadats(imod)%IM23
3059  im24 => wadats(imod)%IM24
3060  ic11 => wadats(imod)%IC11
3061  ic12 => wadats(imod)%IC12
3062  ic21 => wadats(imod)%IC21
3063  ic22 => wadats(imod)%IC22
3064  ic31 => wadats(imod)%IC31
3065  ic32 => wadats(imod)%IC32
3066  ic41 => wadats(imod)%IC41
3067  ic42 => wadats(imod)%IC42
3068  ic51 => wadats(imod)%IC51
3069  ic52 => wadats(imod)%IC52
3070  ic61 => wadats(imod)%IC61
3071  ic62 => wadats(imod)%IC62
3072  ic71 => wadats(imod)%IC71
3073  ic72 => wadats(imod)%IC72
3074  ic81 => wadats(imod)%IC81
3075  ic82 => wadats(imod)%IC82
3076  af11 => wadats(imod)%AF11
3077  END IF
3078 #endif
3079 
3080 #ifdef W3_MPI
3081  IF ( nrqsg1 .NE. 0 ) THEN
3082  irqsg1 => wadats(imod)%IRQSG1
3083  irqsg2 => wadats(imod)%IRQSG2
3084  END IF
3085  gstore => wadats(imod)%GSTORE
3086  sstore => wadats(imod)%SSTORE
3087 #endif
3088  !
3089  RETURN
3090  !
3091  ! Formats
3092  !
3093 1001 FORMAT (/' *** ERROR W3SETA : GRIDS NOT INITIALIZED *** '/ &
3094  ' RUN W3NMOD FIRST '/)
3095 1002 FORMAT (/' *** ERROR W3SETA : ILLEGAL MODEL NUMBER *** '/ &
3096  ' IMOD = ',i10/ &
3097  ' NADATA = ',i10/)
3098  !
3099 #ifdef W3_T
3100 9000 FORMAT (' TEST W3SETA : MODEL ',i4,' SELECTED')
3101 #endif
3102  !/
3103  !/ End of W3SETA ----------------------------------------------------- /
3104  !/

References aba, abd, af11, ainit, ainit2, alpha, as, as0, asi, atrnx, atrny, awg1, awg2, awg3, awg4, awg5, awg6, awg7, awg8, bedforms, bhd, bispl, bstat, ca0, cai, cd0, cdi, cflkmax, cflthmax, cflxymax, cg, cge, charn, cx, cy, dal1, dal2, dal3, dcdx, dcdy, dcxdx, dcxdy, dcydx, dcydy, dddx, dddy, dhdx, dhdy, dhlmt, dtdyn, dw, w3gdatmd::e3df, ef, embia1, embia2, w3servmd::extcde(), facvx, facvy, fcut, fl_all, flcold, fliwnd, fp0, gstore, w3gdatmd::gtype, hcmaxd, hcmaxe, hmaxd, hmaxe, hs, hsig, iadata, iappro, ibfloc, ic11, ic12, ic21, ic22, ic31, ic32, ic3cg, ic3wn_i, ic3wn_r, ic41, ic42, ic51, ic52, ic61, ic62, ic71, ic72, ic81, ic82, idlast, im11, im12, im13, im14, im21, im22, im23, im24, w3idatmd::inputs, ip11, ip12, ip13, ip14, ip21, ip22, ip23, ip24, ipass, irqsg1, irqsg2, is0, is2, isploc, iter, itime, ma0, mai, mapaxy, mapcxy, mapth2, maptrn, mapwn2, mapx2, mapxy, mapy2, md0, mdi, mpi_comm_wave, mpi_comm_wcmp, mscd, mscx, mscy, mssd, mssx, mssy, nact, nadata, ncent, nfr, nfrchg, nfrhgh, nlinit, nmx0, nmx1, nmx2, nmxy, nmy0, nmy1, nmy2, nrqsg1, nrqsg2, nsealm, nspecx, nspecy, nsploc, w3gdatmd::p2msf, p2sms, pdir, pep, pgw, phiaw, phibbl, phice, phioc, phs, plp, pnr, ppe, pqp, prms, psi, psw, pt1, pt2, pthp0, ptm1, ptp, pws, pwst, qkk, qp, ra0, rai, skew, sppnt, sstore, sth1m, sth2m, stmaxd, stmaxe, w3servmd::strace(), swg1, swg2, swg3, swg4, swg5, swg6, swg7, swg8, sxx, sxy, syy, t01, t02, t0m1, taua, tauadir, taubbl, tauice, tauocx, tauocy, tauox, tauoy, tauwix, tauwiy, tauwnx, tauwny, th1m, th2m, thm, thp0, ths, tpms, tusx, tusy, tws, u10, u10d, ua, ua0, uai, uba, ubd, ud, ud0, udi, w3gdatmd::ungtype, us3d, w3gdatmd::us3df, usero, ussp, w3gdatmd::usspf, ussx, ussy, wadats, wbt, whitecap, wlm, wn, wnmean, ww3_field_vec, and ww3_spec_vec.

Referenced by wmesmfmd::createexpmesh(), pdlib_field_vec::do_output_exchanges(), gxoutf(), gxoutp(), w3bounc(), w3bound(), w3dima(), w3dmnl(), w3grib(), w3grid_interp(), w3gspl(), w3initmd::w3init(), w3iobcmd::w3iobc(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3iotrmd::w3iotr(), w3initmd::w3mpio(), w3ounf(), w3ounp(), w3outf(), w3outp(), w3prep(), w3prnc(), w3prtide(), w3shel(), w3strt(), w3trnc(), w3uprstr(), w3wavemd::w3wave(), wminitmd::wminit(), wminitmd::wminitnml(), wminiomd::wmiobg(), wminiomd::wmiobs(), wminiomd::wmioeg(), wminiomd::wmioes(), wminiomd::wmiohg(), wminiomd::wmiohs(), wmiopomd::wmiopp(), wmwavemd::wmwave(), and wmwavemd::wmwout().

◆ w3xdma()

subroutine w3adatmd::w3xdma ( integer, intent(in)  IMOD,
integer, intent(in)  NDSE,
integer, intent(in)  NDST,
logical, dimension(nogrp,ngrpp), intent(in)  OUTFLAGS 
)

Version of W3DIMX for extended ouput arrays only.

Parameters
[in]IMODModel number to point to.
[in]NDSEError output unit number.
[in]NDSTTest output unit number.
[in]OUTFLAGS
Author
H. L. Tolman
Date
22-Mar-2021

Definition at line 1523 of file w3adatmd.F90.

1523  !/
1524  !/ +-----------------------------------+
1525  !/ | WAVEWATCH III NOAA/NCEP |
1526  !/ | H. L. Tolman |
1527  !/ | FORTRAN 90 |
1528  !/ | Last update : 22-Mar-2021 !
1529  !/ +-----------------------------------+
1530  !/
1531  !/ 26-Dec-2012 : Origination. ( version 3.06 )
1532  !/ 10-Dec-2014 : Add checks for allocate status ( version 5.04 )
1533  !/ 22-Mar-2021 : Adds WNMEAN, TAUOC parameters ( version 7.13 )
1534  !/
1535  ! 1. Purpose :
1536  !
1537  ! Version of W3DIMX for extended ouput arrays only.
1538  !
1539  !
1540  ! 10. Source code :
1541  !
1542  !/ ------------------------------------------------------------------- /
1543  USE w3gdatmd, ONLY: ngrids, igrid, w3setg, nk, nx, ny, nsea, &
1544  nseal, nspec, nth, e3df, p2msf, us3df, &
1545  usspf, gtype, ungtype
1546  USE w3odatmd, ONLY: iaproc, naproc, ntproc, napfld, &
1547  noswll, noextr, undef, flogrd, flogr2, &
1548  nogrp, ngrpp
1549  USE w3servmd, ONLY: extcde
1550 #ifdef W3_S
1551  USE w3servmd, ONLY: strace
1552 #endif
1553  !
1554  !/
1555  !/ ------------------------------------------------------------------- /
1556  !/ Parameter list
1557  !/
1558  INTEGER, INTENT(IN) :: IMOD, NDSE, NDST
1559  LOGICAL, INTENT(IN) :: OUTFLAGS(NOGRP,NGRPP)
1560  !/
1561  !/ ------------------------------------------------------------------- /
1562  !/ Local parameters
1563  !/
1564  INTEGER :: JGRID, NXXX, I
1565 #ifdef W3_S
1566  INTEGER, SAVE :: IENT = 0
1567  CALL strace (ient, 'W3XDMA')
1568 #endif
1569  integer :: memunit
1570  !
1571  ! -------------------------------------------------------------------- /
1572  ! 1. Test input and module status
1573  !
1574  memunit = 30000+iaproc
1575  IF ( ngrids .EQ. -1 ) THEN
1576  WRITE (ndse,1001)
1577  CALL extcde (1)
1578  END IF
1579  !
1580  IF ( imod.LT.1 .OR. imod.GT.nadata ) THEN
1581  WRITE (ndse,1002) imod, nadata
1582  CALL extcde (2)
1583  END IF
1584  !
1585  IF ( wadats(imod)%AINIT2 ) THEN
1586  WRITE (ndse,1003)
1587  CALL extcde (3)
1588  END IF
1589  !
1590 #ifdef W3_T
1591  WRITE (ndst,9000) imod
1592 #endif
1593  !
1594  jgrid = igrid
1595  IF ( jgrid .NE. imod ) CALL w3setg ( imod, ndse, ndst )
1596  !
1597  ! -------------------------------------------------------------------- /
1598  ! 2. Allocate arrays
1599  !
1600  nxxx = nsealm * naproc
1601  !
1602  IF ( outflags( 2, 1) ) THEN
1603  ALLOCATE ( wadats(imod)%XHS(nxxx), stat=istat )
1604  check_alloc_status( istat )
1605  ELSE
1606  ALLOCATE ( wadats(imod)%XHS(1), stat=istat )
1607  check_alloc_status( istat )
1608  END IF
1609  !
1610  IF ( outflags( 2, 2) ) THEN
1611  ALLOCATE ( wadats(imod)%XWLM(nxxx), stat=istat )
1612  check_alloc_status( istat )
1613  ELSE
1614  ALLOCATE ( wadats(imod)%XWLM(1), stat=istat )
1615  check_alloc_status( istat )
1616  END IF
1617  !
1618  IF ( outflags( 2, 3) ) THEN
1619  ALLOCATE ( wadats(imod)%XT02(nxxx), stat=istat )
1620  check_alloc_status( istat )
1621  ELSE
1622  ALLOCATE ( wadats(imod)%XT02(1), stat=istat )
1623  check_alloc_status( istat )
1624  END IF
1625  !
1626  IF ( outflags( 2, 4) ) THEN
1627  ALLOCATE ( wadats(imod)%XT0M1(nxxx), stat=istat )
1628  check_alloc_status( istat )
1629  ELSE
1630  ALLOCATE ( wadats(imod)%XT0M1(1), stat=istat )
1631  check_alloc_status( istat )
1632  END IF
1633  !
1634  IF ( outflags( 2, 5) ) THEN
1635  ALLOCATE ( wadats(imod)%XT01 (nxxx), stat=istat )
1636  check_alloc_status( istat )
1637  ELSE
1638  ALLOCATE ( wadats(imod)%XT01 (1), stat=istat )
1639  check_alloc_status( istat )
1640  END IF
1641  !
1642  IF ( outflags( 2, 6) .OR. outflags( 2,18) ) THEN
1643  ! TP output shares FP0 internal field with FP
1644  ALLOCATE ( wadats(imod)%XFP0(nxxx), stat=istat )
1645  check_alloc_status( istat )
1646  ELSE
1647  ALLOCATE ( wadats(imod)%XFP0(1), stat=istat )
1648  check_alloc_status( istat )
1649  END IF
1650  !
1651  IF ( outflags( 2, 7) ) THEN
1652  ALLOCATE ( wadats(imod)%XTHM(nxxx), stat=istat )
1653  check_alloc_status( istat )
1654  ELSE
1655  ALLOCATE ( wadats(imod)%XTHM(1), stat=istat )
1656  check_alloc_status( istat )
1657  END IF
1658  !
1659  IF ( outflags( 2, 8) ) THEN
1660  ALLOCATE ( wadats(imod)%XTHS(nxxx), stat=istat )
1661  check_alloc_status( istat )
1662  ELSE
1663  ALLOCATE ( wadats(imod)%XTHS(1), stat=istat )
1664  check_alloc_status( istat )
1665  END IF
1666  !
1667  IF ( outflags( 2, 9) ) THEN
1668  ALLOCATE ( wadats(imod)%XTHP0(nxxx), stat=istat )
1669  check_alloc_status( istat )
1670  ELSE
1671  ALLOCATE ( wadats(imod)%XTHP0(1), stat=istat )
1672  check_alloc_status( istat )
1673  END IF
1674  !
1675  IF ( outflags( 2, 10) ) THEN
1676  ALLOCATE ( wadats(imod)%XHSIG(nxxx), stat=istat )
1677  check_alloc_status( istat )
1678  ELSE
1679  ALLOCATE ( wadats(imod)%XHSIG(1), stat=istat )
1680  check_alloc_status( istat )
1681  END IF
1682  !
1683  IF ( outflags( 2, 11) ) THEN
1684  ALLOCATE ( wadats(imod)%XSTMAXE(nxxx) )
1685  ELSE
1686  ALLOCATE ( wadats(imod)%XSTMAXE(1) )
1687  END IF
1688  !
1689  IF ( outflags( 2, 12) ) THEN
1690  ALLOCATE ( wadats(imod)%XSTMAXD(nxxx) )
1691  ELSE
1692  ALLOCATE ( wadats(imod)%XSTMAXD(1) )
1693  END IF
1694  !
1695  IF ( outflags( 2, 13) ) THEN
1696  ALLOCATE ( wadats(imod)%XHMAXE(nxxx) )
1697  ELSE
1698  ALLOCATE ( wadats(imod)%XHMAXE(1) )
1699  END IF
1700  !
1701  IF ( outflags( 2, 14) ) THEN
1702  ALLOCATE ( wadats(imod)%XHCMAXE(nxxx) )
1703  ELSE
1704  ALLOCATE ( wadats(imod)%XHCMAXE(1) )
1705  END IF
1706  !
1707  !
1708  IF ( outflags( 2, 15) ) THEN
1709  ALLOCATE ( wadats(imod)%XHMAXD(nxxx) )
1710  ELSE
1711  ALLOCATE ( wadats(imod)%XHMAXD(1) )
1712  END IF
1713  !
1714  IF ( outflags( 2, 16) ) THEN
1715  ALLOCATE ( wadats(imod)%XHCMAXD(nxxx) )
1716  ELSE
1717  ALLOCATE ( wadats(imod)%XHCMAXD(1) )
1718  END IF
1719  !
1720  IF ( outflags( 2, 17) ) THEN
1721  ALLOCATE ( wadats(imod)%XWBT (nxxx), stat=istat )
1722  check_alloc_status( istat )
1723  ELSE
1724  ALLOCATE ( wadats(imod)%XWBT (1), stat=istat )
1725  check_alloc_status( istat )
1726  END IF
1727  !
1728  IF ( outflags( 2, 19) ) THEN
1729  ALLOCATE ( wadats(imod)%XWNMEAN(nxxx), stat=istat )
1730  check_alloc_status( istat )
1731  ELSE
1732  ALLOCATE ( wadats(imod)%XWNMEAN(1), stat=istat )
1733  check_alloc_status( istat )
1734  END IF
1735  !
1736  wadats(imod)%XHS = undef
1737  wadats(imod)%XWLM = undef
1738  wadats(imod)%XT02 = undef
1739  wadats(imod)%XT0M1 = undef
1740  wadats(imod)%XT01 = undef
1741  wadats(imod)%XFP0 = undef
1742  wadats(imod)%XTHM = undef
1743  wadats(imod)%XTHS = undef
1744  wadats(imod)%XTHP0 = undef
1745  wadats(imod)%XHSIG = undef
1746  wadats(imod)%XSTMAXE= undef
1747  wadats(imod)%XSTMAXD= undef
1748  wadats(imod)%XHMAXE = undef
1749  wadats(imod)%XHMAXD = undef
1750  wadats(imod)%XHCMAXE= undef
1751  wadats(imod)%XHCMAXD= undef
1752  wadats(imod)%XWBT = undef
1753  wadats(imod)%XWNMEAN= undef
1754  !
1755  IF ( outflags( 3, 1) ) THEN
1756  ALLOCATE ( wadats(imod)%XEF(nxxx,e3df(2,1):e3df(3,1)), stat=istat )
1757  check_alloc_status( istat )
1758  ELSE
1759  ALLOCATE ( wadats(imod)%XEF(1,1), stat=istat )
1760  check_alloc_status( istat )
1761  END IF
1762 
1763  IF ( outflags( 3, 2) ) THEN
1764  ALLOCATE ( wadats(imod)%XTH1M(nxxx,e3df(2,2):e3df(3,2)), stat=istat )
1765  check_alloc_status( istat )
1766  ELSE
1767  ALLOCATE ( wadats(imod)%XTH1M(1,1), stat=istat )
1768  check_alloc_status( istat )
1769  END IF
1770 
1771  IF ( outflags( 3, 3) ) THEN
1772  ALLOCATE ( wadats(imod)%XSTH1M(nxxx,e3df(2,3):e3df(3,3)), stat=istat )
1773  check_alloc_status( istat )
1774  ELSE
1775  ALLOCATE ( wadats(imod)%XSTH1M(1,1), stat=istat )
1776  check_alloc_status( istat )
1777  END IF
1778 
1779  IF ( outflags( 3, 4) ) THEN
1780  ALLOCATE ( wadats(imod)%XTH2M(nxxx,e3df(2,4):e3df(3,4)), stat=istat )
1781  check_alloc_status( istat )
1782  ELSE
1783  ALLOCATE ( wadats(imod)%XTH2M(1,1), stat=istat )
1784  check_alloc_status( istat )
1785  END IF
1786  !
1787  IF ( outflags( 3, 5) ) THEN
1788  ALLOCATE ( wadats(imod)%XSTH2M(nxxx,e3df(2,5):e3df(3,5)), stat=istat )
1789  check_alloc_status( istat )
1790  ELSE
1791  ALLOCATE ( wadats(imod)%XSTH2M(1,1), stat=istat )
1792  check_alloc_status( istat )
1793  END IF
1794  !
1795  wadats(imod)%XEF = undef
1796  wadats(imod)%XTH1M = undef
1797  wadats(imod)%XSTH1M = undef
1798  wadats(imod)%XTH2M = undef
1799  wadats(imod)%XSTH2M = undef
1800  !
1801  IF ( outflags( 4, 1) ) THEN
1802  ALLOCATE ( wadats(imod)%XPHS(nxxx,0:noswll), stat=istat )
1803  check_alloc_status( istat )
1804  ELSE
1805  ALLOCATE ( wadats(imod)%XPHS(1,1), stat=istat )
1806  check_alloc_status( istat )
1807  END IF
1808  !
1809  IF ( outflags( 4, 2) ) THEN
1810  ALLOCATE ( wadats(imod)%XPTP(nxxx,0:noswll), stat=istat )
1811  check_alloc_status( istat )
1812  ELSE
1813  ALLOCATE ( wadats(imod)%XPTP(1,1), stat=istat )
1814  check_alloc_status( istat )
1815  END IF
1816  !
1817  IF ( outflags( 4, 3) ) THEN
1818  ALLOCATE ( wadats(imod)%XPLP(nxxx,0:noswll), stat=istat )
1819  check_alloc_status( istat )
1820  ELSE
1821  ALLOCATE ( wadats(imod)%XPLP(1,1), stat=istat )
1822  check_alloc_status( istat )
1823  END IF
1824  !
1825  IF ( outflags( 4, 4) ) THEN
1826  ALLOCATE ( wadats(imod)%XPDIR(nxxx,0:noswll), stat=istat )
1827  check_alloc_status( istat )
1828  ELSE
1829  ALLOCATE ( wadats(imod)%XPDIR(1,1), stat=istat )
1830  check_alloc_status( istat )
1831  END IF
1832  !
1833  IF ( outflags( 4, 5) ) THEN
1834  ALLOCATE ( wadats(imod)%XPSI(nxxx,0:noswll), stat=istat )
1835  check_alloc_status( istat )
1836  ELSE
1837  ALLOCATE ( wadats(imod)%XPSI(1,1), stat=istat )
1838  check_alloc_status( istat )
1839  END IF
1840  !
1841  IF ( outflags( 4, 6) ) THEN
1842  ALLOCATE ( wadats(imod)%XPWS(nxxx,0:noswll), stat=istat )
1843  check_alloc_status( istat )
1844  ELSE
1845  ALLOCATE ( wadats(imod)%XPWS(1,1), stat=istat )
1846  check_alloc_status( istat )
1847  END IF
1848  !
1849  IF ( outflags( 4, 7) ) THEN
1850  ALLOCATE ( wadats(imod)%XPTHP0(nxxx,0:noswll), stat=istat )
1851  check_alloc_status( istat )
1852  ELSE
1853  ALLOCATE ( wadats(imod)%XPTHP0(1,1), stat=istat )
1854  check_alloc_status( istat )
1855  END IF
1856  !
1857  IF ( outflags( 4, 8) ) THEN
1858  ALLOCATE ( wadats(imod)%XPQP(nxxx,0:noswll), stat=istat )
1859  check_alloc_status( istat )
1860  ELSE
1861  ALLOCATE ( wadats(imod)%XPQP(1,1), stat=istat )
1862  check_alloc_status( istat )
1863  END IF
1864  !
1865  IF ( outflags( 4, 9) ) THEN
1866  ALLOCATE ( wadats(imod)%XPPE(nxxx,0:noswll), stat=istat )
1867  check_alloc_status( istat )
1868  ELSE
1869  ALLOCATE ( wadats(imod)%XPPE(1,1), stat=istat )
1870  check_alloc_status( istat )
1871  END IF
1872  !
1873  IF ( outflags( 4,10) ) THEN
1874  ALLOCATE ( wadats(imod)%XPGW(nxxx,0:noswll), stat=istat )
1875  check_alloc_status( istat )
1876  ELSE
1877  ALLOCATE ( wadats(imod)%XPGW(1,1), stat=istat )
1878  check_alloc_status( istat )
1879  END IF
1880  !
1881  IF ( outflags( 4,11) ) THEN
1882  ALLOCATE ( wadats(imod)%XPSW(nxxx,0:noswll), stat=istat )
1883  check_alloc_status( istat )
1884  ELSE
1885  ALLOCATE ( wadats(imod)%XPSW(1,1), stat=istat )
1886  check_alloc_status( istat )
1887  END IF
1888  !
1889  IF ( outflags( 4,12) ) THEN
1890  ALLOCATE ( wadats(imod)%XPTM1(nxxx,0:noswll), stat=istat )
1891  check_alloc_status( istat )
1892  ELSE
1893  ALLOCATE ( wadats(imod)%XPTM1(1,1), stat=istat )
1894  check_alloc_status( istat )
1895  END IF
1896  !
1897  IF ( outflags( 4,13) ) THEN
1898  ALLOCATE ( wadats(imod)%XPT1(nxxx,0:noswll), stat=istat )
1899  check_alloc_status( istat )
1900  ELSE
1901  ALLOCATE ( wadats(imod)%XPT1(1,1), stat=istat )
1902  check_alloc_status( istat )
1903  END IF
1904  !
1905  IF ( outflags( 4,14) ) THEN
1906  ALLOCATE ( wadats(imod)%XPT2(nxxx,0:noswll), stat=istat )
1907  check_alloc_status( istat )
1908  ELSE
1909  ALLOCATE ( wadats(imod)%XPT2(1,1), stat=istat )
1910  check_alloc_status( istat )
1911  END IF
1912  !
1913  IF ( outflags( 4,15) ) THEN
1914  ALLOCATE ( wadats(imod)%XPEP(nxxx,0:noswll), stat=istat )
1915  check_alloc_status( istat )
1916  ELSE
1917  ALLOCATE ( wadats(imod)%XPEP(1,1), stat=istat )
1918  check_alloc_status( istat )
1919  END IF
1920  !
1921  IF ( outflags( 4,16) ) THEN
1922  ALLOCATE ( wadats(imod)%XPWST(nxxx), stat=istat )
1923  check_alloc_status( istat )
1924  ELSE
1925  ALLOCATE ( wadats(imod)%XPWST(1), stat=istat )
1926  check_alloc_status( istat )
1927  END IF
1928  !
1929  IF ( outflags( 4,17) ) THEN
1930  ALLOCATE ( wadats(imod)%XPNR(nxxx), stat=istat )
1931  check_alloc_status( istat )
1932  ELSE
1933  ALLOCATE ( wadats(imod)%XPNR(1), stat=istat )
1934  check_alloc_status( istat )
1935  END IF
1936  !
1937  wadats(imod)%XPHS = undef
1938  wadats(imod)%XPTP = undef
1939  wadats(imod)%XPLP = undef
1940  wadats(imod)%XPDIR = undef
1941  wadats(imod)%XPSI = undef
1942  wadats(imod)%XPWS = undef
1943  wadats(imod)%XPWST = undef
1944  wadats(imod)%XPNR = undef
1945  wadats(imod)%XPTHP0 = undef
1946  wadats(imod)%XPQP = undef
1947  wadats(imod)%XPPE = undef
1948  wadats(imod)%XPGW = undef
1949  wadats(imod)%XPSW = undef
1950  wadats(imod)%XPTM1 = undef
1951  wadats(imod)%XPT1 = undef
1952  wadats(imod)%XPT2 = undef
1953  wadats(imod)%XPEP = undef
1954  !
1955  IF ( outflags( 5, 2) ) THEN
1956  ALLOCATE ( wadats(imod)%XCHARN(nxxx), stat=istat )
1957  check_alloc_status( istat )
1958  ELSE
1959  ALLOCATE ( wadats(imod)%XCHARN(1), stat=istat )
1960  check_alloc_status( istat )
1961  END IF
1962  !
1963  IF ( outflags( 5, 3) ) THEN
1964  ALLOCATE ( wadats(imod)%XCGE(nxxx), stat=istat )
1965  check_alloc_status( istat )
1966  ELSE
1967  ALLOCATE ( wadats(imod)%XCGE(1), stat=istat )
1968  check_alloc_status( istat )
1969  END IF
1970  !
1971  IF ( outflags( 5, 4) ) THEN
1972  ALLOCATE ( wadats(imod)%XPHIAW(nxxx), stat=istat )
1973  check_alloc_status( istat )
1974  ELSE
1975  ALLOCATE ( wadats(imod)%XPHIAW(1), stat=istat )
1976  check_alloc_status( istat )
1977  END IF
1978  !
1979  IF ( outflags( 5, 5) ) THEN
1980  ALLOCATE ( wadats(imod)%XTAUWIX(nxxx), stat=istat )
1981  check_alloc_status( istat )
1982  ALLOCATE ( wadats(imod)%XTAUWIY(nxxx), stat=istat )
1983  check_alloc_status( istat )
1984  ELSE
1985  ALLOCATE ( wadats(imod)%XTAUWIX(1), stat=istat )
1986  check_alloc_status( istat )
1987  ALLOCATE ( wadats(imod)%XTAUWIY(1) )
1988  check_alloc_status( istat )
1989  END IF
1990  !
1991  IF ( outflags( 5, 6) ) THEN
1992  ALLOCATE ( wadats(imod)%XTAUWNX(nxxx), stat=istat )
1993  check_alloc_status( istat )
1994  ALLOCATE ( wadats(imod)%XTAUWNY(nxxx), stat=istat )
1995  check_alloc_status( istat )
1996  ELSE
1997  ALLOCATE ( wadats(imod)%XTAUWNX(1), stat=istat )
1998  check_alloc_status( istat )
1999  ALLOCATE ( wadats(imod)%XTAUWNY(1), stat=istat )
2000  check_alloc_status( istat )
2001  END IF
2002  !
2003  IF ( outflags( 5, 7) .OR. outflags( 5, 8) .OR. &
2004  outflags( 5, 9) .OR. outflags( 5,10)) THEN
2005  ALLOCATE ( wadats(imod)%XWHITECAP(nxxx,4), stat=istat )
2006  check_alloc_status( istat )
2007  ELSE
2008  ALLOCATE ( wadats(imod)%XWHITECAP(1,4), stat=istat )
2009  check_alloc_status( istat )
2010  END IF
2011  !
2012  IF ( outflags( 5, 11) ) THEN
2013  ALLOCATE ( wadats(imod)%XTWS(nxxx), stat=istat )
2014  check_alloc_status( istat )
2015  ELSE
2016  ALLOCATE ( wadats(imod)%XTWS(1), stat=istat )
2017  check_alloc_status( istat )
2018  END IF
2019  !
2020  wadats(imod)%XCHARN = undef
2021  wadats(imod)%XTWS = undef
2022  wadats(imod)%XCGE = undef
2023  wadats(imod)%XPHIAW = undef
2024  wadats(imod)%XTAUWIX = undef
2025  wadats(imod)%XTAUWIY = undef
2026  wadats(imod)%XTAUWNX = undef
2027  wadats(imod)%XTAUWNY = undef
2028  wadats(imod)%XWHITECAP = undef
2029  !
2030  IF ( outflags( 6, 1) ) THEN
2031  ALLOCATE ( wadats(imod)%XSXX(nxxx), stat=istat )
2032  check_alloc_status( istat )
2033  ALLOCATE ( wadats(imod)%XSYY(nxxx), stat=istat )
2034  check_alloc_status( istat )
2035  ALLOCATE ( wadats(imod)%XSXY(nxxx), stat=istat )
2036  check_alloc_status( istat )
2037  ELSE
2038  ALLOCATE ( wadats(imod)%XSXX(1), stat=istat )
2039  check_alloc_status( istat )
2040  ALLOCATE ( wadats(imod)%XSYY(1), stat=istat )
2041  check_alloc_status( istat )
2042  ALLOCATE ( wadats(imod)%XSXY(1), stat=istat )
2043  check_alloc_status( istat )
2044  END IF
2045  !
2046  IF ( outflags( 6, 2) ) THEN
2047  ALLOCATE ( wadats(imod)%XTAUOX(nxxx), stat=istat )
2048  check_alloc_status( istat )
2049  ALLOCATE ( wadats(imod)%XTAUOY(nxxx), stat=istat )
2050  check_alloc_status( istat )
2051  ELSE
2052  ALLOCATE ( wadats(imod)%XTAUOX(1), stat=istat )
2053  check_alloc_status( istat )
2054  ALLOCATE ( wadats(imod)%XTAUOY(1), stat=istat )
2055  check_alloc_status( istat )
2056  END IF
2057  !
2058  IF ( outflags( 6, 3) ) THEN
2059  ALLOCATE ( wadats(imod)%XBHD(nxxx), stat=istat )
2060  check_alloc_status( istat )
2061  ELSE
2062  ALLOCATE ( wadats(imod)%XBHD(1), stat=istat )
2063  check_alloc_status( istat )
2064  END IF
2065  !
2066  IF ( outflags( 6, 4) ) THEN
2067  ALLOCATE ( wadats(imod)%XPHIOC(nxxx), stat=istat )
2068  check_alloc_status( istat )
2069  ELSE
2070  ALLOCATE ( wadats(imod)%XPHIOC(1), stat=istat )
2071  check_alloc_status( istat )
2072  END IF
2073  !
2074  IF ( outflags( 6, 5) ) THEN
2075  ALLOCATE ( wadats(imod)%XTUSX(nxxx), stat=istat )
2076  check_alloc_status( istat )
2077  ALLOCATE ( wadats(imod)%XTUSY(nxxx), stat=istat )
2078  check_alloc_status( istat )
2079  ELSE
2080  ALLOCATE ( wadats(imod)%XTUSX(1), stat=istat )
2081  check_alloc_status( istat )
2082  ALLOCATE ( wadats(imod)%XTUSY(1), stat=istat )
2083  check_alloc_status( istat )
2084  END IF
2085  !
2086  IF ( outflags( 6, 6) ) THEN
2087  ALLOCATE ( wadats(imod)%XUSSX(nxxx), stat=istat )
2088  check_alloc_status( istat )
2089  ALLOCATE ( wadats(imod)%XUSSY(nxxx), stat=istat )
2090  check_alloc_status( istat )
2091  ELSE
2092  ALLOCATE ( wadats(imod)%XUSSX(1), stat=istat )
2093  check_alloc_status( istat )
2094  ALLOCATE ( wadats(imod)%XUSSY(1), stat=istat )
2095  check_alloc_status( istat )
2096  END IF
2097  !
2098  IF ( outflags( 6, 7) ) THEN
2099  ALLOCATE ( wadats(imod)%XPRMS(nxxx), stat=istat )
2100  check_alloc_status( istat )
2101  ALLOCATE ( wadats(imod)%XTPMS(nxxx), stat=istat )
2102  check_alloc_status( istat )
2103  ELSE
2104  ALLOCATE ( wadats(imod)%XPRMS(1), stat=istat )
2105  check_alloc_status( istat )
2106  ALLOCATE ( wadats(imod)%XTPMS(1), stat=istat )
2107  check_alloc_status( istat )
2108  END IF
2109  !
2110  IF ( outflags( 6, 8) ) THEN
2111  ALLOCATE ( wadats(imod)%XUS3D(nxxx,2*nk), stat=istat )
2112  check_alloc_status( istat )
2113  ELSE
2114  ALLOCATE ( wadats(imod)%XUS3D(1,1), stat=istat )
2115  check_alloc_status( istat )
2116  END IF
2117  !
2118  IF ( outflags( 6, 9) ) THEN
2119  ALLOCATE ( wadats(imod)%XP2SMS(nxxx,p2msf(2):p2msf(3)), stat=istat )
2120  check_alloc_status( istat )
2121  ELSE
2122  ALLOCATE ( wadats(imod)%XP2SMS(1,1), stat=istat )
2123  check_alloc_status( istat )
2124  END IF
2125  !
2126  IF ( outflags( 6,10) ) THEN
2127  ALLOCATE ( wadats(imod)%XTAUICE(nxxx,2), stat=istat )
2128  check_alloc_status( istat )
2129  ELSE
2130  ALLOCATE ( wadats(imod)%XTAUICE(1,2), stat=istat )
2131  check_alloc_status( istat )
2132  END IF
2133  !
2134  IF ( outflags( 6,11) ) THEN
2135  ALLOCATE ( wadats(imod)%XPHICE(nxxx), stat=istat )
2136  check_alloc_status( istat )
2137  ELSE
2138  ALLOCATE ( wadats(imod)%XPHICE(1), stat=istat )
2139  check_alloc_status( istat )
2140  END IF
2141  !
2142  IF ( outflags( 6, 12) ) THEN
2143  ALLOCATE ( wadats(imod)%XUSSP(nxxx,2*nk), stat=istat )
2144  check_alloc_status( istat )
2145  ELSE
2146  ALLOCATE ( wadats(imod)%XUSSP(1,1), stat=istat )
2147  check_alloc_status( istat )
2148  END IF
2149  !
2150  IF ( outflags( 6, 13) ) THEN
2151  ALLOCATE ( wadats(imod)%XTAUOCX(nxxx), stat=istat )
2152  check_alloc_status( istat )
2153  ALLOCATE ( wadats(imod)%XTAUOCY(nxxx), stat=istat )
2154  check_alloc_status( istat )
2155  ELSE
2156  ALLOCATE ( wadats(imod)%XTAUOCX(1), stat=istat )
2157  check_alloc_status( istat )
2158  ALLOCATE ( wadats(imod)%XTAUOCY(1), stat=istat )
2159  check_alloc_status( istat )
2160  END IF
2161  !
2162  wadats(imod)%XSXX = undef
2163  wadats(imod)%XSYY = undef
2164  wadats(imod)%XSXY = undef
2165  wadats(imod)%XTAUOX = undef
2166  wadats(imod)%XTAUOY = undef
2167  wadats(imod)%XBHD = undef
2168  wadats(imod)%XPHIOC = undef
2169  wadats(imod)%XTUSX = undef
2170  wadats(imod)%XTUSY = undef
2171  wadats(imod)%XUSSX = undef
2172  wadats(imod)%XUSSY = undef
2173  wadats(imod)%XPRMS = undef
2174  wadats(imod)%XTPMS = undef
2175  wadats(imod)%XUS3D = undef
2176  wadats(imod)%XP2SMS = undef
2177  wadats(imod)%XPHICE = undef
2178  wadats(imod)%XTAUICE = undef
2179  wadats(imod)%XUSSP = undef
2180  wadats(imod)%XTAUOCX = undef
2181  wadats(imod)%XTAUOCY = undef
2182  !
2183  IF ( outflags( 7, 1) ) THEN
2184  ALLOCATE ( wadats(imod)%XABA(nxxx), stat=istat )
2185  check_alloc_status( istat )
2186  ALLOCATE ( wadats(imod)%XABD(nxxx), stat=istat )
2187  check_alloc_status( istat )
2188  ELSE
2189  ALLOCATE ( wadats(imod)%XABA(1), stat=istat )
2190  check_alloc_status( istat )
2191  ALLOCATE ( wadats(imod)%XABD(1), stat=istat )
2192  check_alloc_status( istat )
2193  END IF
2194  !
2195  IF ( outflags( 7, 2) ) THEN
2196  ALLOCATE ( wadats(imod)%XUBA(nxxx), stat=istat )
2197  check_alloc_status( istat )
2198  ALLOCATE ( wadats(imod)%XUBD(nxxx), stat=istat )
2199  check_alloc_status( istat )
2200  ELSE
2201  ALLOCATE ( wadats(imod)%XUBA(1), stat=istat )
2202  check_alloc_status( istat )
2203  ALLOCATE ( wadats(imod)%XUBD(1), stat=istat )
2204  check_alloc_status( istat )
2205  END IF
2206  !
2207  IF ( outflags( 7, 3) ) THEN
2208  ALLOCATE ( wadats(imod)%XBEDFORMS(nxxx,3), stat=istat )
2209  check_alloc_status( istat )
2210  ELSE
2211  ALLOCATE ( wadats(imod)%XBEDFORMS(1,3), stat=istat )
2212  check_alloc_status( istat )
2213  END IF
2214  !
2215  IF ( outflags( 7, 4) ) THEN
2216  ALLOCATE ( wadats(imod)%XPHIBBL(nxxx), stat=istat )
2217  check_alloc_status( istat )
2218  ELSE
2219  ALLOCATE ( wadats(imod)%XPHIBBL(1), stat=istat )
2220  check_alloc_status( istat )
2221  END IF
2222  !
2223  IF ( outflags( 7, 5) ) THEN
2224  ALLOCATE ( wadats(imod)%XTAUBBL(nxxx,2), stat=istat )
2225  check_alloc_status( istat )
2226  ELSE
2227  ALLOCATE ( wadats(imod)%XTAUBBL(1,2), stat=istat )
2228  check_alloc_status( istat )
2229  END IF
2230  !
2231  wadats(imod)%XABA = undef
2232  wadats(imod)%XABD = undef
2233  wadats(imod)%XUBA = undef
2234  wadats(imod)%XUBD = undef
2235  wadats(imod)%XBEDFORMS = undef
2236  wadats(imod)%XPHIBBL = undef
2237  wadats(imod)%XTAUBBL = undef
2238  !
2239  IF ( outflags( 8, 1) ) THEN
2240  ALLOCATE ( wadats(imod)%XMSSX(nxxx), stat=istat )
2241  check_alloc_status( istat )
2242  ALLOCATE ( wadats(imod)%XMSSY(nxxx), stat=istat )
2243  check_alloc_status( istat )
2244  ELSE
2245  ALLOCATE ( wadats(imod)%XMSSX(1), stat=istat )
2246  check_alloc_status( istat )
2247  ALLOCATE ( wadats(imod)%XMSSY(1), stat=istat )
2248  check_alloc_status( istat )
2249  END IF
2250  !
2251  IF ( outflags( 8, 2) ) THEN
2252  ALLOCATE ( wadats(imod)%XMSCX(nxxx), stat=istat )
2253  check_alloc_status( istat )
2254  ALLOCATE ( wadats(imod)%XMSCY(nxxx), stat=istat )
2255  check_alloc_status( istat )
2256  ELSE
2257  ALLOCATE ( wadats(imod)%XMSCX(1), stat=istat )
2258  check_alloc_status( istat )
2259  ALLOCATE ( wadats(imod)%XMSCY(1), stat=istat )
2260  check_alloc_status( istat )
2261  END IF
2262  !
2263  IF ( outflags( 8, 3) ) THEN
2264  ALLOCATE ( wadats(imod)%XMSSD(nxxx), stat=istat )
2265  check_alloc_status( istat )
2266  ELSE
2267  ALLOCATE ( wadats(imod)%XMSSD(1), stat=istat )
2268  check_alloc_status( istat )
2269  END IF
2270  !
2271  IF ( outflags( 8, 4) ) THEN
2272  ALLOCATE ( wadats(imod)%XMSCD(nxxx), stat=istat )
2273  check_alloc_status( istat )
2274  ELSE
2275  ALLOCATE ( wadats(imod)%XMSCD(1), stat=istat )
2276  check_alloc_status( istat )
2277  END IF
2278  !
2279  IF ( outflags( 8, 5) ) THEN
2280  ALLOCATE ( wadats(imod)%XQP(nxxx) )
2281  ELSE
2282  ALLOCATE ( wadats(imod)%XQP(1) )
2283  END IF
2284  !
2285  IF ( outflags( 8, 6) ) THEN
2286  ALLOCATE ( wadats(imod)%XQKK(nxxx) )
2287  ELSE
2288  ALLOCATE ( wadats(imod)%XQKK(1) )
2289  END IF
2290  !
2291  IF ( outflags( 8, 7) ) THEN
2292  ALLOCATE ( wadats(imod)%XSKEW(nxxx) )
2293  ELSE
2294  ALLOCATE ( wadats(imod)%XSKEW(1) )
2295  END IF
2296  !
2297  IF ( outflags( 8, 8) ) THEN
2298  ALLOCATE ( wadats(imod)%XEMBIA1(nxxx) )
2299  ELSE
2300  ALLOCATE ( wadats(imod)%XEMBIA1(1) )
2301  END IF
2302  !
2303  IF ( outflags( 8, 9) ) THEN
2304  ALLOCATE ( wadats(imod)%XEMBIA2(nxxx) )
2305  ELSE
2306  ALLOCATE ( wadats(imod)%XEMBIA2(1) )
2307  END IF
2308  !
2309  wadats(imod)%XMSSX = undef
2310  wadats(imod)%XMSSY = undef
2311  wadats(imod)%XMSSD = undef
2312  wadats(imod)%XMSCX = undef
2313  wadats(imod)%XMSCY = undef
2314  wadats(imod)%XMSCD = undef
2315  wadats(imod)%XQP(1) = undef
2316  wadats(imod)%XQKK = undef
2317  wadats(imod)%XSKEW = undef
2318  wadats(imod)%XEMBIA1 = undef
2319  wadats(imod)%XEMBIA2 = undef
2320  !
2321  IF ( outflags( 9, 1) ) THEN
2322  ALLOCATE ( wadats(imod)%XDTDYN(nxxx), stat=istat )
2323  check_alloc_status( istat )
2324  ELSE
2325  ALLOCATE ( wadats(imod)%XDTDYN(1), stat=istat )
2326  check_alloc_status( istat )
2327  END IF
2328  !
2329  IF ( outflags( 9, 2) ) THEN
2330  ALLOCATE ( wadats(imod)%XFCUT(nxxx), stat=istat )
2331  check_alloc_status( istat )
2332  ELSE
2333  ALLOCATE ( wadats(imod)%XFCUT(1), stat=istat )
2334  check_alloc_status( istat )
2335  END IF
2336  !
2337  IF ( outflags( 9, 3) ) THEN
2338  ALLOCATE ( wadats(imod)%XCFLXYMAX(nxxx), stat=istat )
2339  check_alloc_status( istat )
2340  ELSE
2341  ALLOCATE ( wadats(imod)%XCFLXYMAX(1), stat=istat )
2342  check_alloc_status( istat )
2343  END IF
2344  !
2345  IF ( outflags( 9, 4) ) THEN
2346  ALLOCATE ( wadats(imod)%XCFLTHMAX(nxxx), stat=istat )
2347  check_alloc_status( istat )
2348  ELSE
2349  ALLOCATE ( wadats(imod)%XCFLTHMAX(1), stat=istat )
2350  check_alloc_status( istat )
2351  END IF
2352  !
2353  IF ( outflags( 9, 5) ) THEN
2354  ALLOCATE ( wadats(imod)%XCFLKMAX(nxxx), stat=istat )
2355  check_alloc_status( istat )
2356  ELSE
2357  ALLOCATE ( wadats(imod)%XCFLKMAX(1), stat=istat )
2358  check_alloc_status( istat )
2359  END IF
2360  !
2361  wadats(imod)%XDTDYN = undef
2362  wadats(imod)%XFCUT = undef
2363  wadats(imod)%XCFLXYMAX = undef
2364  wadats(imod)%XCFLTHMAX = undef
2365  wadats(imod)%XCFLKMAX = undef
2366  !
2367  DO i=1, noextr
2368  IF ( outflags(10, i) ) THEN
2369  ALLOCATE ( wadats(imod)%XUSERO(nxxx,i), stat=istat )
2370  check_alloc_status( istat )
2371  ELSE
2372  ALLOCATE ( wadats(imod)%XUSERO(1,i), stat=istat )
2373  check_alloc_status( istat )
2374  END IF
2375  END DO
2376  !
2377  wadats(imod)%XUSERO = undef
2378  !
2379  wadats(imod)%AINIT2 = .true.
2380  !
2381 #ifdef W3_T
2382  WRITE (ndst,9001)
2383  WRITE (ndst,9001)
2384 #endif
2385  !
2386  ! -------------------------------------------------------------------- /
2387  ! 5. Restore previous grid setting if necessary
2388  !
2389  IF ( jgrid .NE. imod ) CALL w3setg ( jgrid, ndse, ndst )
2390 
2391  call print_memcheck(memunit, 'memcheck_____:'//' W3XDMA')
2392  !
2393  RETURN
2394  !
2395  ! Formats
2396  !
2397 1001 FORMAT (/' *** ERROR W3XDMA : GRIDS NOT INITIALIZED *** '/ &
2398  ' RUN W3NMOD FIRST '/)
2399 1002 FORMAT (/' *** ERROR W3XDMA : ILLEGAL MODEL NUMBER *** '/ &
2400  ' IMOD = ',i10/ &
2401  ' NADATA = ',i10/)
2402 1003 FORMAT (/' *** ERROR W3XDMA : ARRAY(S) ALREADY ALLOCATED *** ')
2403  !
2404 #ifdef W3_T
2405 9000 FORMAT (' TEST W3XDMA : MODEL ',i4)
2406 9001 FORMAT (' TEST W3XDMA : ARRAYS ALLOCATED')
2407 9002 FORMAT (' TEST W3XDMA : POINTERS RESET')
2408 9003 FORMAT (' TEST W3XDMA : DIMENSIONS STORED')
2409 #endif
2410  !/
2411  !/ End of W3XDMA ----------------------------------------------------- /
2412  !/

References w3gdatmd::e3df, w3servmd::extcde(), w3odatmd::flogr2, w3odatmd::flogrd, w3gdatmd::gtype, w3odatmd::iaproc, w3gdatmd::igrid, nadata, w3odatmd::napfld, w3odatmd::naproc, w3gdatmd::ngrids, w3odatmd::ngrpp, w3gdatmd::nk, w3odatmd::noextr, w3odatmd::nogrp, w3odatmd::noswll, w3gdatmd::nsea, w3gdatmd::nseal, nsealm, w3gdatmd::nspec, w3gdatmd::nth, w3odatmd::ntproc, w3gdatmd::nx, w3gdatmd::ny, w3gdatmd::p2msf, w3servmd::strace(), w3gdatmd::ungtype, w3gdatmd::us3df, w3gdatmd::usspf, w3gdatmd::w3setg(), and wadats.

Referenced by pdlib_field_vec::do_output_exchanges(), and w3initmd::w3mpio().

◆ w3xeta()

subroutine w3adatmd::w3xeta ( integer, intent(in)  IMOD,
integer, intent(in)  NDSE,
integer, intent(in)  NDST 
)

Reduced version of W3SETA to point to expended output arrays.

Parameters
[in]IMODModel number to point to.
[in]NDSEError output unit number.
[in]NDSTTest output unit number.
Author
H. L. Tolman
Date
22-Mar-2021

Definition at line 3118 of file w3adatmd.F90.

3118  !/
3119  !/ +-----------------------------------+
3120  !/ | WAVEWATCH III NOAA/NCEP |
3121  !/ | H. L. Tolman |
3122  !/ | FORTRAN 90 |
3123  !/ | Last update : 22-Mar-2021 |
3124  !/ +-----------------------------------+
3125  !/
3126  !/ 25-Dec-2012 : Origination. ( version 4.11 )
3127  !/ 30-Apr-2014 : Add s/th1-2m ( version 5.01 )
3128  !/ 22-Mar-2021 : Adds WNMEAN, TAUOC parameters ( version 7.13 )
3129  !/
3130  ! 1. Purpose :
3131  !
3132  ! Reduced version of W3SETA to point t expended output arrays.
3133  !
3134  ! 10. Source code :
3135  !
3136  !/ ------------------------------------------------------------------- /
3137  !
3138  USE w3idatmd, ONLY: inputs
3139  USE w3gdatmd, ONLY: e3df, p2msf, us3df, usspf, gtype, ungtype
3140  !
3141  USE w3servmd, ONLY: extcde
3142 #ifdef W3_S
3143  USE w3servmd, ONLY: strace
3144 #endif
3145  !
3146  !/
3147  !/ ------------------------------------------------------------------- /
3148  !/ Parameter list
3149  !/
3150  INTEGER, INTENT(IN) :: IMOD, NDSE, NDST
3151  !/
3152  !/ ------------------------------------------------------------------- /
3153  !/ Local parameters
3154  !/
3155 #ifdef W3_S
3156  INTEGER, SAVE :: IENT = 0
3157  CALL strace (ient, 'W3XETA')
3158 #endif
3159  !
3160  ! -------------------------------------------------------------------- /
3161  ! 1. Test input and module status
3162  !
3163  IF ( nadata .EQ. -1 ) THEN
3164  WRITE (ndse,1001)
3165  CALL extcde (1)
3166  END IF
3167  !
3168  IF ( imod.LT.1 .OR. imod.GT.nadata ) THEN
3169  WRITE (ndse,1002) imod, nadata
3170  CALL extcde (2)
3171  END IF
3172  !
3173 #ifdef W3_T
3174  WRITE (ndst,9000) imod
3175 #endif
3176  !
3177  ! -------------------------------------------------------------------- /
3178  ! 2. Set model numbers
3179  !
3180  iadata = imod
3181  !
3182  ! -------------------------------------------------------------------- /
3183  ! 3. Set pointers
3184  !
3185  IF ( ainit2 ) THEN
3186  !
3187  hs => wadats(imod)%XHS
3188  wlm => wadats(imod)%XWLM
3189  t02 => wadats(imod)%XT02
3190  t0m1 => wadats(imod)%XT0M1
3191  t01 => wadats(imod)%XT01
3192  fp0 => wadats(imod)%XFP0
3193  thm => wadats(imod)%XTHM
3194  ths => wadats(imod)%XTHS
3195  thp0 => wadats(imod)%XTHP0
3196  hsig => wadats(imod)%XHSIG
3197  stmaxe => wadats(imod)%XSTMAXE
3198  stmaxd => wadats(imod)%XSTMAXD
3199  hmaxe => wadats(imod)%XHMAXE
3200  hmaxd => wadats(imod)%XHMAXD
3201  hcmaxe => wadats(imod)%XHCMAXE
3202  hcmaxd => wadats(imod)%XHCMAXD
3203  qp => wadats(imod)%XQP
3204  wbt => wadats(imod)%XWBT
3205  wnmean => wadats(imod)%XWNMEAN
3206  !
3207  ef => wadats(imod)%XEF
3208  th1m => wadats(imod)%XTH1M
3209  sth1m => wadats(imod)%XSTH1M
3210  th2m => wadats(imod)%XTH2M
3211  sth2m => wadats(imod)%XSTH2M
3212  !
3213  phs => wadats(imod)%XPHS
3214  ptp => wadats(imod)%XPTP
3215  plp => wadats(imod)%XPLP
3216  pdir => wadats(imod)%XPDIR
3217  psi => wadats(imod)%XPSI
3218  pws => wadats(imod)%XPWS
3219  pwst => wadats(imod)%XPWST
3220  pnr => wadats(imod)%XPNR
3221  pthp0 => wadats(imod)%XPTHP0
3222  pqp => wadats(imod)%XPQP
3223  ppe => wadats(imod)%XPPE
3224  pgw => wadats(imod)%XPGW
3225  psw => wadats(imod)%XPSW
3226  ptm1 => wadats(imod)%XPTM1
3227  pt1 => wadats(imod)%XPT1
3228  pt2 => wadats(imod)%XPT2
3229  pep => wadats(imod)%XPEP
3230  !
3231  charn => wadats(imod)%XCHARN
3232  tws => wadats(imod)%XTWS
3233  cge => wadats(imod)%XCGE
3234  phiaw => wadats(imod)%XPHIAW
3235  tauwix => wadats(imod)%XTAUWIX
3236  tauwiy => wadats(imod)%XTAUWIY
3237  tauwnx => wadats(imod)%XTAUWNX
3238  tauwny => wadats(imod)%XTAUWNY
3239  whitecap => wadats(imod)%XWHITECAP
3240  !
3241  sxx => wadats(imod)%XSXX
3242  syy => wadats(imod)%XSYY
3243  sxy => wadats(imod)%XSXY
3244  tauox => wadats(imod)%XTAUOX
3245  tauoy => wadats(imod)%XTAUOY
3246  bhd => wadats(imod)%XBHD
3247  phioc => wadats(imod)%XPHIOC
3248  tusx => wadats(imod)%XTUSX
3249  tusy => wadats(imod)%XTUSY
3250  ussx => wadats(imod)%XUSSX
3251  ussy => wadats(imod)%XUSSY
3252  prms => wadats(imod)%XPRMS
3253  tpms => wadats(imod)%XTPMS
3254  p2sms => wadats(imod)%XP2SMS
3255  us3d => wadats(imod)%XUS3D
3256  phice => wadats(imod)%XPHICE
3257  tauice => wadats(imod)%XTAUICE
3258  ussp => wadats(imod)%XUSSP
3259  tauocx => wadats(imod)%XTAUOCX
3260  tauocy => wadats(imod)%XTAUOCY
3261  aba => wadats(imod)%XABA
3262  abd => wadats(imod)%XABD
3263  uba => wadats(imod)%XUBA
3264  ubd => wadats(imod)%XUBD
3265  bedforms=> wadats(imod)%XBEDFORMS
3266  phibbl => wadats(imod)%XPHIBBL
3267  taubbl => wadats(imod)%XTAUBBL
3268  !
3269  mssx => wadats(imod)%XMSSX
3270  mssy => wadats(imod)%XMSSY
3271  mssd => wadats(imod)%XMSSD
3272  mscx => wadats(imod)%XMSCX
3273  mscy => wadats(imod)%XMSCY
3274  mscd => wadats(imod)%XMSCD
3275  qkk => wadats(imod)%XQKK
3276  skew => wadats(imod)%XSKEW
3277  embia1 => wadats(imod)%XEMBIA1
3278  embia2 => wadats(imod)%XEMBIA2
3279  !
3280  dtdyn => wadats(imod)%XDTDYN
3281  fcut => wadats(imod)%XFCUT
3282  cflxymax => wadats(imod)%XCFLXYMAX
3283  cflthmax => wadats(imod)%XCFLTHMAX
3284  cflkmax => wadats(imod)%XCFLKMAX
3285  !
3286  usero => wadats(imod)%XUSERO
3287  !
3288  END IF
3289  !
3290  RETURN
3291  !
3292  ! Formats
3293  !
3294 1001 FORMAT (/' *** ERROR W3XETA : GRIDS NOT INITIALIZED *** '/ &
3295  ' RUN W3NMOD FIRST '/)
3296 1002 FORMAT (/' *** ERROR W3XETA : ILLEGAL MODEL NUMBER *** '/ &
3297  ' IMOD = ',i10/ &
3298  ' NADATA = ',i10/)
3299  !
3300 #ifdef W3_T
3301 9000 FORMAT (' TEST W3XETA : MODEL ',i4,' SELECTED')
3302 #endif
3303  !/
3304  !/ End of W3XETA ----------------------------------------------------- /
3305  !/

References aba, abd, ainit2, bedforms, bhd, cflkmax, cflthmax, cflxymax, cge, charn, dtdyn, w3gdatmd::e3df, ef, embia1, embia2, w3servmd::extcde(), fcut, fp0, w3gdatmd::gtype, hcmaxd, hcmaxe, hmaxd, hmaxe, hs, hsig, iadata, w3idatmd::inputs, mscd, mscx, mscy, mssd, mssx, mssy, nadata, w3gdatmd::p2msf, p2sms, pdir, pep, pgw, phiaw, phibbl, phice, phioc, phs, plp, pnr, ppe, pqp, prms, psi, psw, pt1, pt2, pthp0, ptm1, ptp, pws, pwst, qkk, qp, skew, sth1m, sth2m, stmaxd, stmaxe, w3servmd::strace(), sxx, sxy, syy, t01, t02, t0m1, taubbl, tauice, tauocx, tauocy, tauox, tauoy, tauwix, tauwiy, tauwnx, tauwny, th1m, th2m, thm, thp0, ths, tpms, tusx, tusy, tws, uba, ubd, w3gdatmd::ungtype, us3d, w3gdatmd::us3df, usero, ussp, w3gdatmd::usspf, ussx, ussy, wadats, wbt, whitecap, wlm, and wnmean.

Referenced by pdlib_field_vec::do_output_exchanges(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), and w3initmd::w3mpio().

Variable Documentation

◆ aba

real, dimension(:), pointer w3adatmd::aba

Definition at line 614 of file w3adatmd.F90.

614  REAL, POINTER :: ABA(:), ABD(:), UBA(:), UBD(:), &
615  BEDFORMS(:,:), PHIBBL(:), TAUBBL(:,:)

Referenced by pdlib_field_vec::do_output_exchanges(), wmesmfmd::fieldindex(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ abd

real, dimension(:), pointer w3adatmd::abd

Definition at line 614 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ af11

real, dimension(:), pointer w3adatmd::af11

Definition at line 670 of file w3adatmd.F90.

670  REAL, POINTER :: AF11(:)

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ainit

logical, pointer w3adatmd::ainit

Definition at line 688 of file w3adatmd.F90.

688  LOGICAL, POINTER :: AINIT, AINIT2, FL_ALL, FLCOLD, FLIWND

Referenced by w3iogomd::w3iogo(), and w3seta().

◆ ainit2

logical, pointer w3adatmd::ainit2

Definition at line 688 of file w3adatmd.F90.

Referenced by w3seta(), and w3xeta().

◆ alpha

real, dimension(:,:), pointer w3adatmd::alpha

Definition at line 687 of file w3adatmd.F90.

687  REAL, POINTER :: ALPHA(:,:)

Referenced by w3seta(), and w3wavemd::w3wave().

◆ as

real, dimension(:), pointer w3adatmd::as

Definition at line 584 of file w3adatmd.F90.

Referenced by gxoutf(), w3exgi(), w3initmd::w3init(), w3iogomd::w3iogo(), w3iopomd::w3iope(), w3iotrmd::w3iotr(), w3ounf(), w3outf(), w3seta(), w3updtmd::w3uwnd(), and w3wavemd::w3wave().

◆ as0

real, dimension(:), pointer w3adatmd::as0

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3uwnd().

◆ asi

real, dimension(:), pointer w3adatmd::asi

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3uwnd().

◆ atrnx

real, dimension(:,:), pointer w3adatmd::atrnx

Definition at line 578 of file w3adatmd.F90.

Referenced by w3triamd::set_ug_iobp(), pdlib_w3profsmd::set_ug_iobp_pdlib_init(), w3profsmd::w3cflug(), w3pro3md::w3cflxy(), w3pro3md::w3mapt(), w3psmcmd::w3psmc(), w3seta(), w3updtmd::w3utrn(), w3pro1md::w3xyp1(), w3pro2md::w3xyp2(), w3pro3md::w3xyp3(), and w3profsmd::w3xypug().

◆ atrny

real, dimension(:,:), pointer w3adatmd::atrny

Definition at line 578 of file w3adatmd.F90.

Referenced by w3triamd::set_ug_iobp(), pdlib_w3profsmd::set_ug_iobp_pdlib_init(), w3profsmd::w3cflug(), w3pro3md::w3cflxy(), w3pro3md::w3mapt(), w3psmcmd::w3psmc(), w3seta(), w3updtmd::w3utrn(), w3pro1md::w3xyp1(), w3pro2md::w3xyp2(), w3pro3md::w3xyp3(), and w3profsmd::w3xypug().

◆ awg1

real, pointer w3adatmd::awg1

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ awg2

real, pointer w3adatmd::awg2

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ awg3

real, pointer w3adatmd::awg3

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ awg4

real, pointer w3adatmd::awg4

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ awg5

real, pointer w3adatmd::awg5

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ awg6

real, pointer w3adatmd::awg6

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ awg7

real, pointer w3adatmd::awg7

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ awg8

real, pointer w3adatmd::awg8

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ bedforms

real, dimension(:,:), pointer w3adatmd::bedforms

Definition at line 614 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ bhd

real, dimension(:), pointer w3adatmd::bhd

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ bispl

integer, dimension(:), pointer w3adatmd::bispl

Definition at line 680 of file w3adatmd.F90.

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), w3wavemd::w3scat(), w3psmcmd::w3scatsmc(), and w3seta().

◆ bstat

integer, dimension(:), pointer w3adatmd::bstat

Definition at line 680 of file w3adatmd.F90.

680  INTEGER, POINTER :: BSTAT(:), BISPL(:)

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), w3wavemd::w3scat(), w3psmcmd::w3scatsmc(), and w3seta().

◆ ca0

real, dimension(:), pointer w3adatmd::ca0

Definition at line 578 of file w3adatmd.F90.

578  REAL, POINTER :: CA0(:), CAI(:), CD0(:), CDI(:), &
579  UA0(:), UAI(:), UD0(:), UDI(:), &
580  MA0(:), MAI(:), RA0(:), RAI(:), &
581  MD0(:), MDI(:), AS0(:), ASI(:), &
582  ATRNX(:,:), ATRNY(:,:)

Referenced by w3seta(), and w3updtmd::w3ucur().

◆ cai

real, dimension(:), pointer w3adatmd::cai

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3ucur().

◆ cd0

real, dimension(:), pointer w3adatmd::cd0

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3ucur().

◆ cdi

real, dimension(:), pointer w3adatmd::cdi

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3ucur().

◆ cflkmax

real, dimension(:), pointer w3adatmd::cflkmax

Definition at line 620 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ cflthmax

real, dimension(:), pointer w3adatmd::cflthmax

Definition at line 620 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ cflxymax

real, dimension(:), pointer w3adatmd::cflxymax

Definition at line 620 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), pdlib_w3profsmd::pdlib_w3xypfsfct2(), pdlib_w3profsmd::pdlib_w3xypfsn2(), pdlib_w3profsmd::pdlib_w3xypfspsi2(), w3triamd::set_ug_iobp(), pdlib_w3profsmd::set_ug_iobp_pdlib_init(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), w3xeta(), and w3profsmd::w3xypug().

◆ cg

real, dimension(:,:), pointer w3adatmd::cg

Definition at line 575 of file w3adatmd.F90.

575  REAL, POINTER :: CG(:,:), WN(:,:)

Referenced by pdlib_w3profsmd::action_limiter_local(), pdlib_w3profsmd::apply_boundary_condition(), pdlib_w3profsmd::apply_boundary_condition_va(), w3iogomd::calc_u3stokes(), w3iogomd::calc_wbt(), pdlib_w3profsmd::calcarray_jacobi(), pdlib_w3profsmd::calcarray_jacobi2(), pdlib_w3profsmd::calcarray_jacobi3(), pdlib_w3profsmd::calcarray_jacobi4(), pdlib_w3profsmd::calcarray_jacobi_source_1(), pdlib_w3profsmd::calcarray_jacobi_source_2(), pdlib_w3profsmd::calcarray_jacobi_spectral_1(), pdlib_w3profsmd::calcarray_jacobi_spectral_2(), pdlib_w3profsmd::calcarray_jacobi_vec(), wmesmfmd::calcstokes3d(), wmesmfmd::fieldindex(), pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block(), pdlib_w3profsmd::pdlib_w3xypfsfct2(), pdlib_w3profsmd::pdlib_w3xypfsn2(), pdlib_w3profsmd::pdlib_w3xypfspsi2(), pdlib_w3profsmd::pdlib_w3xypug(), w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), w3triamd::set_ug_iobp(), pdlib_w3profsmd::set_ug_iobp_pdlib_init(), w3iogomd::skewness(), w3wavset::trig_compute_lh_stress(), w3profsmd::w3cflug(), w3pro3md::w3cflxy(), w3iosfmd::w3cprt(), w3initmd::w3init(), w3iobcmd::w3iobc(), w3iopomd::w3iope(), w3iotrmd::w3iotr(), w3iogomd::w3outg(), w3psmcmd::w3psmc(), w3seta(), w3updtmd::w3ubpt(), w3updtmd::w3uini(), w3updtmd::w3ulev(), w3wavemd::w3wave(), w3pro1md::w3xyp1(), w3pro2md::w3xyp2(), w3pro3md::w3xyp3(), w3profsmd::w3xypfsfct2(), w3profsmd::w3xypfsn2(), w3profsmd::w3xypfsnimp(), w3profsmd::w3xypfspsi2(), w3profsmd::w3xypug(), wminiomd::wmiobs(), wminiomd::wmioeg(), wminiomd::wmioes(), wminiomd::wmiohg(), and wminiomd::wmiohs().

◆ cge

real, dimension(:), pointer w3adatmd::cge

Definition at line 603 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ charn

real, dimension(:), pointer w3adatmd::charn

Definition at line 603 of file w3adatmd.F90.

603  REAL, POINTER :: CHARN(:), CGE(:), PHIAW(:), &
604  TAUWIX(:), TAUWIY(:), TAUWNX(:), &
605  TAUWNY(:), WHITECAP(:,:), TWS(:)

Referenced by pdlib_field_vec::do_output_exchanges(), wmesmfmd::fieldindex(), gxoutf(), w3agcmmd::snd_fields_to_atmos(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), w3updtmd::w3uice(), w3wavemd::w3wave(), and w3xeta().

◆ cx

real, dimension(:), pointer w3adatmd::cx

Definition at line 584 of file w3adatmd.F90.

Referenced by pdlib_w3profsmd::apply_boundary_condition(), pdlib_w3profsmd::apply_boundary_condition_va(), pdlib_w3profsmd::calcarray_jacobi(), pdlib_w3profsmd::calcarray_jacobi2(), pdlib_w3profsmd::calcarray_jacobi3(), pdlib_w3profsmd::calcarray_jacobi4(), pdlib_w3profsmd::calcarray_jacobi_vec(), gxoutf(), pdlib_w3profsmd::pdlib_explicit_block(), pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block(), pdlib_w3profsmd::pdlib_w3xypug(), w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3triamd::set_ug_iobp(), pdlib_w3profsmd::set_ug_iobp_pdlib_init(), w3psmcmd::smcdcxy(), w3agcmmd::snd_fields_to_atmos(), w3profsmd::w3cflug(), w3pro3md::w3cflxy(), w3exgi(), w3iogomd::w3iogo(), w3iopomd::w3iope(), w3iorsmd::w3iors(), w3iosfmd::w3iosf(), w3iotrmd::w3iotr(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3psmcmd::w3psmc(), w3seta(), w3updtmd::w3ucur(), w3updtmd::w3uwnd(), w3wavemd::w3wave(), w3pro1md::w3xyp1(), w3pro2md::w3xyp2(), w3pro3md::w3xyp3(), and w3profsmd::w3xypug().

◆ cy

real, dimension(:), pointer w3adatmd::cy

Definition at line 584 of file w3adatmd.F90.

Referenced by pdlib_w3profsmd::apply_boundary_condition(), pdlib_w3profsmd::apply_boundary_condition_va(), pdlib_w3profsmd::calcarray_jacobi(), pdlib_w3profsmd::calcarray_jacobi2(), pdlib_w3profsmd::calcarray_jacobi3(), pdlib_w3profsmd::calcarray_jacobi4(), pdlib_w3profsmd::calcarray_jacobi_vec(), gxoutf(), pdlib_w3profsmd::pdlib_explicit_block(), pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block(), pdlib_w3profsmd::pdlib_w3xypug(), w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3triamd::set_ug_iobp(), pdlib_w3profsmd::set_ug_iobp_pdlib_init(), w3psmcmd::smcdcxy(), w3agcmmd::snd_fields_to_atmos(), w3profsmd::w3cflug(), w3pro3md::w3cflxy(), w3exgi(), w3iogomd::w3iogo(), w3iopomd::w3iope(), w3iorsmd::w3iors(), w3iosfmd::w3iosf(), w3iotrmd::w3iotr(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3psmcmd::w3psmc(), w3seta(), w3updtmd::w3ucur(), w3updtmd::w3uwnd(), w3wavemd::w3wave(), w3pro1md::w3xyp1(), w3pro2md::w3xyp2(), w3pro3md::w3xyp3(), and w3profsmd::w3xypug().

◆ dal1

real, pointer w3adatmd::dal1

Definition at line 666 of file w3adatmd.F90.

666  REAL, POINTER :: DAL1, DAL2, DAL3, &
667  AWG1, AWG2, AWG3, AWG4, AWG5, AWG6, &
668  AWG7, AWG8, SWG1, SWG2, SWG3, SWG4, &
669  SWG5, SWG6, SWG7, SWG8

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ dal2

real, pointer w3adatmd::dal2

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ dal3

real, pointer w3adatmd::dal3

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ dcdx

real, dimension(:,:,:), pointer w3adatmd::dcdx

Definition at line 629 of file w3adatmd.F90.

629  REAL, POINTER :: DCDX(:,:,:), DCDY(:,:,:)

Referenced by w3parall::prop_refraction_pr1(), w3seta(), and w3wavemd::w3wave().

◆ dcdy

real, dimension(:,:,:), pointer w3adatmd::dcdy

Definition at line 629 of file w3adatmd.F90.

Referenced by w3parall::prop_refraction_pr1(), w3seta(), and w3wavemd::w3wave().

◆ dcxdx

real, dimension(:,:), pointer w3adatmd::dcxdx

Definition at line 627 of file w3adatmd.F90.

Referenced by w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), w3psmcmd::smcdcxy(), w3seta(), and w3wavemd::w3wave().

◆ dcxdy

real, dimension(:,:), pointer w3adatmd::dcxdy

Definition at line 627 of file w3adatmd.F90.

Referenced by w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), w3psmcmd::smcdcxy(), w3seta(), and w3wavemd::w3wave().

◆ dcydx

real, dimension(:,:), pointer w3adatmd::dcydx

Definition at line 627 of file w3adatmd.F90.

Referenced by w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), w3psmcmd::smcdcxy(), w3seta(), and w3wavemd::w3wave().

◆ dcydy

real, dimension(:,:), pointer w3adatmd::dcydy

Definition at line 627 of file w3adatmd.F90.

Referenced by w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), w3psmcmd::smcdcxy(), w3seta(), and w3wavemd::w3wave().

◆ dddx

real, dimension(:,:), pointer w3adatmd::dddx

Definition at line 627 of file w3adatmd.F90.

627  REAL, POINTER :: DDDX(:,:), DDDY(:,:), DCXDX(:,:), &
628  DCYDX(:,:), DCXDY(:,:), DCYDY(:,:)

Referenced by w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), w3psmcmd::smcdhxy(), w3seta(), and w3wavemd::w3wave().

◆ dddy

real, dimension(:,:), pointer w3adatmd::dddy

Definition at line 627 of file w3adatmd.F90.

Referenced by w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), w3psmcmd::smcdhxy(), w3seta(), and w3wavemd::w3wave().

◆ dhdx

real, dimension(:), pointer w3adatmd::dhdx

Definition at line 631 of file w3adatmd.F90.

631  REAL, POINTER :: DHDX(:), DHDY(:), DHLMT(:,:)

Referenced by w3psmcmd::smcdhxy(), w3seta(), and w3wavemd::w3wave().

◆ dhdy

real, dimension(:), pointer w3adatmd::dhdy

Definition at line 631 of file w3adatmd.F90.

Referenced by w3psmcmd::smcdhxy(), w3seta(), and w3wavemd::w3wave().

◆ dhlmt

real, dimension(:,:), pointer w3adatmd::dhlmt

Definition at line 631 of file w3adatmd.F90.

Referenced by w3psmcmd::smcdhxy(), w3seta(), and w3wavemd::w3wave().

◆ dtdyn

real, dimension(:), pointer w3adatmd::dtdyn

Definition at line 620 of file w3adatmd.F90.

620  REAL, POINTER :: DTDYN(:), FCUT(:), CFLXYMAX(:), &
621  CFLTHMAX(:), CFLKMAX(:)

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ dw

real, dimension(:), pointer w3adatmd::dw

Definition at line 584 of file w3adatmd.F90.

584  REAL, POINTER :: DW(:), UA(:), UD(:), U10(:), U10D(:),&
585  AS(:), CX(:), CY(:), TAUA(:), TAUADIR(:)

Referenced by pdlib_w3profsmd::block_solver_init(), w3iogomd::calc_u3stokes(), w3iogomd::calc_wbt(), pdlib_w3profsmd::calcarray_jacobi(), pdlib_w3profsmd::calcarray_jacobi2(), pdlib_w3profsmd::calcarray_jacobi3(), pdlib_w3profsmd::calcarray_jacobi4(), pdlib_w3profsmd::calcarray_jacobi_source_1(), pdlib_w3profsmd::calcarray_jacobi_source_2(), pdlib_w3profsmd::calcarray_jacobi_spectral_1(), pdlib_w3profsmd::calcarray_jacobi_spectral_2(), pdlib_w3profsmd::calcarray_jacobi_vec(), wmesmfmd::calcstokes3d(), w3wavset::fd_wave_setup_compute_system(), wmesmfmd::fieldindex(), gxoutf(), pdlib_w3profsmd::pdlib_explicit_block(), pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block(), pdlib_w3profsmd::pdlib_w3xypfsfct2(), pdlib_w3profsmd::pdlib_w3xypfsn2(), pdlib_w3profsmd::pdlib_w3xypfspsi2(), pdlib_w3profsmd::pdlib_w3xypug(), w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), pdlib_w3profsmd::set_iobdp_pdlib(), pdlib_w3profsmd::set_iobpa_pdlib(), w3profsmd::setdepth(), w3psmcmd::smcdhxy(), w3wavset::trig_compute_lh_stress(), w3wavset::trig_wave_setup_computation(), w3profsmd::w3cflug(), w3iosfmd::w3cprt(), w3exgi(), w3initmd::w3init(), w3iogomd::w3iogo(), w3iopomd::w3iope(), w3iosfmd::w3iosf(), w3iotrmd::w3iotr(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), w3updtmd::w3ulev(), w3updtmd::w3uwnd(), w3wavemd::w3wave(), w3profsmd::w3xypfsn2(), and w3profsmd::w3xypug().

◆ ef

real, dimension(:,:), pointer w3adatmd::ef

Definition at line 594 of file w3adatmd.F90.

594  REAL, POINTER :: EF(:,:), TH1M(:,:), STH1M(:,:), &
595  TH2M(:,:), STH2M(:,:)

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ embia1

real, dimension(:), pointer w3adatmd::embia1

Definition at line 617 of file w3adatmd.F90.

Referenced by w3iogomd::skewness(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), and w3xeta().

◆ embia2

real, dimension(:), pointer w3adatmd::embia2

Definition at line 617 of file w3adatmd.F90.

Referenced by w3iogomd::skewness(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), and w3xeta().

◆ facvx

real, dimension(:), pointer w3adatmd::facvx

Definition at line 636 of file w3adatmd.F90.

636  REAL, POINTER :: FACVX(:), FACVY(:)

Referenced by w3pro1md::w3map1(), w3seta(), and w3pro1md::w3xyp1().

◆ facvy

real, dimension(:), pointer w3adatmd::facvy

Definition at line 636 of file w3adatmd.F90.

Referenced by w3pro1md::w3map1(), w3seta(), and w3pro1md::w3xyp1().

◆ fcut

real, dimension(:), pointer w3adatmd::fcut

Definition at line 620 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ fl_all

logical, pointer w3adatmd::fl_all

Definition at line 688 of file w3adatmd.F90.

Referenced by w3dima(), and w3seta().

◆ flcold

logical, pointer w3adatmd::flcold

Definition at line 688 of file w3adatmd.F90.

Referenced by w3initmd::w3init(), w3seta(), and w3wavemd::w3wave().

◆ fliwnd

logical, pointer w3adatmd::fliwnd

Definition at line 688 of file w3adatmd.F90.

Referenced by w3initmd::w3init(), w3seta(), and w3wavemd::w3wave().

◆ fp0

real, dimension(:), pointer w3adatmd::fp0

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3agcmmd::snd_fields_to_atmos(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ gstore

real, dimension(:,:), pointer w3adatmd::gstore

Definition at line 682 of file w3adatmd.F90.

682  REAL, POINTER :: GSTORE(:,:), SSTORE(:,:)

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), and w3seta().

◆ hcmaxd

real, dimension(:), pointer w3adatmd::hcmaxd

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ hcmaxe

real, dimension(:), pointer w3adatmd::hcmaxe

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ hmaxd

real, dimension(:), pointer w3adatmd::hmaxd

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ hmaxe

real, dimension(:), pointer w3adatmd::hmaxe

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ hs

real, dimension(:), pointer w3adatmd::hs

Definition at line 587 of file w3adatmd.F90.

587  REAL, POINTER :: HS(:), WLM(:), T02(:), T0M1(:), &
588  T01 (:), FP0(:), THM(:), THS(:), &
589  THP0(:), HSIG(:), &
590  STMAXE(:), STMAXD(:), HMAXE(:), &
591  HCMAXE(:), HMAXD(:), HCMAXD(:), &
592  QP(:), WBT(:), WNMEAN(:)

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3agcmmd::snd_fields_to_atmos(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), w3updtmd::w3ulev(), and w3xeta().

◆ hsig

real, dimension(:), pointer w3adatmd::hsig

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ iadata

integer w3adatmd::iadata = -1

Definition at line 374 of file w3adatmd.F90.

Referenced by w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ iappro

integer, dimension(:), pointer w3adatmd::iappro

Definition at line 674 of file w3adatmd.F90.

674  INTEGER, POINTER :: IAPPRO(:)

Referenced by w3initmd::w3init(), w3initmd::w3mpii(), w3seta(), and w3wavemd::w3wave().

◆ ibfloc

integer, pointer w3adatmd::ibfloc

Definition at line 676 of file w3adatmd.F90.

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), w3wavemd::w3scat(), w3psmcmd::w3scatsmc(), and w3seta().

◆ ic11

integer, dimension(:), pointer w3adatmd::ic11

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic12

integer, dimension(:), pointer w3adatmd::ic12

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic21

integer, dimension(:), pointer w3adatmd::ic21

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic22

integer, dimension(:), pointer w3adatmd::ic22

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic31

integer, dimension(:), pointer w3adatmd::ic31

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic32

integer, dimension(:), pointer w3adatmd::ic32

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic3cg

real, dimension(:,:), pointer w3adatmd::ic3cg

Definition at line 576 of file w3adatmd.F90.

Referenced by w3sic3md::ic3table_cheng(), w3sic3md::w3ic3wncg_cheng(), and w3seta().

◆ ic3wn_i

real, dimension(:,:), pointer w3adatmd::ic3wn_i

Definition at line 576 of file w3adatmd.F90.

Referenced by w3sic3md::ic3table_cheng(), w3sic3md::w3ic3wncg_cheng(), and w3seta().

◆ ic3wn_r

real, dimension(:,:), pointer w3adatmd::ic3wn_r

Definition at line 576 of file w3adatmd.F90.

576  REAL, POINTER :: IC3WN_R(:,:), IC3WN_I(:,:), IC3CG(:,:)

Referenced by w3sic3md::ic3table_cheng(), w3sic3md::w3ic3wncg_cheng(), and w3seta().

◆ ic41

integer, dimension(:), pointer w3adatmd::ic41

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic42

integer, dimension(:), pointer w3adatmd::ic42

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic51

integer, dimension(:), pointer w3adatmd::ic51

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic52

integer, dimension(:), pointer w3adatmd::ic52

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic61

integer, dimension(:), pointer w3adatmd::ic61

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic62

integer, dimension(:), pointer w3adatmd::ic62

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic71

integer, dimension(:), pointer w3adatmd::ic71

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic72

integer, dimension(:), pointer w3adatmd::ic72

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic81

integer, dimension(:), pointer w3adatmd::ic81

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ic82

integer, dimension(:), pointer w3adatmd::ic82

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ idlast

integer, pointer w3adatmd::idlast

Definition at line 686 of file w3adatmd.F90.

Referenced by w3seta(), and w3wavemd::w3wave().

◆ im11

integer, dimension(:), pointer w3adatmd::im11

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ im12

integer, dimension(:), pointer w3adatmd::im12

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ im13

integer, dimension(:), pointer w3adatmd::im13

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ im14

integer, dimension(:), pointer w3adatmd::im14

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ im21

integer, dimension(:), pointer w3adatmd::im21

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ im22

integer, dimension(:), pointer w3adatmd::im22

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ im23

integer, dimension(:), pointer w3adatmd::im23

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ im24

integer, dimension(:), pointer w3adatmd::im24

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ip11

integer, dimension(:), pointer w3adatmd::ip11

Definition at line 658 of file w3adatmd.F90.

658  INTEGER, POINTER :: IP11(:), IP12(:), IP13(:), IP14(:), &
659  IM11(:), IM12(:), IM13(:), IM14(:), &
660  IP21(:), IP22(:), IP23(:), IP24(:), &
661  IM21(:), IM22(:), IM23(:), IM24(:), &
662  IC11(:), IC12(:), IC21(:), IC22(:), &
663  IC31(:), IC32(:), IC41(:), IC42(:), &
664  IC51(:), IC52(:), IC61(:), IC62(:), &
665  IC71(:), IC72(:), IC81(:), IC82(:)

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ip12

integer, dimension(:), pointer w3adatmd::ip12

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ip13

integer, dimension(:), pointer w3adatmd::ip13

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ip14

integer, dimension(:), pointer w3adatmd::ip14

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ip21

integer, dimension(:), pointer w3adatmd::ip21

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ip22

integer, dimension(:), pointer w3adatmd::ip22

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ip23

integer, dimension(:), pointer w3adatmd::ip23

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ip24

integer, dimension(:), pointer w3adatmd::ip24

Definition at line 658 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ ipass

integer, pointer w3adatmd::ipass

Definition at line 686 of file w3adatmd.F90.

Referenced by wmesmfmd::createexpmesh(), w3seta(), and w3wavemd::w3wave().

◆ irqsg1

integer, dimension(:,:), pointer w3adatmd::irqsg1

Definition at line 681 of file w3adatmd.F90.

681  INTEGER, POINTER :: IRQSG1(:,:), IRQSG2(:,:)

Referenced by w3initmd::w3mpii(), w3seta(), and w3wavemd::w3wave().

◆ irqsg2

integer, dimension(:,:), pointer w3adatmd::irqsg2

Definition at line 681 of file w3adatmd.F90.

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), w3wavemd::w3scat(), w3psmcmd::w3scatsmc(), and w3seta().

◆ is0

integer, dimension(:), pointer w3adatmd::is0

Definition at line 635 of file w3adatmd.F90.

635  INTEGER, POINTER :: IS0(:), IS2(:)

Referenced by w3pro1md::w3ktp1(), w3pro1md::w3map1(), and w3seta().

◆ is2

integer, dimension(:), pointer w3adatmd::is2

Definition at line 635 of file w3adatmd.F90.

Referenced by w3pro1md::w3ktp1(), w3pro1md::w3map1(), and w3seta().

◆ isploc

integer, pointer w3adatmd::isploc

Definition at line 676 of file w3adatmd.F90.

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), w3wavemd::w3scat(), w3psmcmd::w3scatsmc(), and w3seta().

◆ iter

integer, dimension(:,:), pointer w3adatmd::iter

Definition at line 654 of file w3adatmd.F90.

654  INTEGER, POINTER :: ITER(:,:)

Referenced by pdlib_w3profsmd::pdlib_w3xypfsfct2(), pdlib_w3profsmd::pdlib_w3xypfsn2(), pdlib_w3profsmd::pdlib_w3xypfspsi2(), w3seta(), w3profsmd::w3xypfsfct2(), w3profsmd::w3xypfsn2(), w3profsmd::w3xypfsnimp(), and w3profsmd::w3xypfspsi2().

◆ itime

integer, pointer w3adatmd::itime

Definition at line 686 of file w3adatmd.F90.

686  INTEGER, POINTER :: ITIME, IPASS, IDLAST, NSEALM

Referenced by pdlib_w3profsmd::pdlib_w3xypug(), w3triamd::set_ug_iobp(), pdlib_w3profsmd::set_ug_iobp_pdlib_init(), w3profsmd::w3cflug(), w3pro3md::w3cflxy(), w3psmcmd::w3krtn(), w3pro2md::w3ktp2(), w3pro3md::w3ktp3(), w3psmcmd::w3psmc(), w3seta(), w3wavemd::w3wave(), w3pro2md::w3xyp2(), w3pro3md::w3xyp3(), and w3profsmd::w3xypug().

◆ ma0

real, dimension(:), pointer w3adatmd::ma0

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3utau().

◆ mai

real, dimension(:), pointer w3adatmd::mai

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3utau().

◆ mapaxy

integer, dimension(:), pointer w3adatmd::mapaxy

Definition at line 642 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ mapcxy

integer, dimension(:), pointer w3adatmd::mapcxy

Definition at line 649 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro3md::w3map3(), w3seta(), and w3pro3md::w3xyp3().

◆ mapth2

integer, dimension(:), pointer w3adatmd::mapth2

Definition at line 642 of file w3adatmd.F90.

Referenced by w3pro2md::w3ktp2(), w3pro3md::w3ktp3(), w3pro2md::w3map2(), w3pro3md::w3map3(), and w3seta().

◆ maptrn

logical, dimension(:), pointer w3adatmd::maptrn

Definition at line 651 of file w3adatmd.F90.

651  LOGICAL, POINTER :: MAPTRN(:)

Referenced by w3pro3md::w3cflxy(), w3pro3md::w3mapt(), w3seta(), and w3pro3md::w3xyp3().

◆ mapwn2

integer, dimension(:), pointer w3adatmd::mapwn2

Definition at line 642 of file w3adatmd.F90.

Referenced by w3pro2md::w3ktp2(), w3pro3md::w3ktp3(), w3pro2md::w3map2(), w3pro3md::w3map3(), and w3seta().

◆ mapx2

integer, dimension(:), pointer w3adatmd::mapx2

Definition at line 642 of file w3adatmd.F90.

642  INTEGER, POINTER :: MAPX2(:), MAPY2(:), MAPAXY(:), &
643  MAPXY(:), MAPTH2(:), MAPWN2(:)

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ mapxy

integer, dimension(:), pointer w3adatmd::mapxy

Definition at line 642 of file w3adatmd.F90.

Referenced by w3pro2md::w3map2(), w3seta(), and w3pro2md::w3xyp2().

◆ mapy2

integer, dimension(:), pointer w3adatmd::mapy2

Definition at line 642 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ md0

real, dimension(:), pointer w3adatmd::md0

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3utau().

◆ mdi

real, dimension(:), pointer w3adatmd::mdi

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3utau().

◆ mpi_comm_wave

integer, pointer w3adatmd::mpi_comm_wave

Definition at line 676 of file w3adatmd.F90.

676  INTEGER, POINTER :: MPI_COMM_WAVE, MPI_COMM_WCMP, &
677  WW3_FIELD_VEC, WW3_SPEC_VEC, &
678  NRQSG1, NRQSG2, IBFLOC, ISPLOC, &
679  NSPLOC

Referenced by yowfunction::computelistnp_listnpa_listiplg(), pdlib_field_vec::do_output_exchanges(), pdlib_w3profsmd::pdlib_init(), w3parall::set_up_nseal_nsealm(), w3parall::synchronize_ipgl_etc_array(), pdlib_field_vec::unst_pdlib_read_from_file(), pdlib_field_vec::unst_pdlib_write_to_file(), w3initmd::w3init(), w3iogrmd::w3iogr(), w3iosfmd::w3iosf(), w3iotrmd::w3iotr(), w3initmd::w3mpii(), w3initmd::w3mpio(), w3initmd::w3mpip(), w3seta(), w3wavemd::w3wave(), and wmwavemd::wmwout().

◆ mpi_comm_wcmp

integer, pointer w3adatmd::mpi_comm_wcmp

Definition at line 676 of file w3adatmd.F90.

Referenced by pdlib_w3profsmd::check_array_integral_nx_r8_maxfunct(), yowfunction::computelistnp_listnpa_listiplg_kernel(), pdlib_field_vec::do_output_exchanges(), w3wavset::fd_collect_sxx_xy_yy(), w3wavset::fd_wave_setup_computation(), pdlib_w3profsmd::pdlib_explicit_block(), pdlib_w3profsmd::pdlib_init(), pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block(), pdlib_w3profsmd::pdlib_w3xypfsfct2(), pdlib_w3profsmd::pdlib_w3xypfsn2(), pdlib_w3profsmd::pdlib_w3xypfspsi2(), pdlib_w3profsmd::scal_integral_print_general(), w3parall::set_up_nseal_nsealm(), w3parall::synchronize_global_array(), w3parall::synchronize_ipgl_etc_array(), pdlib_w3profsmd::test_mpi_status(), w3wavset::trig_set_meanvalue_to_zero(), w3wavset::trig_wave_setup_scalar_prod(), w3initmd::w3init(), w3iorsmd::w3iors(), w3seta(), and pdlib_w3profsmd::write_var_to_text_file().

◆ mpibuf

integer, parameter w3adatmd::mpibuf = 6

Definition at line 376 of file w3adatmd.F90.

376  INTEGER, PARAMETER :: MPIBUF = 6

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), w3wavemd::w3scat(), and w3psmcmd::w3scatsmc().

◆ mscd

real, dimension(:), pointer w3adatmd::mscd

Definition at line 617 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ mscx

real, dimension(:), pointer w3adatmd::mscx

Definition at line 617 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ mscy

real, dimension(:), pointer w3adatmd::mscy

Definition at line 617 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ mssd

real, dimension(:), pointer w3adatmd::mssd

Definition at line 617 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ mssx

real, dimension(:), pointer w3adatmd::mssx

Definition at line 617 of file w3adatmd.F90.

617  REAL, POINTER :: MSSX(:), MSSY(:), MSSD(:), &
618  MSCX(:), MSCY(:), MSCD(:), QKK(:), SKEW(:), EMBIA1(:), EMBIA2(:)

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ mssy

real, dimension(:), pointer w3adatmd::mssy

Definition at line 617 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ nact

integer pointer w3adatmd::nact

Definition at line 640 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ nadata

integer w3adatmd::nadata = -1

Definition at line 374 of file w3adatmd.F90.

374  INTEGER :: NADATA = -1, iadata = -1

Referenced by w3dima(), w3dmnl(), w3naux(), w3seta(), w3xdma(), and w3xeta().

◆ ncent

integer, pointer w3adatmd::ncent

Definition at line 647 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro3md::w3map3(), w3seta(), and w3pro3md::w3xyp3().

◆ nfr

integer, pointer w3adatmd::nfr

Definition at line 657 of file w3adatmd.F90.

657  INTEGER, POINTER :: NFR, NFRHGH, NFRCHG, NSPECX, NSPECY

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ nfrchg

integer, pointer w3adatmd::nfrchg

Definition at line 657 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ nfrhgh

integer, pointer w3adatmd::nfrhgh

Definition at line 657 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ nlinit

logical, pointer w3adatmd::nlinit

Definition at line 671 of file w3adatmd.F90.

671  LOGICAL, POINTER :: NLINIT

Referenced by w3seta().

◆ nmx0

integer pointer w3adatmd::nmx0

Definition at line 640 of file w3adatmd.F90.

640  INTEGER, POINTER :: NMX0, NMX1, NMX2, NMY0, NMY1, NMY2, &
641  NACT, NMXY

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ nmx1

integer pointer w3adatmd::nmx1

Definition at line 640 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ nmx2

integer pointer w3adatmd::nmx2

Definition at line 640 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ nmxy

integer, pointer w3adatmd::nmxy

Definition at line 640 of file w3adatmd.F90.

Referenced by w3pro2md::w3map2(), w3seta(), and w3pro2md::w3xyp2().

◆ nmy0

integer pointer w3adatmd::nmy0

Definition at line 640 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ nmy1

integer pointer w3adatmd::nmy1

Definition at line 640 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ nmy2

integer pointer w3adatmd::nmy2

Definition at line 640 of file w3adatmd.F90.

Referenced by w3pro3md::w3cflxy(), w3pro2md::w3map2(), w3pro3md::w3map3(), w3seta(), w3pro2md::w3xyp2(), and w3pro3md::w3xyp3().

◆ nrqsg1

integer, pointer w3adatmd::nrqsg1

Definition at line 676 of file w3adatmd.F90.

Referenced by w3initmd::w3mpii(), w3seta(), and w3wavemd::w3wave().

◆ nrqsg2

integer, pointer w3adatmd::nrqsg2

Definition at line 676 of file w3adatmd.F90.

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), w3wavemd::w3scat(), w3psmcmd::w3scatsmc(), and w3seta().

◆ nsealm

integer, pointer w3adatmd::nsealm

Definition at line 686 of file w3adatmd.F90.

Referenced by pdlib_w3profsmd::pdlib_w3xypfsfct2(), pdlib_w3profsmd::pdlib_w3xypfsn2(), pdlib_w3profsmd::pdlib_w3xypfspsi2(), w3triamd::ug_gradients(), pdlib_field_vec::unst_pdlib_read_from_file(), w3iosfmd::w3cprt(), w3dima(), w3initmd::w3init(), w3iorsmd::w3iors(), w3iosfmd::w3iosf(), w3initmd::w3mpii(), w3initmd::w3mpio(), w3iogomd::w3outg(), w3seta(), w3updtmd::w3uice(), w3uprstr(), and w3xdma().

◆ nspecx

integer, pointer w3adatmd::nspecx

Definition at line 657 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3dmnl(), w3seta(), and w3snl1md::w3snl1().

◆ nspecy

integer, pointer w3adatmd::nspecy

Definition at line 657 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ nsploc

integer, pointer w3adatmd::nsploc

Definition at line 676 of file w3adatmd.F90.

Referenced by w3wavemd::w3gath(), w3psmcmd::w3gathsmc(), w3initmd::w3mpii(), w3wavemd::w3scat(), w3psmcmd::w3scatsmc(), and w3seta().

◆ p2sms

real, dimension(:,:), pointer w3adatmd::p2sms

Definition at line 612 of file w3adatmd.F90.

612  REAL, POINTER :: P2SMS(:,:), US3D(:,:), USSP(:,:)

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pdir

real, dimension(:,:), pointer w3adatmd::pdir

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pep

real, dimension(:,:), pointer w3adatmd::pep

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pgw

real, dimension(:,:), pointer w3adatmd::pgw

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ phiaw

real, dimension(:), pointer w3adatmd::phiaw

Definition at line 603 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ phibbl

real, dimension(:), pointer w3adatmd::phibbl

Definition at line 614 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ phice

real, dimension(:), pointer w3adatmd::phice

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ phioc

real, dimension(:), pointer w3adatmd::phioc

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ phs

real, dimension(:,:), pointer w3adatmd::phs

Definition at line 597 of file w3adatmd.F90.

597  REAL, POINTER :: PHS(:,:), PTP(:,:), PLP(:,:), &
598  PDIR(:,:), PSI(:,:), PWS(:,:), &
599  PWST(:), PNR(:), PGW(:,:), PSW(:,:), &
600  PTHP0(:,:), PQP(:,:), PPE(:,:), &
601  PTM1(:,:), PT1(:,:), PT2(:,:),PEP(:,:)

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ plp

real, dimension(:,:), pointer w3adatmd::plp

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pnr

real, dimension(:), pointer w3adatmd::pnr

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ppe

real, dimension(:,:), pointer w3adatmd::ppe

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pqp

real, dimension(:,:), pointer w3adatmd::pqp

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ prms

real, dimension(:), pointer w3adatmd::prms

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ psi

real, dimension(:,:), pointer w3adatmd::psi

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ psw

real, dimension(:,:), pointer w3adatmd::psw

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pt1

real, dimension(:,:), pointer w3adatmd::pt1

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pt2

real, dimension(:,:), pointer w3adatmd::pt2

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pthp0

real, dimension(:,:), pointer w3adatmd::pthp0

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ptm1

real, dimension(:,:), pointer w3adatmd::ptm1

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ptp

real, dimension(:,:), pointer w3adatmd::ptp

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pws

real, dimension(:,:), pointer w3adatmd::pws

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ pwst

real, dimension(:), pointer w3adatmd::pwst

Definition at line 597 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ qkk

real, dimension(:), pointer w3adatmd::qkk

Definition at line 617 of file w3adatmd.F90.

Referenced by w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ qp

real, dimension(:), pointer w3adatmd::qp

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ra0

real, dimension(:), pointer w3adatmd::ra0

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3urho().

◆ rai

real, dimension(:), pointer w3adatmd::rai

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3urho().

◆ skew

real, dimension(:), pointer w3adatmd::skew

Definition at line 617 of file w3adatmd.F90.

Referenced by w3iogomd::skewness(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), and w3xeta().

◆ sppnt

real, dimension(:,:,:), pointer w3adatmd::sppnt

Definition at line 684 of file w3adatmd.F90.

684  REAL, POINTER :: SPPNT(:,:,:)

Referenced by pdlib_field_vec::do_output_exchanges(), w3iopomd::w3iope(), w3initmd::w3mpio(), w3initmd::w3mpip(), and w3seta().

◆ sstore

real, dimension(:,:), pointer w3adatmd::sstore

Definition at line 682 of file w3adatmd.F90.

Referenced by w3initmd::w3mpii(), w3wavemd::w3scat(), w3psmcmd::w3scatsmc(), and w3seta().

◆ sth1m

real, dimension(:,:), pointer w3adatmd::sth1m

Definition at line 594 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ sth2m

real, dimension(:,:), pointer w3adatmd::sth2m

Definition at line 594 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ stmaxd

real, dimension(:), pointer w3adatmd::stmaxd

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ stmaxe

real, dimension(:), pointer w3adatmd::stmaxe

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ swg1

real, pointer w3adatmd::swg1

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ swg2

real, pointer w3adatmd::swg2

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ swg3

real, pointer w3adatmd::swg3

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ swg4

real, pointer w3adatmd::swg4

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ swg5

real, pointer w3adatmd::swg5

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ swg6

real, pointer w3adatmd::swg6

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ swg7

real, pointer w3adatmd::swg7

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ swg8

real, pointer w3adatmd::swg8

Definition at line 666 of file w3adatmd.F90.

Referenced by w3snl1md::insnl1(), w3seta(), and w3snl1md::w3snl1().

◆ sxx

real, dimension(:), pointer w3adatmd::sxx

Definition at line 607 of file w3adatmd.F90.

607  REAL, POINTER :: SXX(:), SYY(:), SXY(:), TAUOX(:), &
608  TAUOY(:), BHD(:), PHIOC(:), &
609  TUSX(:), TUSY(:), USSX(:), USSY(:), &
610  TAUOCX(:), TAUOCY(:), PRMS(:), &
611  TPMS(:), PHICE(:), TAUICE(:,:)

Referenced by pdlib_field_vec::do_output_exchanges(), w3wavset::fd_collect_sxx_xy_yy(), w3wavset::fd_compute_lh_stress(), wmesmfmd::fieldindex(), gxoutf(), w3wavset::trig_compute_lh_stress(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ sxy

real, dimension(:), pointer w3adatmd::sxy

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3wavset::fd_collect_sxx_xy_yy(), w3wavset::fd_compute_lh_stress(), wmesmfmd::fieldindex(), gxoutf(), w3wavset::trig_compute_lh_stress(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ syy

real, dimension(:), pointer w3adatmd::syy

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3wavset::fd_collect_sxx_xy_yy(), w3wavset::fd_compute_lh_stress(), wmesmfmd::fieldindex(), gxoutf(), w3wavset::trig_compute_lh_stress(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ t01

real, dimension (:), pointer w3adatmd::t01

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ t02

real, dimension(:), pointer w3adatmd::t02

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ t0m1

real, dimension(:), pointer w3adatmd::t0m1

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ taua

real, dimension(:), pointer w3adatmd::taua

Definition at line 584 of file w3adatmd.F90.

Referenced by gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3iopomd::w3iope(), w3ounf(), w3outf(), w3seta(), w3updtmd::w3utau(), and w3wavemd::w3wave().

◆ tauadir

real, dimension(:), pointer w3adatmd::tauadir

Definition at line 584 of file w3adatmd.F90.

Referenced by gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3iopomd::w3iope(), w3ounf(), w3outf(), w3seta(), w3updtmd::w3utau(), and w3wavemd::w3wave().

◆ taubbl

real, dimension(:,:), pointer w3adatmd::taubbl

Definition at line 614 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauice

real, dimension(:,:), pointer w3adatmd::tauice

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3igcmmd::snd_fields_to_ice(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauocx

real, dimension(:), pointer w3adatmd::tauocx

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauocy

real, dimension(:), pointer w3adatmd::tauocy

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauox

real, dimension(:), pointer w3adatmd::tauox

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauoy

real, dimension(:), pointer w3adatmd::tauoy

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauwix

real, dimension(:), pointer w3adatmd::tauwix

Definition at line 603 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauwiy

real, dimension(:), pointer w3adatmd::tauwiy

Definition at line 603 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauwnx

real, dimension(:), pointer w3adatmd::tauwnx

Definition at line 603 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ tauwny

real, dimension(:), pointer w3adatmd::tauwny

Definition at line 603 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ th1m

real, dimension(:,:), pointer w3adatmd::th1m

Definition at line 594 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ th2m

real, dimension(:,:), pointer w3adatmd::th2m

Definition at line 594 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ thm

real, dimension(:), pointer w3adatmd::thm

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ thp0

real, dimension(:), pointer w3adatmd::thp0

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ths

real, dimension(:), pointer w3adatmd::ths

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ tpms

real, dimension(:), pointer w3adatmd::tpms

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ tusx

real, dimension(:), pointer w3adatmd::tusx

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ tusy

real, dimension(:), pointer w3adatmd::tusy

Definition at line 607 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ tws

real, dimension(:), pointer w3adatmd::tws

Definition at line 603 of file w3adatmd.F90.

Referenced by w3agcmmd::snd_fields_to_atmos(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ u10

real, dimension(:), pointer w3adatmd::u10

Definition at line 584 of file w3adatmd.F90.

Referenced by w3iogomd::calc_wbt(), wmesmfmd::fieldindex(), pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block(), w3iosfmd::w3cprt(), w3initmd::w3init(), w3iosfmd::w3iosf(), w3psmcmd::w3psmc(), w3seta(), w3updtmd::w3uini(), w3updtmd::w3uwnd(), w3wavemd::w3wave(), and w3pro2md::w3xyp2().

◆ u10d

real, dimension(:), pointer w3adatmd::u10d

Definition at line 584 of file w3adatmd.F90.

Referenced by w3iogomd::calc_wbt(), wmesmfmd::fieldindex(), pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block(), w3iosfmd::w3cprt(), w3initmd::w3init(), w3iosfmd::w3iosf(), w3seta(), w3updtmd::w3uini(), w3updtmd::w3uwnd(), and w3wavemd::w3wave().

◆ ua

real, dimension(:), pointer w3adatmd::ua

Definition at line 584 of file w3adatmd.F90.

Referenced by gxoutf(), w3exgi(), w3initmd::w3init(), w3iogomd::w3iogo(), w3iopomd::w3iope(), w3iotrmd::w3iotr(), w3ounf(), w3outf(), w3seta(), and w3updtmd::w3uwnd().

◆ ua0

real, dimension(:), pointer w3adatmd::ua0

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3uwnd().

◆ uai

real, dimension(:), pointer w3adatmd::uai

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3uwnd().

◆ uba

real, dimension(:), pointer w3adatmd::uba

Definition at line 614 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), wmesmfmd::fieldindex(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ubd

real, dimension(:), pointer w3adatmd::ubd

Definition at line 614 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), wmesmfmd::fieldindex(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ud

real, dimension(:), pointer w3adatmd::ud

Definition at line 584 of file w3adatmd.F90.

Referenced by gxoutf(), w3exgi(), w3initmd::w3init(), w3iogomd::w3iogo(), w3iopomd::w3iope(), w3iotrmd::w3iotr(), w3ounf(), w3outf(), w3seta(), and w3updtmd::w3uwnd().

◆ ud0

real, dimension(:), pointer w3adatmd::ud0

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3uwnd().

◆ udi

real, dimension(:), pointer w3adatmd::udi

Definition at line 578 of file w3adatmd.F90.

Referenced by w3seta(), and w3updtmd::w3uwnd().

◆ us3d

real, dimension(:,:), pointer w3adatmd::us3d

Definition at line 612 of file w3adatmd.F90.

Referenced by w3iogomd::calc_u3stokes(), wmesmfmd::calcstokes3d(), pdlib_field_vec::do_output_exchanges(), gxoutf(), wmesmfmd::setservices(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ usero

real, dimension(:,:), pointer w3adatmd::usero

Definition at line 623 of file w3adatmd.F90.

623  REAL, POINTER :: USERO(:,:)

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ussp

real, dimension(:,:), pointer w3adatmd::ussp

Definition at line 612 of file w3adatmd.F90.

Referenced by w3iogomd::calc_u3stokes(), wmesmfmd::calcstokes3d(), pdlib_field_vec::do_output_exchanges(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ussx

real, dimension(:), pointer w3adatmd::ussx

Definition at line 607 of file w3adatmd.F90.

Referenced by w3iogomd::calc_u3stokes(), pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ ussy

real, dimension(:), pointer w3adatmd::ussy

Definition at line 607 of file w3adatmd.F90.

Referenced by w3iogomd::calc_u3stokes(), pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ wadats

type(wadat), dimension(:), allocatable, target w3adatmd::wadats

Definition at line 571 of file w3adatmd.F90.

571  TYPE(WADAT), TARGET, ALLOCATABLE :: WADATS(:)

Referenced by pdlib_field_vec::do_output_exchanges(), w3dima(), w3dmnl(), w3exgi(), w3initmd::w3mpii(), w3naux(), w3seta(), w3xdma(), w3xeta(), wminitmd::wminit(), and wminitmd::wminitnml().

◆ wbt

real, dimension(:), pointer w3adatmd::wbt

Definition at line 587 of file w3adatmd.F90.

Referenced by w3iogomd::calc_wbt(), pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ whitecap

real, dimension(:,:), pointer w3adatmd::whitecap

Definition at line 603 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3exgi(), w3iogomd::w3iogo(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ wlm

real, dimension(:), pointer w3adatmd::wlm

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), gxoutf(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3iogomd::w3outg(), w3seta(), and w3xeta().

◆ wn

real, dimension(:,:), pointer w3adatmd::wn

Definition at line 575 of file w3adatmd.F90.

Referenced by pdlib_w3profsmd::action_limiter_local(), w3iogomd::calc_u3stokes(), w3iogomd::calc_wbt(), pdlib_w3profsmd::calcarray_jacobi(), pdlib_w3profsmd::calcarray_jacobi2(), pdlib_w3profsmd::calcarray_jacobi3(), pdlib_w3profsmd::calcarray_jacobi4(), pdlib_w3profsmd::calcarray_jacobi_source_1(), pdlib_w3profsmd::calcarray_jacobi_source_2(), pdlib_w3profsmd::calcarray_jacobi_vec(), wmesmfmd::calcstokes3d(), wmesmfmd::fieldindex(), gxoutf(), pdlib_w3profsmd::pdlib_jacobi_gauss_seidel_block(), pdlib_w3profsmd::print_wn_statistic(), w3parall::prop_freq_shift(), w3parall::prop_freq_shift_m2(), w3parall::prop_refraction_pr1(), w3parall::prop_refraction_pr3(), w3wavset::trig_compute_lh_stress(), w3iosfmd::w3cprt(), w3exgi(), w3initmd::w3init(), w3iogomd::w3iogo(), w3ounf(), w3iogomd::w3outg(), w3psmcmd::w3psmc(), w3seta(), w3updtmd::w3ulev(), w3wavemd::w3wave(), and w3pro2md::w3xyp2().

◆ wnmean

real, dimension(:), pointer w3adatmd::wnmean

Definition at line 587 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), wmesmfmd::fieldindex(), w3ogcmmd::snd_fields_to_ocean(), w3exgi(), w3iogomd::w3iogo(), w3iorsmd::w3iors(), w3initmd::w3mpio(), w3ounf(), w3outf(), w3seta(), w3wavemd::w3wave(), and w3xeta().

◆ ww3_field_vec

integer, pointer w3adatmd::ww3_field_vec

Definition at line 676 of file w3adatmd.F90.

Referenced by pdlib_field_vec::do_output_exchanges(), w3initmd::w3mpii(), w3initmd::w3mpio(), and w3seta().

◆ ww3_spec_vec

integer, pointer w3adatmd::ww3_spec_vec

Definition at line 676 of file w3adatmd.F90.

Referenced by w3initmd::w3mpii(), and w3seta().

w3gdatmd::nk
integer, pointer nk
Definition: w3gdatmd.F90:1230
w3gdatmd::nseal
integer, pointer nseal
Definition: w3gdatmd.F90:1097
w3gdatmd::nspec
integer, pointer nspec
Definition: w3gdatmd.F90:1230
w3gdatmd::ungtype
integer, parameter ungtype
Definition: w3gdatmd.F90:626
w3gdatmd::p2msf
integer, dimension(:), pointer p2msf
Definition: w3gdatmd.F90:1098
w3odatmd::flogr2
logical, dimension(:,:), pointer flogr2
Definition: w3odatmd.F90:478
w3idatmd::inputs
type(input), dimension(:), allocatable, target inputs
Definition: w3idatmd.F90:232
w3odatmd::ntproc
integer, pointer ntproc
Definition: w3odatmd.F90:457
w3odatmd::iaproc
integer, pointer iaproc
Definition: w3odatmd.F90:457
w3odatmd::ngrpp
integer, parameter ngrpp
Definition: w3odatmd.F90:324
w3gdatmd::ny
integer, pointer ny
Definition: w3gdatmd.F90:1097
w3idatmd::flcur
logical, pointer flcur
Definition: w3idatmd.F90:261
w3gdatmd::w3setg
subroutine w3setg(IMOD, NDSE, NDST)
Definition: w3gdatmd.F90:2152
constants::lpdlib
logical lpdlib
LPDLIB Logical for using the PDLIB library.
Definition: constants.F90:101
w3gdatmd::nsea
integer, pointer nsea
Definition: w3gdatmd.F90:1097
w3servmd
Definition: w3servmd.F90:3
w3odatmd::flogrd
logical, dimension(:,:), pointer flogrd
Definition: w3odatmd.F90:478
w3gdatmd::nth
integer, pointer nth
Definition: w3gdatmd.F90:1230
w3odatmd
Definition: w3odatmd.F90:3
w3odatmd::naproc
integer, pointer naproc
Definition: w3odatmd.F90:457
w3gdatmd::us3df
integer, dimension(:), pointer us3df
Definition: w3gdatmd.F90:1098
w3gdatmd::igrid
integer igrid
Definition: w3gdatmd.F90:618
w3idatmd::flwind
logical, pointer flwind
Definition: w3idatmd.F90:261
w3servmd::strace
subroutine strace(IENT, SNAME)
Definition: w3servmd.F90:148
w3gdatmd::gtype
integer, pointer gtype
Definition: w3gdatmd.F90:1094
w3idatmd
Define data structures to set up wave model input data for several models simultaneously.
Definition: w3idatmd.F90:16
w3odatmd::noextr
integer, parameter noextr
Definition: w3odatmd.F90:328
w3odatmd::napfld
integer, pointer napfld
Definition: w3odatmd.F90:457
w3idatmd::fltaua
logical, pointer fltaua
Definition: w3idatmd.F90:261
constants
Define some much-used constants for global use (all defined as PARAMETER).
Definition: constants.F90:20
w3odatmd::nogrp
integer, parameter nogrp
Definition: w3odatmd.F90:323
w3gdatmd
Definition: w3gdatmd.F90:16
w3idatmd::flrhoa
logical, pointer flrhoa
Definition: w3idatmd.F90:261
w3servmd::extcde
subroutine extcde(IEXIT, UNIT, MSG, FILE, LINE, COMM)
Definition: w3servmd.F90:736
w3odatmd::noswll
integer, pointer noswll
Definition: w3odatmd.F90:460
w3gdatmd::nx
integer, pointer nx
Definition: w3gdatmd.F90:1097
w3gdatmd::ngrids
integer ngrids
Definition: w3gdatmd.F90:618
w3gdatmd::usspf
integer, dimension(:), pointer usspf
Definition: w3gdatmd.F90:1098
w3gdatmd::e3df
integer, dimension(:,:), pointer e3df
Definition: w3gdatmd.F90:1098
w3adatmd::mpi_comm_wcmp
integer, pointer mpi_comm_wcmp
Definition: w3adatmd.F90:676