Changeset 5075 for LMDZ6/trunk/libf/phylmd/Dust/read_dust.F
- Timestamp:
- Jul 19, 2024, 10:05:57 AM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/read_dust.F
r5073 r5075 3 3 USE mod_grid_phy_lmdz 4 4 USE mod_phys_lmdz_para 5 USE lmdz_netcdf, ONLY:nf90_get_var 5 6 IMPLICIT NONE 6 7 c 7 8 INCLUDE "dimensions.h" 8 9 INCLUDE "paramet.h" 9 INCLUDE "netcdf.inc"10 10 c 11 11 INTEGER step, nbjour … … 45 45 c 46 46 start(3)=step 47 c 48 ! status=NF_GET_VARA_DOUBLE(ncid1,varid1,start,count,dust_nc) 47 49 48 status=nf90_get_var(ncid1,varid1,dust_nc_glo,start,count) 50 c 49 51 50 ! call correctbid(iim,jjp1,dust_nc) 52 51 call correctbid(nbp_lon,nbp_lat,dust_nc_glo)
Note: See TracChangeset
for help on using the changeset viewer.