doc-doxygen/html/mod__memory_8_f90_source.html

00001 MODULE mod_memory
00002 !
00003 ! -- memory.h   23-08-95   Version 2.0   Author: Laurent Terray
00004 !    ********
00005 !               18-03-98   Version 2.5   changed in module
00006 !@
00007 !@  Contents : variables related to pseudo-dynamic memory allocation
00008 !@  --------
00009 !@
00010 !@ -- nsizold : size for each field sub-array (before interpolation) (1D)
00011 !@
00012 !@ -- nsiznew : size for each field sub-array (after interpolation) (1D)
00013 !@
00014 !@ -- nadrold : adress for each field sub-array (before interpolation) (1D)
00015 !@
00016 !@ -- nadrold_grid : adress for each grid sub-array (before interpolation) (1D)
00017 !@
00018 !@ -- nadrnew : adress for each field sub-array (after interpolation) (1D)
00019 !@
00020 !@ -- nadrnew_grid : adress for each grid sub-array (after interpolation) (1D)
00021 !@
00022 !@ -- mskold : macro array for masks (before interpolation) (1D)
00023 !@
00024 !@ -- msknew : macro array for masks (after interpolation) (1D)
00025 !@
00026 !@ -- nwork : integer work array (1D)
00027 !@
00028 !@ -- fldold : macro array for fields (before interpolation) (1D)
00029 !@
00030 !@ -- fldnew : macro array for fields (after interpolation) (1D)
00031 !@
00032 !@ -- xgrold : macro array for longitudes (before interpolation) (1D)
00033 !@
00034 !@ -- xgrnew : macro array for longitudes (after interpolation) (1D)
00035 !@
00036 !@ -- ygrold : macro array for latitudes (before interpolation) (1D)
00037 !@
00038 !@ -- ygrnew : macro array for latitudes (after interpolation) (1D)
00039 !@
00040 !@ -- surold : macro array for mesh surfaces (before interpolation) (1D)
00041 !@
00042 !@ -- surnew : macro array for mesh surfaces (after interpolation) (1D)
00043 !@
00044 !@ -- work : real work array (1D)
00045 !@
00046 !     -------------------------------------------------------------------
00047 !
00048   USE mod_kinds_oasis
00049 !
00050   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nsizold, nsiznew
00051   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nadrold, nadrnew
00052   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nadrold_grid
00053   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nadrnew_grid
00054   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: mskold, msknew
00055   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nwork
00056 !
00057   REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: fldold, fldnew
00058   REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: xgrold, xgrnew
00059   REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: ygrold, ygrnew
00060   REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: surold, surnew
00061   REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: work
00062 !
00063 !     -------------------------------------------------------------------
00064 !
00065 END MODULE mod_memory
00066
00067
00068