Changeset 5113 for LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90

Timestamp:

Jul 24, 2024, 1:17:08 PM (2 months ago)

Author:

abarral

Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

File:

• LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phydev/iophy.F90

@@ -3 +3 @@
 module iophy
 
-  ! abd  REAL,private,allocatable,dimension(:),save :: io_lat
-  ! abd  REAL,private,allocatable,dimension(:),save :: io_lon
+  ! abd  REAL,PRIVATE,allocatable,dimension(:),save :: io_lat
+  ! abd  REAL,PRIVATE,allocatable,dimension(:),save :: io_lon
   REAL, allocatable, dimension(:), save :: io_lat
   REAL, allocatable, dimension(:), save :: io_lon
@@ -35 +35 @@
     USE ioipsl, only: flio_dom_set
     use wxios, only: wxios_domain_param, using_xios
-    implicit none
+    IMPLICIT NONE
     real, dimension(klon), intent(in) :: rlon
     real, dimension(klon), intent(in) :: rlat
@@ -143 +143 @@
     USE lmdz_print_control, ONLY: prt_level, lunout
     USE lmdz_grid_phy, ONLY: nbp_lon
-    implicit none
+    IMPLICIT NONE
 
     character*(*), intent(IN) :: name
@@ -205 +205 @@
     USE lmdz_grid_phy, ONLY: nbp_lon
     USE lmdz_abort_physic, ONLY: abort_physic
-    implicit none
+    IMPLICIT NONE
 
     integer, intent(in) :: nid
@@ -265 +265 @@
     USE lmdz_grid_phy, ONLY: nbp_lon
     USE lmdz_abort_physic, ONLY: abort_physic
-    implicit none
+    IMPLICIT NONE
 
     integer, intent(in) :: nid