Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/fluxstokenc_p.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/dyn3dmem/fluxstokenc_p.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/fluxstokenc_p.f90

@@ -44 +44 @@
 
 
-  !write(*,*) 'caladvtrac 58: entree'
+  !WRITE(*,*) 'caladvtrac 58: entree'
   ijbu = ij_begin
   ijeu = ij_end
@@ -99 +99 @@
 
   IF (pasflx==(iphysiq * istphy)) THEN
-    !write(*,*) 'caladvtrac 133'
+    !WRITE(*,*) 'caladvtrac 133'
     !$OMP MASTER
     CALL suspend_timer(timer_caldyn)