Changeset 5112 for LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_write_field_phy.f90

Timestamp:

Jul 24, 2024, 12:45:32 PM (12 months ago)

Author:

abarral

Message:

Rename modules in phy_common from *_mod > lmdz_*

File:

• LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_write_field_phy.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phy_common/write_field_phy.f90) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_write_field_phy.f90

@@ -1 @@
-
 ! $Id$
 
-MODULE write_field_phy
+MODULE lmdz_write_field_phy
 
   ! Dump a field on the global (nbp_lon by nbp_lat) physics grid
-  
-  CONTAINS 
- 
-    SUBROUTINE WriteField_phy(name,Field,ll)
+
+CONTAINS
+
+  SUBROUTINE WriteField_phy(name, Field, ll)
     USE lmdz_phys_para, ONLY: klon_omp, is_mpi_root, &
-                                  Gather
+            Gather
     USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, klon_glo, &
-                                 Grid1Dto2D_glo
+            Grid1Dto2D_glo
     USE Write_Field, ONLY: WriteField
-    
+
     IMPLICIT NONE
 
-    CHARACTER(len=*),INTENT(IN) :: name
-    INTEGER,INTENT(IN) :: ll
-    REAL,INTENT(IN) :: Field(klon_omp,ll)
+    CHARACTER(len = *), INTENT(IN) :: name
+    INTEGER, INTENT(IN) :: ll
+    REAL, INTENT(IN) :: Field(klon_omp, ll)
 
-    real, dimension(klon_glo,ll):: New_Field
-    real, dimension(nbp_lon,nbp_lat,ll):: Field_2d
+    real, dimension(klon_glo, ll) :: New_Field
+    real, dimension(nbp_lon, nbp_lat, ll) :: Field_2d
 
-    CALL Gather(Field,New_Field)
-!$OMP MASTER
-    IF (is_mpi_root) THEN       
-      CALL Grid1Dto2D_glo(New_Field,Field_2D)
-      CALL WriteField(name,Field_2d)
+    CALL Gather(Field, New_Field)
+    !$OMP MASTER
+    IF (is_mpi_root) THEN
+      CALL Grid1Dto2D_glo(New_Field, Field_2D)
+      CALL WriteField(name, Field_2d)
     ENDIF
-!$OMP END MASTER
+    !$OMP END MASTER
 
-  
-   END SUBROUTINE WriteField_phy
- 
- END MODULE write_field_phy
+  END SUBROUTINE WriteField_phy
+
+END MODULE lmdz_write_field_phy