Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_qso.f90

Timestamp:

Aug 3, 2024, 2:56:58 PM (7 weeks ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_qso.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_qso.f90

@@ -378 +378 @@
 
       IF(ikm<0.OR.ik0<0.OR.ikp<0)THEN
-       print *,"CRASH1 in sisvat_qso.f on pixel (i,j,n)", &
+       PRINT *,"CRASH1 in sisvat_qso.f on pixel (i,j,n)", &
              ii__SV(ikl),jj__SV(ikl),nn__SV(ikl)
-       print *,"decrease your time step or increase ntphys "// &
+       PRINT *,"decrease your time step or increase ntphys "// &
              "and ntdiff in time_steps.f"
        stop
@@ -424 +424 @@
 
       IF(ik0<0.OR.ikp<0)THEN
-       print *,"CRASH2 in sisvat_qso.f on pixel (i,j,n)", &
+       PRINT *,"CRASH2 in sisvat_qso.f on pixel (i,j,n)", &
              ii__SV(ikl),jj__SV(ikl),nn__SV(ikl)
-       print *,"decrease your time step or increase ntphys "// &
+       PRINT *,"decrease your time step or increase ntphys "// &
              "and ntdiff in time_steps.f"
        stop