MAPL/base3g/API.F90 at f804eb78a6fe62d62cc067d1f754e009985ea5cc · GEOS-ESM/MAPL · GitHub

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
module mapl_base3g_mod
   use mapl_FileMetadataUtils_mod
   use mapl_FileMetadataUtilsVector_mod
   use mapl_PackedTime_mod, only: MAPL_PackedDateCreate => PackedDateCreate, &
                                   MAPL_PackedTimeCreate => PackedTimeCreate, &
                                   MAPL_PackedDateTimeCreate => PackedDateTimeCreate, &
                                   MAPL_ESMFTimeFromPacked => ESMFTimeFromPacked, &
                                   MAPL_UnpackDate => UnpackDate, &
                                   MAPL_UnpackTime => UnpackTime, &
                                   MAPL_UnpackDateTime => UnpackDateTime
   use mapl_SimulationTime_mod, only: set_reference_clock, fill_time_dict
   use MAPL_CommsMod, only: mapl_CommsBcast, mapl_CommsScatterV, mapl_CommsGatherV, &
                            mapl_CommsAllGather, mapl_CommsAllGatherV, &
                            mapl_CommsAllReduceMin, mapl_CommsAllReduceMax, &
                            mapl_CommsAllReduceSum, mapl_CommsSend, mapl_CommsRecv, &
                            mapl_CommsSendRecv, mapl_AM_I_ROOT, mapl_AM_I_RANK, &
                            mapl_NPES, ArrayGather, ArrayScatter, MAPL_ROOT, &
                            MAPL_ArrayGather => ArrayGather, MAPL_ArrayScatter => ArrayScatter, &
                            mapl_CreateRequest, mapl_CommRequest, mapl_ArrayIGather, &
                            mapl_ArrayIScatter, mapl_CollectiveWait, &
                            mapl_CollectiveScatter3D, mapl_CollectiveGather3D, &
                            mapl_RoundRobinPEList, mapl_BcastShared, ArrPtr
   use mapl_SatVapor_mod, only: MAPL_EQsatSET, MAPL_EQsat
   use mapl_StringTemplate_mod, only: fill_grads_template, StrTemplate, fill_grads_template_esmf
   use mapl_LocalDisplacementEnsemble_mod, only: LocalDisplacementEnsemble
   use mapl_MemUtils_mod, only: MAPL_MemUtilsInit, MAPL_MemUtilsDisable, &
         MAPL_MemUtilsWrite, MAPL_MemUtilsIsDisabled, MAPL_MemUtilsFree, &
         MAPL_MemCommited, MAPL_MemUsed, MAPL_MemReport
   use mapl_Sun_mod, only: MAPL_SunOrbitCreate, MAPL_SunOrbitCreateFromConfig, &
         MAPL_SunOrbitCreated, MAPL_SunOrbitDestroy, MAPL_SunOrbitQuery, &
         MAPL_SunGetInsolation, MAPL_SunGetSolarConstant, &
          MAPL_SunGetDaylightDuration, MAPL_SunGetDaylightDurationMax, &
          MAPL_SunGetLocalSolarHourAngle, MAPL_SunOrbit
   use mapl_TimeInterpolation_mod, only: MAPL_Interp_Fac, MAPL_ClimInterpFac
   use mapl_FileIO_mod, only: WRITE_PARALLEL
   use mapl_SimpleBundleMod_impl_mod, only: MAPL_SimpleBundleCreate, MAPL_SimpleBundlePrint, &
        MAPL_SimpleBundleGetIndex, MAPL_SimpleBundleDestroy, MAPL_SimpleBundle
   use mapl_FileIOShared_mod, only: ArrDescr, ArrDescrInit, ArrDescrSet
   use mapl_NCIO_mod, only: MAPL_VarRead, MAPL_VarWrite, MAPL_NCIOGetFileType, &
                        MAPL_IOGetNonDimVars, MAPL_IOCountNonDimVars, &
                        MAPL_IOChangeRes, MAPL_IOCountLevels
   implicit none(type,external)
   private

   public :: MAPL_PackedDateCreate, MAPL_PackedTimeCreate, &
              MAPL_PackedDateTimeCreate, MAPL_ESMFTimeFromPacked, &
              MAPL_UnpackDate, MAPL_UnpackTime, MAPL_UnpackDateTime
   public :: set_reference_clock, fill_time_dict
   public :: mapl_CommsBcast, mapl_CommsScatterV, mapl_CommsGatherV
   public :: mapl_CommsAllGather, mapl_CommsAllGatherV
   public :: mapl_CommsAllReduceMin, mapl_CommsAllReduceMax, mapl_CommsAllReduceSum
   public :: mapl_CommsSend, mapl_CommsRecv, mapl_CommsSendRecv
   public :: mapl_AM_I_ROOT, mapl_AM_I_RANK, mapl_NPES
   public :: ArrayGather, ArrayScatter, MAPL_ROOT
   public :: MAPL_ArrayGather, MAPL_ArrayScatter
   public :: mapl_CreateRequest, mapl_CommRequest
   public :: mapl_ArrayIGather, mapl_ArrayIScatter, mapl_CollectiveWait
   public :: mapl_CollectiveScatter3D, mapl_CollectiveGather3D
   public :: mapl_RoundRobinPEList, mapl_BcastShared, ArrPtr
   public :: MAPL_EQsatSET, MAPL_EQsat
   public :: fill_grads_template, StrTemplate, fill_grads_template_esmf
   public :: LocalDisplacementEnsemble
   public :: MAPL_MemUtilsInit, MAPL_MemUtilsDisable
   public :: MAPL_MemUtilsWrite, MAPL_MemUtilsIsDisabled, MAPL_MemUtilsFree
   public :: MAPL_MemCommited, MAPL_MemUsed, MAPL_MemReport
   public :: MAPL_SunOrbitCreate, MAPL_SunOrbitCreateFromConfig
   public :: MAPL_SunOrbitCreated, MAPL_SunOrbitDestroy, MAPL_SunOrbitQuery
   public :: MAPL_SunGetInsolation, MAPL_SunGetSolarConstant
   public :: MAPL_SunGetDaylightDuration, MAPL_SunGetDaylightDurationMax
   public :: MAPL_SunGetLocalSolarHourAngle, MAPL_SunOrbit
   public :: MAPL_Interp_Fac, MAPL_ClimInterpFac
   public :: WRITE_PARALLEL
   public :: MAPL_SimpleBundleCreate, MAPL_SimpleBundlePrint
   public :: MAPL_SimpleBundleGetIndex, MAPL_SimpleBundleDestroy, MAPL_SimpleBundle
   public :: ArrDescr, ArrDescrInit, ArrDescrSet
   public :: MAPL_VarRead, MAPL_VarWrite, MAPL_NCIOGetFileType
   public :: MAPL_IOGetNonDimVars, MAPL_IOCountNonDimVars
   public :: MAPL_IOChangeRes, MAPL_IOCountLevels

end module mapl_base3g_mod