Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/create_etat0_unstruct_mod.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

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

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

@@ -305 +305 @@
     CALL pbl_surface_init( fder, snsrf, qsurf, tsoil )
 
-    IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) then
+    IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) THEN
      delta_tsurf = 0.
      beta_aridity = 0.