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

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

@@ -170 +170 @@
 !!! for SPLA
 !!!JEend
-!  print*,'cvltr coef lessivage convectif', ccntrAA_coef,ccntrENV_coef,coefcoli
+!  PRINT*,'cvltr coef lessivage convectif', ccntrAA_coef,ccntrENV_coef,coefcoli
 
 !JE20140724>>
@@ -819 +819 @@
 
 ! test de conservation du traceur
-!print*,"_____________________________________________________________"
-!print*,"                                                             "
+!PRINT*,"_____________________________________________________________"
+!PRINT*,"                                                             "
 !      conserv=0.
 !      conservMA=0.