Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/infotrac.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (4 months ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/infotrac.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/infotrac.F90

@@ -196 +196 @@
     SELECT CASE(type_trac)
     CASE('inca', 'inco')
-      IF (CPPKEY_INCA) THEN
+      IF (.NOT. CPPKEY_INCA) THEN
         CALL abort_gcm(modname, 'You must add cpp key INCA and compile with INCA code', 1)
       END IF
@@ -228 +228 @@
     IF(fType == 1 .AND. ANY(['inca', 'inco']==type_trac)) THEN         !=== FOUND OLD STYLE INCA "traceur.def"
       !---------------------------------------------------------------------------------------------------------------------------
-      IF (CPPKEY_INCA) THEN
         nqo = SIZE(tracers) - nqCO2
         CALL Init_chem_inca_trac(nqINCA)                               !--- Get nqINCA from INCA
@@ -259 +258 @@
         IF(setGeneration(tracers)) CALL abort_gcm(modname, 'See above', 1) !- SET FIELDS %iGeneration, %gen0Name
         DEALLOCATE(had, hadv_inca, vad, vadv_inca, conv_flg_inca, pbl_flg_inca, solsym_inca)
-      END IF
       !---------------------------------------------------------------------------------------------------------------------------
     ELSE                                                              !=== OTHER CASES (OLD OR NEW FORMAT, NO INCA MODULE)
@@ -268 +266 @@
       nbtr = nqtrue - COUNT(delPhase(tracers(:)%gen0Name) == 'H2O' &
               .AND. tracers(:)%component == 'lmdz') !--- Number of tracers passed to phytrac
-      IF (CPPKEY_INCA) THEN
         nqINCA = COUNT(tracers(:)%component == 'inca')
-      END IF
       lerr = getKey('hadv', hadv, ky = tracers(:)%keys)
       lerr = getKey('vadv', vadv, ky = tracers(:)%keys)