Changeset 5084 for LMDZ6/trunk/libf/phylmd/Dust/read_dust.F

Timestamp:

Jul 19, 2024, 6:40:44 PM (4 months ago)

Author:

Laurent Fairhead

Message:

Reverting to r4065. Updating fortran standard broke too much stuff. Will do it by smaller chunks
AB, LF

File:

• LMDZ6/trunk/libf/phylmd/Dust/read_dust.F (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/read_dust.F

@@ -3 +3 @@
       USE mod_grid_phy_lmdz
       USE mod_phys_lmdz_para
-      USE lmdz_netcdf, ONLY:nf90_get_var
       IMPLICIT NONE 
 c
       INCLUDE "dimensions.h"
       INCLUDE "paramet.h"
+      INCLUDE "netcdf.inc"
 c
       INTEGER step, nbjour
@@ -45 +45 @@
 c
       start(3)=step
-
-      status=nf90_get_var(ncid1,varid1,dust_nc_glo,start,count)
-
+c
+#ifdef NC_DOUBLE
+!      status=NF_GET_VARA_DOUBLE(ncid1,varid1,start,count,dust_nc)
+      status=NF_GET_VARA_DOUBLE(ncid1,varid1,start,count,dust_nc_glo)
+#else
+!      status=NF_GET_VARA_REAL(ncid1,varid1,start,count,dust_nc)
+      status=NF_GET_VARA_REAL(ncid1,varid1,start,count,dust_nc_glo)
+#endif
+c
 !      call correctbid(iim,jjp1,dust_nc)
       call correctbid(nbp_lon,nbp_lat,dust_nc_glo)