Changeset 2572
- Timestamp:
- Oct 25, 2021, 9:57:46 AM (3 years ago)
- Location:
- trunk/LMDZ.COMMON/libf
- Files:
-
- 3 edited
-
dyn3d/guide_mod.F90 (modified) (3 diffs)
-
dyn3d_common/grilles_gcm_netcdf_sub.F90 (modified) (6 diffs)
-
dyn3dpar/guide_p_mod.F90 (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3d/guide_mod.F90
r1650 r2572 1150 1150 if (guide_modele) then 1151 1151 #ifdef NC_DOUBLE 1152 status=NF_GET_VARA_DOUBLE(ncidpl,varidap, 1,nlevnc,apnc)1153 status=NF_GET_VARA_DOUBLE(ncidpl,varidbp, 1,nlevnc,bpnc)1152 status=NF_GET_VARA_DOUBLE(ncidpl,varidap,[1],[nlevnc],apnc) 1153 status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,[1],[nlevnc],bpnc) 1154 1154 #else 1155 status=NF_GET_VARA_REAL(ncidpl,varidap, 1,nlevnc,apnc)1156 status=NF_GET_VARA_REAL(ncidpl,varidbp, 1,nlevnc,bpnc)1155 status=NF_GET_VARA_REAL(ncidpl,varidap,[1],[nlevnc],apnc) 1156 status=NF_GET_VARA_REAL(ncidpl,varidbp,[1],[nlevnc],bpnc) 1157 1157 #endif 1158 1158 else 1159 1159 #ifdef NC_DOUBLE 1160 status=NF_GET_VARA_DOUBLE(ncidpl,varidpl, 1,nlevnc,apnc)1160 status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,[1],[nlevnc],apnc) 1161 1161 #else 1162 status=NF_GET_VARA_REAL(ncidpl,varidpl, 1,nlevnc,apnc)1162 status=NF_GET_VARA_REAL(ncidpl,varidpl,[1],[nlevnc],apnc) 1163 1163 #endif 1164 1164 apnc=apnc*100.! conversion en Pascals … … 1387 1387 if (guide_modele) then 1388 1388 #ifdef NC_DOUBLE 1389 status=NF_GET_VARA_DOUBLE(ncidpl,varidap, 1,nlevnc,apnc)1390 status=NF_GET_VARA_DOUBLE(ncidpl,varidbp, 1,nlevnc,bpnc)1389 status=NF_GET_VARA_DOUBLE(ncidpl,varidap,[1],[nlevnc],apnc) 1390 status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,[1],[nlevnc],bpnc) 1391 1391 #else 1392 status=NF_GET_VARA_REAL(ncidpl,varidap, 1,nlevnc,apnc)1393 status=NF_GET_VARA_REAL(ncidpl,varidbp, 1,nlevnc,bpnc)1392 status=NF_GET_VARA_REAL(ncidpl,varidap,[1],[nlevnc],apnc) 1393 status=NF_GET_VARA_REAL(ncidpl,varidbp,[1],[nlevnc],bpnc) 1394 1394 #endif 1395 1395 else 1396 1396 #ifdef NC_DOUBLE 1397 status=NF_GET_VARA_DOUBLE(ncidpl,varidpl, 1,nlevnc,apnc)1397 status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,[1],[nlevnc],apnc) 1398 1398 #else 1399 status=NF_GET_VARA_REAL(ncidpl,varidpl, 1,nlevnc,apnc)1399 status=NF_GET_VARA_REAL(ncidpl,varidpl,[1],[nlevnc],apnc) 1400 1400 #endif 1401 1401 apnc=apnc*100.! conversion en Pascals … … 1560 1560 1561 1561 ! Creation des variables dimensions 1562 ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1, id_lonu,vid_lonu)1563 ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1, id_lonv,vid_lonv)1564 ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1, id_latu,vid_latu)1565 ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1, id_latv,vid_latv)1566 ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1, id_lev,vid_lev)1562 ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,[id_lonu],vid_lonu) 1563 ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1,[id_lonv],vid_lonv) 1564 ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1,[id_latu],vid_latu) 1565 ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1,[id_latv],vid_latv) 1566 ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1,[id_lev],vid_lev) 1567 1567 ierr=NF_DEF_VAR(nid,"cu",NF_FLOAT,2,(/id_lonu,id_latu/),vid_cu) 1568 1568 ierr=NF_DEF_VAR(nid,"au",NF_FLOAT,2,(/id_lonu,id_latu/),vid_au) -
trunk/LMDZ.COMMON/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90
r1441 r2572 85 85 86 86 ! Longitudes en u 87 status=NF_DEF_VAR(ncid_out,'lonu',NF_FLOAT,1, out_lonudim, out_lonuid)87 status=NF_DEF_VAR(ncid_out,'lonu',NF_FLOAT,1,[out_lonudim], out_lonuid) 88 88 CALL handle_err(status) 89 89 status=NF_PUT_ATT_TEXT(ncid_out,out_lonuid,'units', 12,'degrees_east') … … 91 91 92 92 ! Longitudes en v 93 status=NF_DEF_VAR(ncid_out,'lonv',NF_FLOAT,1, out_lonvdim, out_lonvid)93 status=NF_DEF_VAR(ncid_out,'lonv',NF_FLOAT,1,[out_lonvdim], out_lonvid) 94 94 CALL handle_err(status) 95 95 status=NF_PUT_ATT_TEXT(ncid_out,out_lonvid,'units', 12,'degrees_east') … … 97 97 98 98 ! Latitude en u 99 status=NF_DEF_VAR(ncid_out,'latu',NF_FLOAT,1, out_latudim, out_latuid)99 status=NF_DEF_VAR(ncid_out,'latu',NF_FLOAT,1,[out_latudim], out_latuid) 100 100 CALL handle_err(status) 101 101 status=NF_PUT_ATT_TEXT(ncid_out,out_latuid,'units', 13,'degrees_north') … … 103 103 104 104 ! Latitude en v 105 status=NF_DEF_VAR(ncid_out,'latv',NF_FLOAT,1, out_latvdim, out_latvid)105 status=NF_DEF_VAR(ncid_out,'latv',NF_FLOAT,1,[out_latvdim], out_latvid) 106 106 CALL handle_err(status) 107 107 status=NF_PUT_ATT_TEXT(ncid_out,out_latvid,'units', 13,'degrees_north') … … 139 139 140 140 #ifdef NC_DOUBLE 141 status=NF_PUT_VARA_DOUBLE(ncid_out,out_lonuid, 1,iim+1,rlonudeg)142 status=NF_PUT_VARA_DOUBLE(ncid_out,out_lonvid, 1,iim+1,rlonvdeg)143 status=NF_PUT_VARA_DOUBLE(ncid_out,out_latuid, 1,jjm+1,rlatudeg)144 status=NF_PUT_VARA_DOUBLE(ncid_out,out_latvid, 1,jjm,rlatvdeg)141 status=NF_PUT_VARA_DOUBLE(ncid_out,out_lonuid,[1],[iim+1],rlonudeg) 142 status=NF_PUT_VARA_DOUBLE(ncid_out,out_lonvid,[1],[iim+1],rlonvdeg) 143 status=NF_PUT_VARA_DOUBLE(ncid_out,out_latuid,[1],[jjm+1],rlatudeg) 144 status=NF_PUT_VARA_DOUBLE(ncid_out,out_latvid,[1],[jjm],rlatvdeg) 145 145 #else 146 status=NF_PUT_VARA_REAL(ncid_out,out_lonuid, 1,iim+1,rlonudeg)147 status=NF_PUT_VARA_REAL(ncid_out,out_lonvid, 1,iim+1,rlonvdeg)148 status=NF_PUT_VARA_REAL(ncid_out,out_latuid, 1,jjm+1,rlatudeg)149 status=NF_PUT_VARA_REAL(ncid_out,out_latvid, 1,jjm,rlatvdeg)146 status=NF_PUT_VARA_REAL(ncid_out,out_lonuid,[1],[iim+1],rlonudeg) 147 status=NF_PUT_VARA_REAL(ncid_out,out_lonvid,[1],[iim+1],rlonvdeg) 148 status=NF_PUT_VARA_REAL(ncid_out,out_latuid,[1],[jjm+1],rlatudeg) 149 status=NF_PUT_VARA_REAL(ncid_out,out_latvid,[1],[jjm],rlatvdeg) 150 150 #endif 151 151 … … 196 196 ! ecriture des variables 197 197 #ifdef NC_DOUBLE 198 status=NF_PUT_VARA_DOUBLE(ncid_out,out_levid, 1,llm,rlevdeg)198 status=NF_PUT_VARA_DOUBLE(ncid_out,out_levid,[1],[llm],rlevdeg) 199 199 #else 200 status=NF_PUT_VARA_REAL(ncid_out,out_levid, 1,llm,rlevdeg)200 status=NF_PUT_VARA_REAL(ncid_out,out_levid,[1],[llm],rlevdeg) 201 201 #endif 202 202 -
trunk/LMDZ.COMMON/libf/dyn3dpar/guide_p_mod.F90
r1650 r2572 1409 1409 IF (guide_plevs.EQ.1) THEN 1410 1410 #ifdef NC_DOUBLE 1411 status=NF_GET_VARA_DOUBLE(ncidpl,varidap, 1,nlevnc,apnc)1412 status=NF_GET_VARA_DOUBLE(ncidpl,varidbp, 1,nlevnc,bpnc)1411 status=NF_GET_VARA_DOUBLE(ncidpl,varidap,[1],[nlevnc],apnc) 1412 status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,[1],[nlevnc],bpnc) 1413 1413 #else 1414 status=NF_GET_VARA_REAL(ncidpl,varidap, 1,nlevnc,apnc)1415 status=NF_GET_VARA_REAL(ncidpl,varidbp, 1,nlevnc,bpnc)1414 status=NF_GET_VARA_REAL(ncidpl,varidap,[1],[nlevnc],apnc) 1415 status=NF_GET_VARA_REAL(ncidpl,varidbp,[1],[nlevnc],bpnc) 1416 1416 #endif 1417 1417 ELSEIF (guide_plevs.EQ.0) THEN 1418 1418 #ifdef NC_DOUBLE 1419 status=NF_GET_VARA_DOUBLE(ncidpl,varidpl, 1,nlevnc,apnc)1419 status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,[1],[nlevnc],apnc) 1420 1420 #else 1421 status=NF_GET_VARA_REAL(ncidpl,varidpl, 1,nlevnc,apnc)1421 status=NF_GET_VARA_REAL(ncidpl,varidpl,[1],[nlevnc],apnc) 1422 1422 #endif 1423 1423 apnc=apnc*100.! conversion en Pascals … … 1674 1674 if (guide_plevs.EQ.1) then 1675 1675 #ifdef NC_DOUBLE 1676 status=NF_GET_VARA_DOUBLE(ncidpl,varidap, 1,nlevnc,apnc)1677 status=NF_GET_VARA_DOUBLE(ncidpl,varidbp, 1,nlevnc,bpnc)1676 status=NF_GET_VARA_DOUBLE(ncidpl,varidap,[1],[nlevnc],apnc) 1677 status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,[1],[nlevnc],bpnc) 1678 1678 #else 1679 status=NF_GET_VARA_REAL(ncidpl,varidap, 1,nlevnc,apnc)1680 status=NF_GET_VARA_REAL(ncidpl,varidbp, 1,nlevnc,bpnc)1679 status=NF_GET_VARA_REAL(ncidpl,varidap,[1],[nlevnc],apnc) 1680 status=NF_GET_VARA_REAL(ncidpl,varidbp,[1],[nlevnc],bpnc) 1681 1681 #endif 1682 1682 elseif (guide_plevs.EQ.0) THEN 1683 1683 #ifdef NC_DOUBLE 1684 status=NF_GET_VARA_DOUBLE(ncidpl,varidpl, 1,nlevnc,apnc)1684 status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,[1],[nlevnc],apnc) 1685 1685 #else 1686 status=NF_GET_VARA_REAL(ncidpl,varidpl, 1,nlevnc,apnc)1686 status=NF_GET_VARA_REAL(ncidpl,varidpl,[1],[nlevnc],apnc) 1687 1687 #endif 1688 1688 apnc=apnc*100.! conversion en Pascals … … 1856 1856 ! Definition des dimensions 1857 1857 ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu) 1858 print*,'id_lonu 1 ',id_lonu1859 1858 ierr=NF_DEF_DIM(nid,"LONV",iip1,id_lonv) 1860 1859 ierr=NF_DEF_DIM(nid,"LATU",jjp1,id_latu) … … 1864 1863 1865 1864 ! Creation des variables dimensions 1866 ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,id_lonu,vid_lonu) 1867 print*,'id_lonu 2 ',id_lonu 1868 ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1,id_lonv,vid_lonv) 1869 ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1,id_latu,vid_latu) 1870 ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1,id_latv,vid_latv) 1871 ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1,id_lev,vid_lev) 1865 ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,[id_lonu],vid_lonu) 1866 ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1,[id_lonv],vid_lonv) 1867 ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1,[id_latu],vid_latu) 1868 ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1,[id_latv],vid_latv) 1869 ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1,[id_lev],vid_lev) 1872 1870 ierr=NF_DEF_VAR(nid,"cu",NF_FLOAT,2,(/id_lonu,id_latu/),vid_cu) 1873 1871 ierr=NF_DEF_VAR(nid,"cv",NF_FLOAT,2,(/id_lonv,id_latv/),vid_cv)
Note: See TracChangeset
for help on using the changeset viewer.
