Changeset 5113 for LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90

Timestamp:

Jul 24, 2024, 1:17:08 PM (3 months ago)

Author:

abarral

Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d/caladvtrac.F90

@@ -84 +84 @@
       ENDDO
 
-      ! !write(*,*) 'caladvtrac 87'
+      !write(*,*) 'caladvtrac 87'
       CALL qminimum(q, nqtot, finmasse)
-      ! !write(*,*) 'caladvtrac 89'
+      !write(*,*) 'caladvtrac 89'
 
       CALL SCOPY   (ip1jmp1 * llm, masse, 1, finmasse, 1)