Changeset 5249 for LMDZ6/trunk/libf/dyn3d/guide_mod.F90
- Timestamp:
- Oct 22, 2024, 11:35:08 AM (5 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/guide_mod.F90
r5084 r5249 1654 1654 USE comvert_mod, ONLY: presnivs 1655 1655 use netcdf95, only: nf95_def_var, nf95_put_var 1656 use netcdf, only: nf90_float, nf90_def_var 1656 use netcdf, only: nf90_float, nf90_def_var, nf90_put_var 1657 1657 1658 1658 IMPLICIT NONE … … 1713 1713 1714 1714 ! Enregistrement des variables dimensions 1715 #ifdef NC_DOUBLE 1716 ierr = NF_PUT_VAR_DOUBLE(nid,vid_lonu,rlonu*180./pi) 1717 ierr = NF_PUT_VAR_DOUBLE(nid,vid_lonv,rlonv*180./pi) 1718 ierr = NF_PUT_VAR_DOUBLE(nid,vid_latu,rlatu*180./pi) 1719 ierr = NF_PUT_VAR_DOUBLE(nid,vid_latv,rlatv*180./pi) 1720 ierr = NF_PUT_VAR_DOUBLE(nid,vid_lev,presnivs) 1721 ierr = NF_PUT_VAR_DOUBLE(nid,vid_cu,cu) 1722 ierr = NF_PUT_VAR_DOUBLE(nid,vid_cv,cv) 1723 ierr = NF_PUT_VAR_DOUBLE(nid,vid_au,alpha_u) 1724 ierr = NF_PUT_VAR_DOUBLE(nid,vid_av,alpha_v) 1725 #else 1726 ierr = NF_PUT_VAR_REAL(nid,vid_lonu,rlonu*180./pi) 1727 ierr = NF_PUT_VAR_REAL(nid,vid_lonv,rlonv*180./pi) 1728 ierr = NF_PUT_VAR_REAL(nid,vid_latu,rlatu*180./pi) 1729 ierr = NF_PUT_VAR_REAL(nid,vid_latv,rlatv*180./pi) 1730 ierr = NF_PUT_VAR_REAL(nid,vid_lev,presnivs) 1731 ierr = NF_PUT_VAR_REAL(nid,vid_cu,cu) 1732 ierr = NF_PUT_VAR_REAL(nid,vid_cv,cv) 1733 ierr = NF_PUT_VAR_REAL(nid,vid_au,alpha_u) 1734 ierr = NF_PUT_VAR_REAL(nid,vid_av,alpha_v) 1735 #endif 1715 1716 ierr = nf90_put_var(nid, vid_lonu, rlonu * 180. / pi) 1717 ierr = nf90_put_var(nid, vid_lonv, rlonv * 180. / pi) 1718 ierr = nf90_put_var(nid, vid_latu, rlatu * 180. / pi) 1719 ierr = nf90_put_var(nid, vid_latv, rlatv * 180. / pi) 1720 ierr = nf90_put_var(nid, vid_lev, presnivs) 1721 ierr = nf90_put_var(nid, vid_cu, cu) 1722 ierr = nf90_put_var(nid, vid_cv, cv) 1723 ierr = nf90_put_var(nid, vid_au, alpha_u) 1724 ierr = nf90_put_var(nid, vid_av, alpha_v) 1725 1726 1736 1727 call nf95_put_var(nid, varid_alpha_t, alpha_t) 1737 1728 call nf95_put_var(nid, varid_alpha_q, alpha_q) … … 1808 1799 1809 1800 1810 #ifdef NC_DOUBLE 1811 ierr = NF_PUT_VARA_DOUBLE(nid,varid,start,count,field2) 1812 #else 1813 ierr = NF_PUT_VARA_REAL(nid,varid,start,count,field2) 1814 #endif 1815 1801 ierr = nf90_put_var(nid, varid, field2, start, count) 1816 1802 ierr = NF_CLOSE(nid) 1817 1803
Note: See TracChangeset
for help on using the changeset viewer.