Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phydev/callphysiq_mod.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks 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/dynphy_lonlat/phydev/callphysiq_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phydev/callphysiq_mod.F90

@@ -27 +27 @@
   INTEGER,INTENT(IN) :: nqtot ! number of tracers
   CHARACTER(len=*),INTENT(IN) :: tname(nqtot) ! tracer names
-  LOGICAL,INTENT(IN) :: debut_split ! .true. if very first CALL to physics
-  LOGICAL,INTENT(IN) :: lafin_split ! .true. if last CALL to physics
+  LOGICAL,INTENT(IN) :: debut_split ! .TRUE. if very first CALL to physics
+  LOGICAL,INTENT(IN) :: lafin_split ! .TRUE. if last CALL to physics
   REAL,INTENT(IN) :: JD_cur ! Julian day
   REAL,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day)