Changeset 5339 for LMDZ6/trunk/libf

Timestamp:

Nov 20, 2024, 10:08:02 AM (2 months ago)

Author:

Laurent Fairhead

Message:

Getting rid of dependance to dynamics, needs some more work

File:

• LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90

@@ -6 +6 @@
   USE CHEM_REP
 #else
-  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+
 
   IMPLICIT NONE
 
   ! TODO ugly temp solution until we properly wrap the REPROBUS code
-  INTEGER :: itroprep(iim), iter, ndimozon
-  REAL :: rsuntime(2), pdt_rep, daynum, solaireTIME, ptrop(iim), ttrop(iim), ztrop(iim), gravit, Z1, &
-          Z2, fac, B
-  REAL, DIMENSION(iim, jjm) :: pdel, d_q_rep, d_ql_rep, d_qi_rep, rch42d, rn2o2d, rcfc112d, rcfc122d
+  INTEGER :: itroprep(1)
+  INTEGER ::  iter, ndimozon
+  REAL :: rsuntime(2), pdt_rep, daynum, solaireTIME, gravit, Z1, Z2, fac, B
+  REAL :: ptrop(1), ttrop(1), ztrop(1)
+  REAL, DIMENSION(1, 1) :: pdel, d_q_rep, d_ql_rep, d_qi_rep, rch42d, rn2o2d, rcfc112d, rcfc122d
   LOGICAL :: ok_suntime, ok_rtime2d