Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/coagulate.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/coagulate.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/coagulate.F90

@@ -274 +274 @@
 !                     =(Vdry(k)*tr_t(ilon,ilev,k)+pdtcoag*num_dry)/( (1.+pdtcoag*denom)*Vdry(k) ) 
 !          with num_dry=...beta(i,j)*Vdry(i)*....
-!       so in old STRATAER (.not.flag_new_strat_compo), it was correct
+!       so in old STRATAER (.NOT.flag_new_strat_compo), it was correct
   ENDIF