Changeset 5323 for LMDZ6/trunk/libf/misc

Timestamp:

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

Author:

abarral

Message:

[WIP] add missing reprobus & inca wrappers

Location:

LMDZ6/trunk/libf/misc

Files:

• lmdz_inca_wrappers.F90 (modified) (2 diffs)
• lmdz_reprobus_wrappers.F90 (modified) (2 diffs)

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