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

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

@@ -54 +54 @@
 
 
-    ! print *,'beforebidcor u10m_nc', u10m_nc(1,jjp1)
-    ! print *,'beforebidcor v10m_nc', v10m_nc(1,jjp1)
+    ! PRINT *,'beforebidcor u10m_nc', u10m_nc(1,jjp1)
+    ! PRINT *,'beforebidcor v10m_nc', v10m_nc(1,jjp1)
 
-    !  print *,status
+    !  PRINT *,status
     ! CALL correctbid(iim,jjp1,u10m_nc)
     ! CALL correctbid(iim,jjp1,v10m_nc)
@@ -63 +63 @@
     CALL correctbid(nbp_lon, nbp_lat, v10m_nc_glo)
 
-    ! print *,'afterbidcor u10m_nc', u10m_nc(1,jjp1)
-    ! print *,'afterbidcor v10m_nc', v10m_nc(1,jjp1)
+    ! PRINT *,'afterbidcor u10m_nc', u10m_nc(1,jjp1)
+    ! PRINT *,'afterbidcor v10m_nc', v10m_nc(1,jjp1)
 
     !--upside down + physical grid
@@ -82 +82 @@
         v10m_ec_glo(ig) = v10m_nc_glo(i, nbp_lat + 1 - j)
         ig = ig + 1
-        ! print *,u10m_ec(ig) ,v10m_ec(ig)
+        ! PRINT *,u10m_ec(ig) ,v10m_ec(ig)
       ENDDO
     ENDDO
@@ -96 +96 @@
   CALL scatter(v10m_ec_glo, v10m_ec)
 
-  ! print *,'JE  tamagno viento ig= ', ig
-  ! print *,'READ_VENT U = ',SUM(u10m_ec),MINVAL(u10m_ec),
+  ! PRINT *,'JE  tamagno viento ig= ', ig
+  ! PRINT *,'READ_VENT U = ',SUM(u10m_ec),MINVAL(u10m_ec),
   ! .                                      MAXVAL(u10m_ec)
-  !  print *,'READ_VENT V = ',SUM(v10m_ec),MINVAL(v10m_ec),
+  !  PRINT *,'READ_VENT V = ',SUM(v10m_ec),MINVAL(v10m_ec),
   ! .                                      MAXVAL(v10m_ec)
-  !   print *,'u v 1 ', u10m_ec(1),v10m_ec(1)
-  !   print *,'u v klon ', u10m_ec(klon),v10m_ec(klon)
+  !   PRINT *,'u v 1 ', u10m_ec(1),v10m_ec(1)
+  !   PRINT *,'u v klon ', u10m_ec(klon),v10m_ec(klon)
 
 END SUBROUTINE read_vent