Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90

Timestamp:

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

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90

@@ -347 +347 @@
       fnday = -nday / float(day_step)
     endif
-    print *, 'fnday=', fnday
+    PRINT *, 'fnday=', fnday
     !     start_time doit etre en FRACTION DE JOUR
     start_time = time_ini / 24.
@@ -372 +372 @@
     ! Print out the actual date of the beginning of the simulation :
     CALL ju2ymds(daytime, year_print, month_print, day_print, sec_print)
-    print *, ' Time of beginning : ', &
+    PRINT *, ' Time of beginning : ', &
             year_print, month_print, day_print, sec_print
 
@@ -429 +429 @@
       fsens = -wtsurf * rcpd * rho(1)
       flat = -wqsurf * rlvtt * rho(1)
-      print *, 'Flux: ok_flux wtsurf wqsurf', ok_flux_surf, wtsurf, wqsurf
+      PRINT *, 'Flux: ok_flux wtsurf wqsurf', ok_flux_surf, wtsurf, wqsurf
     ENDIF
     PRINT*, 'Flux sol ', fsens, flat
@@ -440 +440 @@
     IF (ok_old_disvert) THEN
       CALL disvert0(pa, preff, ap, bp, dpres, presnivs, nivsigs, nivsig)
-      print *, 'On utilise disvert0'
+      PRINT *, 'On utilise disvert0'
       aps(1:llm) = 0.5 * (ap(1:llm) + ap(2:llm + 1))
       bps(1:llm) = 0.5 * (bp(1:llm) + bp(2:llm + 1))
@@ -447 +447 @@
     ELSE
       CALL disvert()
-      print *, 'On utilise disvert'
+      PRINT *, 'On utilise disvert'
       !       Nouvelle version disvert permettant d imposer ap,bp (modif L.Guez) MPL 18092012
       !       Dans ce cas, on lit ap,bp dans le fichier hybrid.txt
@@ -464 +464 @@
         IF (trouve_700 .AND. play(l)<=70000) THEN
           llm700 = l
-          print *, 'llm700,play=', llm700, play(l) / 100.
+          PRINT *, 'llm700,play=', llm700, play(l) / 100.
           trouve_700 = .FALSE.
         endif
@@ -750 +750 @@
                 ! Print out the actual date of the beginning of the simulation :
                 CALL ju2ymds(daytime, an, mois, jour, heure)
-        print *, ' Time of beginning : y m d h', an, mois,jour, heure/3600.
+        PRINT *, ' Time of beginning : y m d h', an, mois,jour, heure/3600.
 
         day = int(daytime)
@@ -844 +844 @@
                 !---------------------------------------------------------------------
                 IF (prt_level>=1) THEN
-                print *, ' avant physiq : -------- day time ', day, time
+                PRINT *, ' avant physiq : -------- day time ', day, time
                         WRITE(*, *) 'firstcall,lastcall,phis', &
                 firstcall, lastcall, phis
@@ -1019 +1019 @@
 
                 IF (prt_level>=3) THEN
-                print *, &
+                PRINT *, &
                 'physiq-> temp(1),dt_phys(1),d_t_adv(1),dt_cooling(1) ', &
                 temp(1), dt_phys(1), d_t_adv(1), dt_cooling(1)