| 1 | MODULE variables_mod |
|---|
| 2 | |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | |
|---|
| 5 | REAL :: JD_cur !pday !JD_cur ! Julian day |
|---|
| 6 | REAL :: JH_cur_split !ptime !JH_cur_split ! Julian hour (fraction of day) |
|---|
| 7 | REAL :: zdt_split !ptimestep !zdt_split ! time step over which the physics are evaluated |
|---|
| 8 | REAL :: phour_ini ! start time (fraction of day) of the run 0=<phour_ini<1 |
|---|
| 9 | REAL,DIMENSION(:,:),ALLOCATABLE :: zplev_omp !pplev !zplev_omp(klon,llm+1) ! interlayer pressure (Pa) |
|---|
| 10 | REAL,DIMENSION(:,:),ALLOCATABLE :: zplay_omp !pplay !zplay_omp(klon,llm) ! mid-layer pressure (Pa) |
|---|
| 11 | REAL,DIMENSION(:,:),ALLOCATABLE :: zpk_omp!(klon,llm) |
|---|
| 12 | REAL,DIMENSION(:,:),ALLOCATABLE :: zphi_omp !pphi !zphi_omp(klon,llm) ! geopotential at midlayer |
|---|
| 13 | REAL,DIMENSION(:),ALLOCATABLE :: zphis_omp!(klon) ! surface geopotential |
|---|
| 14 | REAL,DIMENSION(:),ALLOCATABLE :: presnivs_omp!(llm) ! approximate pressure of atm. layers |
|---|
| 15 | REAL,DIMENSION(:,:),ALLOCATABLE :: zufi_omp !pu !zufi_omp(klon,llm) ! zonal wind (m/s) |
|---|
| 16 | REAL,DIMENSION(:,:),ALLOCATABLE :: zvfi_omp !pv !zvfi_omp(klon,llm) ! meridional wind (m/s) |
|---|
| 17 | REAL,DIMENSION(:,:),ALLOCATABLE :: zrfi_omp!(klon,llm) ! relative wind vorticity, in s-1 |
|---|
| 18 | REAL,DIMENSION(:,:),ALLOCATABLE :: ztfi_omp !pt !ztfi_omp(klon,llm) ! temperature (K) |
|---|
| 19 | REAL,DIMENSION(:,:,:),ALLOCATABLE :: zqfi_omp !pq !zqfi_omp(klon,llm,nqtot) ! tracers (*/kg of air) |
|---|
| 20 | REAL,DIMENSION(:,:),ALLOCATABLE :: flxwfi_omp !flxw !flxwfi_omp(klon,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) |
|---|
| 21 | ! tendencies (in */s) from the physics: |
|---|
| 22 | REAL,DIMENSION(:,:),ALLOCATABLE :: zdufi_omp !pdu !zdufi_omp(klon,llm) ! tendency on zonal winds |
|---|
| 23 | REAL,DIMENSION(:,:),ALLOCATABLE :: zdvfi_omp !pdv !zdvfi_omp(klon,llm) ! tendency on meridional winds |
|---|
| 24 | REAL,DIMENSION(:,:),ALLOCATABLE :: zdtfi_omp !pdt !zdtfi_omp(klon,llm) ! tendency on temperature |
|---|
| 25 | REAL,DIMENSION(:,:,:),ALLOCATABLE :: zdqfi_omp !pdq !zdqfi_omp(klon,llm,nqtot) ! tendency on tracers |
|---|
| 26 | REAL,DIMENSION(:),ALLOCATABLE :: zdpsrf_omp !pdpsrf !zdpsrf_omp(klon) ! tendency on surface pressure |
|---|
| 27 | |
|---|
| 28 | CONTAINS |
|---|
| 29 | |
|---|
| 30 | SUBROUTINE allocate_interface(klon,llm,nqtot) |
|---|
| 31 | |
|---|
| 32 | IMPLICIT NONE |
|---|
| 33 | |
|---|
| 34 | INTEGER,INTENT(IN) :: klon ! (local) number of atmospheric columns |
|---|
| 35 | INTEGER,INTENT(IN) :: llm ! number of atmospheric layers |
|---|
| 36 | INTEGER,INTENT(IN) :: nqtot ! number of tracers |
|---|
| 37 | |
|---|
| 38 | IF (.NOT.ALLOCATED(zplev_omp)) ALLOCATE(zplev_omp(klon,llm+1)) |
|---|
| 39 | IF (.NOT.ALLOCATED(zplay_omp)) ALLOCATE(zplay_omp(klon,llm)) |
|---|
| 40 | IF (.NOT.ALLOCATED(zpk_omp)) ALLOCATE(zpk_omp(klon,llm)) |
|---|
| 41 | IF (.NOT.ALLOCATED(zphi_omp)) ALLOCATE(zphi_omp(klon,llm)) |
|---|
| 42 | IF (.NOT.ALLOCATED(zphis_omp)) ALLOCATE(zphis_omp(klon)) |
|---|
| 43 | IF (.NOT.ALLOCATED(presnivs_omp)) ALLOCATE(presnivs_omp(llm)) |
|---|
| 44 | IF (.NOT.ALLOCATED(zufi_omp)) ALLOCATE(zufi_omp(klon,llm)) |
|---|
| 45 | IF (.NOT.ALLOCATED(zvfi_omp)) ALLOCATE(zvfi_omp(klon,llm)) |
|---|
| 46 | IF (.NOT.ALLOCATED(zrfi_omp)) ALLOCATE(zrfi_omp(klon,llm)) |
|---|
| 47 | IF (.NOT.ALLOCATED(ztfi_omp)) ALLOCATE(ztfi_omp(klon,llm)) |
|---|
| 48 | IF (.NOT.ALLOCATED(zqfi_omp)) ALLOCATE(zqfi_omp(klon,llm,nqtot)) |
|---|
| 49 | IF (.NOT.ALLOCATED(flxwfi_omp)) ALLOCATE(flxwfi_omp(klon,llm)) |
|---|
| 50 | IF (.NOT.ALLOCATED(zdufi_omp)) ALLOCATE(zdufi_omp(klon,llm)) |
|---|
| 51 | IF (.NOT.ALLOCATED(zdvfi_omp)) ALLOCATE(zdvfi_omp(klon,llm)) |
|---|
| 52 | IF (.NOT.ALLOCATED(zdtfi_omp)) ALLOCATE(zdtfi_omp(klon,llm)) |
|---|
| 53 | IF (.NOT.ALLOCATED(zdqfi_omp)) ALLOCATE(zdqfi_omp(klon,llm,nqtot)) |
|---|
| 54 | IF (.NOT.ALLOCATED(zdpsrf_omp)) ALLOCATE(zdpsrf_omp(klon)) |
|---|
| 55 | |
|---|
| 56 | END SUBROUTINE allocate_interface |
|---|
| 57 | |
|---|
| 58 | SUBROUTINE deallocate_interface |
|---|
| 59 | |
|---|
| 60 | DEALLOCATE(zplev_omp) |
|---|
| 61 | DEALLOCATE(zplay_omp) |
|---|
| 62 | DEALLOCATE(zpk_omp) |
|---|
| 63 | DEALLOCATE(zphi_omp) |
|---|
| 64 | DEALLOCATE(zphis_omp) |
|---|
| 65 | DEALLOCATE(presnivs_omp) |
|---|
| 66 | DEALLOCATE(zufi_omp) |
|---|
| 67 | DEALLOCATE(zvfi_omp) |
|---|
| 68 | DEALLOCATE(zrfi_omp) |
|---|
| 69 | DEALLOCATE(ztfi_omp) |
|---|
| 70 | DEALLOCATE(zqfi_omp) |
|---|
| 71 | DEALLOCATE(flxwfi_omp) |
|---|
| 72 | DEALLOCATE(zdufi_omp) |
|---|
| 73 | DEALLOCATE(zdvfi_omp) |
|---|
| 74 | DEALLOCATE(zdtfi_omp) |
|---|
| 75 | DEALLOCATE(zdqfi_omp) |
|---|
| 76 | DEALLOCATE(zdpsrf_omp) |
|---|
| 77 | |
|---|
| 78 | END SUBROUTINE deallocate_interface |
|---|
| 79 | |
|---|
| 80 | END MODULE variables_mod |
|---|
