Changeset 5252 for LMDZ6/trunk/libf/misc

Timestamp:

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

Author:

abarral

Message:

Wrap uses of cpp key REPROBUS and CPP_STRATAER
Add REPROBUS wrapper

Location:

LMDZ6/trunk/libf/misc

Files:

• TEMP_FOR_STRATAER_REMOVE_ONCE_WE_MAKE_MODULE_OUT_OF_YOMCST_DOT_H.F90 (added)
• TEMP_FOR_STRATAER_REMOVE_ONCE_WE_MAKE_MODULE_OUT_OF_YOMCST_DOT_H___PARKIND1.F90 (added)
• 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, &