Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_mod.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/wx_pbl_mod.F90 (modified) (1 diff)

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

@@ -450 +450 @@
 
 !!!! DO j = 1,knon
-!!!!  IF (mod(j,20) .eq.0) THEN
+!!!!  IF (mod(j,20) .EQ.0) THEN
 !!!!   print *, '   j     dd_QQ       QQ_b  dd_HQphiQ  dd_HQphiT   dd_HQRn   HQphiQ_b   HQphiT_b     HQRn_b '
 !!!!  ENDIF