Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.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/dyn3d_common/diagedyn.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.f90

@@ -273 +273 @@
   ! ===================================
   !
-  IF ( (idiag2>0) .and. (pas(idiag2) /= 0) ) THEN
+  IF ( (idiag2>0) .AND. (pas(idiag2) /= 0) ) THEN
     d_h_vcol  = (h_vcol_tot - h_vcol_pre(idiag2) )/dtime
     d_h_dair = (h_dair_tot- h_dair_pre(idiag2))/dtime