Changeset 3661 for trunk/LMDZ.TITAN/libf/phytitan/comm_wrf.F90

Timestamp:

Feb 27, 2025, 2:53:11 PM (5 months ago)

Author:

emoisan

Message:

Titan CRM:
Add Titan interface in INTERFACES_V4
Adapt module_model_constants.F to Titan
Add new tracer_mode for Titan (CH4 scalar)
Add new communication of variables between LMDZ.TITAN and WRF
Allow microphysics for Mesoscale in physiq_mod.F90
EMo

File:

• trunk/LMDZ.TITAN/libf/phytitan/comm_wrf.F90 (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/comm_wrf.F90

@@ -18 +18 @@
   REAL,SAVE,ALLOCATABLE :: comm_FLUXSURF_LW(:)
   REAL,SAVE,ALLOCATABLE :: comm_FLXGRD(:)
+  REAL,SAVE,ALLOCATABLE :: comm_zqfi_omp(:,:,:)
+  REAL,SAVE,ALLOCATABLE :: comm_zdtlc(:,:)
 
 contains
 
-  subroutine allocate_comm_wrf(ngrid,nlayer)
+  subroutine allocate_comm_wrf(ngrid,nlayer,nq)
   implicit none
-  integer,intent(in) :: ngrid ! number of atmospheric columns
+  integer,intent(in) :: ngrid  ! number of atmospheric columns
   integer,intent(in) :: nlayer ! number of atmospheric layers
+  integer,intent(in) :: nq     ! number of tracers
   allocate(comm_HR_SW(ngrid,nlayer))
   allocate(comm_HR_LW(ngrid,nlayer))
@@ -38 +41 @@
   allocate(comm_FLUXSURF_LW(ngrid))
   allocate(comm_FLXGRD(ngrid))
+  allocate(comm_zqfi_omp(ngrid,nlayer,nq))
+  allocate(comm_zdtlc(ngrid,nlayer))
 
   end subroutine allocate_comm_wrf
@@ -56 +61 @@
   deallocate(comm_FLUXSURF_LW)
   deallocate(comm_FLXGRD)
+  deallocate(comm_zqfi_omp)
+  deallocate(comm_zdtlc)
 
   end subroutine deallocate_comm_wrf