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

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

@@ -100 +100 @@
 !!
 !!   Control of the multiplication of no-trigger probabilities between calls 
-!! to the convection scheme. If multiply_proba_notrig is .false., then
+!! to the convection scheme. If multiply_proba_notrig is .FALSE., then
 !! proba_notrig is set to 1 at each CALL to alpale_th, so that only the last CALL
-!! plays a role in the triggering of convection. If it is .true., then propa_notrig 
+!! plays a role in the triggering of convection. If it is .TRUE., then propa_notrig
 !! is saved between calls to convection and is reset to 1 only after calling the 
 !! convection scheme.
@@ -108 +108 @@
 !! there are 3 calls to alpale_th between calls to the convection scheme, then the 
 !! probability of triggering convection will be 0.1 (= 1.-0.9) if 
-!! multiply_proba_notrig is .false. and 0.271 (= 1.-0.9^3) if multiply_proba_notrig 
-!! is .true.
+!! multiply_proba_notrig is .FALSE. and 0.271 (= 1.-0.9^3) if multiply_proba_notrig
+!! is .TRUE.
 !!
     IF (.NOT.multiply_proba_notrig) THEN