Changeset 5252 for LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90

Timestamp:

Oct 22, 2024, 2:09:45 PM (6 hours ago)

Author:

abarral

Message:

Wrap uses of cpp key REPROBUS and CPP_STRATAER
Add REPROBUS wrapper

File:

• LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90 (copied) (copied from LMDZ6/branches/Amaury_dev/libf/misc/lmdz_reprobus_wrappers.F90) (1 diff)

LMDZ6/trunk/libf/misc/lmdz_reprobus_wrappers.F90

@@ -8 +8 @@
 
   ! TODO ugly temp solution until we properly wrap the REPROBUS code
-  USE lmdz_dimensions, ONLY: iim, jjm
+  INCLUDE "dimensions.h"
   INTEGER :: itroprep(iim), iter, ndimozon
   REAL :: rsuntime(2), pdt_rep, daynum, solaireTIME, ptrop(iim), ttrop(iim), ztrop(iim), gravit, Z1, &