Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phydev/phys_state_var_mod.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/phydev/phys_state_var_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phydev/phys_state_var_mod.F90

@@ -19 +19 @@
 !  use dimphy, ONLY: klon
 
-!  if (.not.allocated(rlat)) then
+!  if (.not.allocated(rlat)) THEN
 !    ALLOCATE(rlat(klon),rlon(klon))
 !  else
-!    write(*,*) "phys_state_var_init: warning, rlat already allocated"
+!    WRITE(*,*) "phys_state_var_init: warning, rlat already allocated"
 !  endif