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

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

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

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

@@ -25 +25 @@
 contains
 
-  subroutine init_iophy_new(rlat,rlon)
+  SUBROUTINE init_iophy_new(rlat,rlon)
   USE dimphy, only: klon
   USE mod_phys_lmdz_para, only: gather, bcast, &
@@ -34 +34 @@
   USE print_control_mod, ONLY: lunout, prt_level
   USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
-#ifdef CPP_IOIPSL
   USE ioipsl, only: flio_dom_set
-#endif
   use wxios, only: wxios_domain_param, using_xios
   implicit none
@@ -141 +139 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   
-  subroutine histbeg_phy(name,itau0,zjulian,dtime,nhori,nid_day)
+  SUBROUTINE histbeg_phy(name,itau0,zjulian,dtime,nhori,nid_day)
   USE mod_phys_lmdz_para, only: is_sequential, jj_begin, jj_end, jj_nb
   use ioipsl, only: histbeg
@@ -165 +163 @@
 !$OMP END MASTER
   
-  end subroutine histbeg_phy
+  END SUBROUTINE  histbeg_phy
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -200 +198 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
-  subroutine histwrite2d_phy(nid,lpoint,name,itau,field)
+  SUBROUTINE histwrite2d_phy(nid,lpoint,name,itau,field)
   USE dimphy, only: klon
   USE mod_phys_lmdz_para, only: Gather_omp, grid1Dto2D_mpi, &
@@ -242 +240 @@
      else
       DO ip=1, npstn
-!     print*,'histwrite2d is_sequential npstn ip name nptabij',npstn,ip,name,nptabij(ip)
+!     PRINT*,'histwrite2d is_sequential npstn ip name nptabij',npstn,ip,name,nptabij(ip)
        IF(nptabij(ip)>=klon_mpi_begin.AND. &
           nptabij(ip)<=klon_mpi_end) THEN
@@ -255 +253 @@
     deallocate(fieldok)
 !$OMP END MASTER    
-  end subroutine histwrite2d_phy
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-  subroutine histwrite3d_phy(nid,lpoint,name,itau,field)
+  END SUBROUTINE  histwrite2d_phy
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE histwrite3d_phy(nid,lpoint,name,itau,field)
   USE dimphy, only: klon
   USE mod_phys_lmdz_para, only: Gather_omp, grid1Dto2D_mpi, &
@@ -317 +315 @@
   deallocate(fieldok)
 !$OMP END MASTER    
-  end subroutine histwrite3d_phy
+  END SUBROUTINE  histwrite3d_phy
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!