Changeset 5089 for LMDZ6/branches/Amaury_dev/libf
- Timestamp:
- Jul 20, 2024, 5:25:07 PM (7 months ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.F
r5082 r5089 62 62 INCLUDE "iniprint.h" 63 63 64 !#ifdef CPP_EARTH65 ! INCLUDE "../phylmd/YOMCST.h"66 ! INCLUDE "../phylmd/YOETHF.h"67 !#endif68 64 ! Ehouarn: for now set these parameters to what is in Earth physics... 69 65 ! (cf ../phylmd/suphel.h) … … 154 150 155 151 156 !#ifdef CPP_EARTH157 152 IF (planet_type=="earth") THEN 158 153 … … 335 330 ENDIF ! of if (planet_type=="earth") 336 331 !#endif 337 ! #endif of #ifdef CPP_EARTH 338 RETURN 332 RETURN 339 333 END -
LMDZ6/branches/Amaury_dev/libf/dyn3dmem/parallel_lmdz.F90
r5082 r5089 402 402 character(len=6),parameter :: type_ocean="dummy" 403 403 #endif 404 ! #endif of #ifdef CPP_EARTH405 404 406 405 include "dimensions.h"
Note: See TracChangeset
for help on using the changeset viewer.