Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phy_common

Timestamp:

Jul 23, 2024, 3:29:36 PM (2 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]

Location:

LMDZ6/branches/Amaury_dev/libf/phy_common

Files:

• abort_physic.F90 (modified) (3 diffs)
• ioipsl_getin_p_mod.F90 (modified) (1 diff)
• mod_phys_lmdz_mpi_data.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phy_common/abort_physic.F90

@@ -2 +2 @@
       SUBROUTINE abort_physic(modname, message, ierr)
      
-#ifdef CPP_IOIPSL
       USE IOIPSL
-#else
-! if not using IOIPSL, we still need to use (a local version of) getin_dump
-      USE ioipsl_getincom
-#endif
       USE mod_phys_lmdz_para
       USE print_control_mod, ONLY: lunout
@@ -24 +19 @@
 
       write(lunout,*) 'in abort_physic'
-#ifdef CPP_IOIPSL
 !$OMP MASTER
       CALL histclo
@@ -32 +26 @@
       endif
 !$OMP END MASTER
-#endif
 
       write(lunout,*) 'Stopping in ', modname

LMDZ6/branches/Amaury_dev/libf/phy_common/ioipsl_getin_p_mod.F90

@@ -5 +5 @@
 ! To use getin in a parallel context
 !---------------------------------------------------------------------
-#ifdef CPP_IOIPSL
 USE ioipsl, ONLY: getin
-#else
-USE ioipsl_getincom, ONLY: getin
-#endif
 USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
 USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_mpi_data.F90

@@ -96 +96 @@
     IF (mpi_rank == 0) THEN
       mpi_master = 0
-      is_mpi_root = .true.
+      is_mpi_root = .TRUE.
     ENDIF