- Timestamp:
- May 18, 2022, 2:58:08 PM (3 years ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/infotrac.F90
r4143 r4153 132 132 INTEGER, SAVE, ALLOCATABLE :: conv_flg(:), & !--- Convection activation ; needed for INCA (nbtr) 133 133 pbl_flg(:) !--- Boundary layer activation ; needed for INCA (nbtr) 134 LOGICAL, PARAMETER :: lOldCode = . TRUE.134 LOGICAL, PARAMETER :: lOldCode = .FALSE. 135 135 136 136 CONTAINS -
LMDZ6/trunk/libf/phylmdiso/isotopes_mod.F90
r4149 r4153 12 12 !--- Isotopes-specific routines are in isotopes_routines_mod to avoid circular dependencies with isotopes_verif_mod. 13 13 14 LOGICAL, PARAMETER :: lOldCode=. TRUE.14 LOGICAL, PARAMETER :: lOldCode=.FALSE. 15 15 16 16 !--- Isotopes indices (in [1,niso] ; non-existing => 0 index)
Note: See TracChangeset
for help on using the changeset viewer.