Changeset 5323 for LMDZ6

Timestamp:

Nov 12, 2024, 4:27:59 PM (6 weeks ago)

Author:

abarral

Message:

[WIP] add missing reprobus & inca wrappers

Location:

LMDZ6/trunk/libf

Files:

• dyn3d/advtrac.f90 (modified) (1 diff)
• dyn3dmem/leapfrog_loc.f90 (modified) (1 diff)
• dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (1 diff)
• misc/lmdz_inca_wrappers.F90 (modified) (2 diffs)
• misc/lmdz_reprobus_wrappers.F90 (modified) (2 diffs)
• phylmd/physiq_mod.F90 (modified) (1 diff)
• phylmd/tracreprobus_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d/advtrac.f90

@@ -18 +18 @@
    USE strings_mod, ONLY: int2str
    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
-USE paramet_mod_h
+   USE paramet_mod_h
 IMPLICIT NONE
    !

LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90

@@ -41 +41 @@
          using_xios
    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS, CPPKEY_DEBUGIO
+   USE lmdz_reprobus_wrappers, ONLY: finalize_reprobus
    USE strings_mod, ONLY: int2str
 

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -19 +19 @@
   USE infotrac_phy, ONLY: nbtr_bin, nbtr_sulgas, id_OCS_strat, &
                       id_SO2_strat, id_H2SO4_strat, id_BIN01_strat
-  USE lmdz_reprobus_wrappers, ONLY : Init_chem_rep_phys
+  USE lmdz_reprobus_wrappers, ONLY : init_chem_rep_phys, init_reprobus_para
 #ifdef CPP_PARA
   USE parallel_lmdz, ONLY : mpi_size, mpi_rank

LMDZ6/trunk/libf/misc/lmdz_inca_wrappers.F90

@@ -314 +314 @@
 END SUBROUTINE INIT_INCA_DIM_REG
 
+SUBROUTINE INIT_INCA_DIM(nlon, nlev)
+  IMPLICIT NONE
+  INTEGER :: nlon, nlev
+  CALL lmdz_inca_wrapper_abort
+END SUBROUTINE INIT_INCA_DIM
+
 SUBROUTINE AEROSOL_METEO_CALC(&
         calday, delt, pmid, pfull, t_seri, &
@@ -338 +344 @@
 END SUBROUTINE AEROSOL_METEO_CALC
 
+SUBROUTINE init_inca_para(nlon, nlat, nlev, klon, mpi_size, distrib_phys, nvertex, grid_type, communicator)
+  INTEGER :: nlon, nlat, nlev, klon, mpi_size, distrib_phys(:), communicator, nvertex, grid_type
+  CALL lmdz_inca_wrapper_abort
+END SUBROUTINE init_inca_para
+
 #endif

LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90

@@ -4 +4 @@
 
 #ifdef REPROBUS
-  USE CHEM_REP, ONLY: init_chem_rep_trac, itroprep
+  USE CHEM_REP
 #else
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+
+  IMPLICIT NONE
 
   ! TODO ugly temp solution until we properly wrap the REPROBUS code
@@ -39 +41 @@
   END SUBROUTINE init_chem_rep_xjour
 
+  SUBROUTINE finalize_reprobus
+    CALL lmdz_reprobus_wrapper_abort
+  END SUBROUTINE finalize_reprobus
+
+  SUBROUTINE init_reprobus_para(nlon, nlat, nlev, klon, mpi_size, distrib_phys, communicator)
+    INTEGER :: nlon, nlat, nlev, klon, mpi_size, distrib_phys(:), communicator
+    CALL lmdz_reprobus_wrapper_abort
+  END SUBROUTINE init_reprobus_para
+
+  SUBROUTINE chemini_rep(presnivs, pdtphys, annee_ref, day_ref, day_ini, start_time, itau_phy, io_lon, io_lat)
+    INTEGER :: presnivs, pdtphys, annee_ref, day_ref, day_ini, start_time, itau_phy, io_lon, io_lat
+    CALL lmdz_reprobus_wrapper_abort
+  END SUBROUTINE chemini_rep
+
+  SUBROUTINE chemtime_rep(it, date, tstep, itap)
+    INTEGER :: it, date, tstep, itap
+    CALL lmdz_reprobus_wrapper_abort
+  END SUBROUTINE chemtime_rep
+
+  SUBROUTINE coord_hyb_rep(paprs, pplay, aps, bps, ap, bp, cell_area)
+    REAL :: paprs(:,:), pplay(:,:), aps(:), bps(:), ap(:), bp(:), cell_area(:)
+    CALL lmdz_reprobus_wrapper_abort
+  END SUBROUTINE coord_hyb_rep
+
+  SUBROUTINE chemmain_rlong_1401(tr_seri, xlon, xlat, t_seri, pplay, paprs, pphi, pphis, presnivs, sh, debutphy)
+    REAL :: tr_seri(:,:,:), xlon(:), xlat(:), t_seri(:,:), pplay(:,:), paprs(:,:), pphi(:,:), pphis(:), presnivs(:), sh(:,:)
+    LOGICAL :: debutphy
+    CALL lmdz_reprobus_wrapper_abort
+  END SUBROUTINE chemmain_rlong_1401
+
 #endif
 END MODULE lmdz_reprobus_wrappers

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -107 +107 @@
     USE time_phylmdz_mod,  ONLY: ndays
     USE infotrac_phy,      ONLY: nqCO2
-    USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_xjour, d_q_rep, d_ql_rep, d_qi_rep, &
-                        ptrop, ttrop, ztrop, gravit, itroprep, Z1, Z2, fac, B
+    USE lmdz_reprobus_wrappers, ONLY: init_chem_rep_xjour, d_q_rep, d_ql_rep, d_qi_rep, &
+                        ptrop, ttrop, ztrop, gravit, itroprep, Z1, Z2, fac, B, chemini_rep, chemtime_rep, coord_hyb_rep
     USE strataer_local_var_mod
     USE strataer_emiss_mod, ONLY: strataer_emiss_init

LMDZ6/trunk/libf/phylmd/tracreprobus_mod.f90

@@ -16 +16 @@
          daynum, iter, &             ! jourjulien, iteration chimie
          pdel,&
-         d_q_rep,d_ql_rep,d_qi_rep
+         d_q_rep,d_ql_rep,d_qi_rep, chemmain_rlong_1401
     USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
     IMPLICIT NONE