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

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

@@ -54 +54 @@
   !$OMP THREADPRIVATE(Request_vanleer)
 
-  !write(*,*) 'caladvtrac 58: entree'
+  !WRITE(*,*) 'caladvtrac 58: entree'
   ijbu = ij_begin
   ijeu = ij_end
@@ -107 +107 @@
 
   IF (iadvtr==iapp_tracvl) THEN
-    !write(*,*) 'caladvtrac 133'
+    !WRITE(*,*) 'caladvtrac 133'
     !$OMP MASTER
     CALL suspend_timer(timer_caldyn)
@@ -181 +181 @@
       CALL WriteField_u('wg1', wg_adv)
     END IF
-    !write(*,*) 'caladvtrac 185'
+    !WRITE(*,*) 'caladvtrac 185'
     CALL advtrac_loc(pbarug_adv, pbarvg_adv, wg_adv, &
             p_adv, massem_adv, q_adv, teta_adv, &
             pk_adv)
-    !write(*,*) 'caladvtrac 189'
+    !WRITE(*,*) 'caladvtrac 189'