Changeset 5118 for LMDZ6/branches/Amaury_dev/libf/phy_common

Timestamp:

Jul 24, 2024, 4:39:59 PM (6 months ago)

Author:

abarral

Message:

Replace iniprint.h by lmdz_iniprint.f90
(lint) along the way

Location:

LMDZ6/branches/Amaury_dev/libf/phy_common

Files:

• lmdz_phys_mpi_data.F90 (modified) (1 diff)
• lmdz_phys_omp_data.F90 (modified) (1 diff)
• lmdz_phys_para.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_mpi_data.F90

@@ -186 +186 @@
   USE lmdz_print_control, ONLY: lunout
   IMPLICIT NONE
-!  INCLUDE "iniprint.h" 
-  
     WRITE(lunout,*) 'ii_begin =', ii_begin
     WRITE(lunout,*) 'ii_end =', ii_end

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_omp_data.F90

@@ -110 +110 @@
   USE lmdz_print_control, ONLY: lunout
   IMPLICIT NONE
-!  INCLUDE "iniprint.h"
 
 !$OMP CRITICAL  

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

@@ -54 +54 @@
   USE lmdz_print_control, ONLY: lunout
   IMPLICIT NONE
-!    INCLUDE "iniprint.h"
- 
     REAL :: Test_Field1d_glo(klon_glo,nbp_lev)
     REAL :: tmp1d_glo(klon_glo,nbp_lev)