Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_dust.f90

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_dust.f90 (modified) (2 diffs)

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

@@ -3 +3 @@
   USE mod_grid_phy_lmdz
   USE mod_phys_lmdz_para
-  USE netcdf, ONLY : nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
+  USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
   IMPLICIT NONE
 
@@ -44 +44 @@
     status = nf90_get_var(ncid1, varid1, dust_nc_glo, start, count)
 
-    ! call correctbid(iim,jjp1,dust_nc)
-    call correctbid(nbp_lon, nbp_lat, dust_nc_glo)
+    ! CALL correctbid(iim,jjp1,dust_nc)
+    CALL correctbid(nbp_lon, nbp_lat, dust_nc_glo)
 
     !--upside down + physical grid