Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_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/phylmd/phytrac_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_mod.F90

@@ -426 +426 @@
       !$OMP MASTER
       convscav_omp = .FALSE.
-      call getin('convscav', convscav_omp)
+      CALL getin('convscav', convscav_omp)
       iflag_vdf_trac_omp = 1
-      call getin('iflag_vdf_trac', iflag_vdf_trac_omp)
+      CALL getin('iflag_vdf_trac', iflag_vdf_trac_omp)
       iflag_con_trac_omp = 1
-      call getin('iflag_con_trac', iflag_con_trac_omp)
+      CALL getin('iflag_con_trac', iflag_con_trac_omp)
       iflag_the_trac_omp = 1
-      call getin('iflag_the_trac', iflag_the_trac_omp)
+      CALL getin('iflag_the_trac', iflag_the_trac_omp)
       !$OMP END MASTER
       !$OMP BARRIER
@@ -449 +449 @@
       !$OMP MASTER
       iflag_lscav_omp = 1
-      call getin('iflag_lscav', iflag_lscav_omp)
+      CALL getin('iflag_lscav', iflag_lscav_omp)
       ccntrAA_omp = 1
       ccntrENV_omp = 1.
       coefcoli_omp = 0.001
-      call getin('ccntrAA', ccntrAA_omp)
-      call getin('ccntrENV', ccntrENV_omp)
-      call getin('coefcoli', coefcoli_omp)
+      CALL getin('ccntrAA', ccntrAA_omp)
+      CALL getin('ccntrENV', ccntrENV_omp)
+      CALL getin('coefcoli', coefcoli_omp)
       !$OMP END MASTER
       !$OMP BARRIER