Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs_new.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/Dust/condsurfs_new.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs_new.f90

@@ -43 +43 @@
   IF (jour<0 .OR. jour>(366 - 1)) THEN
     PRINT*, 'Le jour demande n est pas correcte:', jour
-    print *, 'JE: FORCED TO CONTINUE (emissions have&
+    PRINT *, 'JE: FORCED TO CONTINUE (emissions have&
             & to be longer than 1 year!!!! )'
     ! CALL ABORT
@@ -74 +74 @@
     IF (ierr /= nf90_noerr) THEN
       PRINT*, 'Pb de lecture pour les sources so2 low'
-      print *, 'JE klon, jour, debut ,epais ', klon_glo, jour, debut, epais
+      PRINT *, 'JE klon, jour, debut ,epais ', klon_glo, jour, debut, epais
       CALL HANDLE_ERR(ierr)
-      print *, 'error ierr= ', ierr
+      PRINT *, 'error ierr= ', ierr
       CALL exit(1)
     ENDIF
@@ -183 +183 @@
     !                  READING VOLCANIC EMISSIONS
     !=======================================================================
-    print *, '   ***      READING VOLCANIC EMISSIONS   ***   '
-    print *, ' Jour = ', jour
+    PRINT *, '   ***      READING VOLCANIC EMISSIONS   ***   '
+    PRINT *, ' Jour = ', jour
     ierr = nf90_open ("sulphur_emissions_volc.nc", nf90_nowrite, nid)
     IF (ierr/=nf90_noerr) THEN
@@ -201 +201 @@
       CALL exit(1)
     ENDIF
-    print *, 'SO2 volc cont (in read) = ', SUM(lmt_so2volc_cont_glo), &
+    PRINT *, 'SO2 volc cont (in read) = ', SUM(lmt_so2volc_cont_glo), &
             MINVAL(lmt_so2volc_cont_glo), MAXVAL(lmt_so2volc_cont_glo)
     ! lmt_so2volc(:)=0.0
@@ -224 +224 @@
     ENDIF
     ! lmt_so2volc_expl(:)=0.0
-    print *, 'SO2 volc expl (in read) = ', SUM(lmt_so2volc_expl_glo), &
+    PRINT *, 'SO2 volc expl (in read) = ', SUM(lmt_so2volc_expl_glo), &
             MINVAL(lmt_so2volc_expl_glo), MAXVAL(lmt_so2volc_expl_glo)