-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathuse.F90
98 lines (81 loc) · 1.93 KB
/
use.F90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
USE CONSTANTS
USE W3GDATMD
USE W3WDATMD
USE W3ADATMD
USE W3IDATMD
USE W3ODATMD
USE W3UPDTMD
USE W3SRCEMD
USE W3SERVMD
USE W3TIMEMD
USE W3TRIAMD
USE W3IOGRMD
USE W3IOGOMD
USE W3IOPOMD
USE W3IOTRMD
USE W3IORSMD
USE W3IOBCMD
USE W3IOSFMD
USE W3PARALL, ONLY : INIT_GET_ISEA
#ifdef W3_PR1
USE W3PRO1MD
USE W3PROFSMD
#endif
#ifdef W3_PR2
USE W3PRO2MD
USE W3PROFSMD
#endif
#ifdef W3_PR3
USE W3PRO3MD
USE W3PROFSMD
#endif
#ifdef W3_SMC
USE W3PSMCMD
#endif
#ifdef W3_PDLIB
USE W3PARALL , only : LSLOC, PDLIB_NSEAL, PDLIB_NSEALM
USE yowNodepool , only : npa, iplg, np
USE PDLIB_W3PROFSMD, only : APPLY_BOUNDARY_CONDITION_VA
USE PDLIB_W3PROFSMD, only : PDLIB_W3XYPUG, PDLIB_W3XYPUG_BLOCK_IMPLICIT, PDLIB_W3XYPUG_BLOCK_EXPLICIT
USE PDLIB_W3PROFSMD, only : ALL_VA_INTEGRAL_PRINT, ALL_VAOLD_INTEGRAL_PRINT, ALL_FIELD_INTEGRAL_PRINT
USE PDLIB_W3PROFSMD, ONLY : ASPAR_JAC, ASPAR_DIAG_ALL, B_JAC
USE PDLIB_FIELD_VEC, only : DO_OUTPUT_EXCHANGES
#endif
#ifdef W3_IC3
USE W3SIC3MD
#endif
#ifdef W3_IS2
USE W3SIS2MD
#endif
#ifdef W3_UOST
USE W3UOSTMD, ONLY: UOST_SETGRID
#endif
#ifdef W3_SETUP
USE W3WAVSET, only : WAVE_SETUP_COMPUTATION
#endif
#ifdef W3_OASIS
USE W3OACPMD, ONLY: ID_OASIS_TIME, CPLT0
#endif
#ifdef W3_OASOCM
USE W3OGCMMD, ONLY: SND_FIELDS_TO_OCEAN
#endif
#ifdef W3_OASACM
USE W3AGCMMD, ONLY: SND_FIELDS_TO_ATMOS
#endif
#ifdef W3_OASICM
USE W3IGCMMD, ONLY: SND_FIELDS_TO_ICE
#endif
#ifdef W3_TIMINGS
USE W3PARALL, only : PRINT_MY_TIME
#endif
#ifdef W3_PIO
use wav_restart_mod, only : write_restart
use wav_history_mod, only : write_history
#endif
use w3odatmd , only : histwr, rstwr, use_historync, use_restartnc, user_restfname
use w3odatmd , only : verboselog
use w3timemd , only : set_user_timestring
!
#ifdef W3_MPI
INCLUDE "mpif.h"
#endif