Changeset 3634 for trunk/LMDZ.COMMON/libf/evolution/reshape_XIOS_output.F90
- Timestamp:
- Feb 19, 2025, 3:54:06 PM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/LMDZ.COMMON/libf/evolution/reshape_XIOS_output.F90 ¶
r3584 r3634 43 43 do numyear = 1,2 44 44 write(str,'(i1.1)') numyear 45 write(*,*) ' Reshaping of variables from "data2reshape_Y'//str//'.nc"...'45 write(*,*) '> Reshaping of variables from "data2reshape_Y'//str//'.nc"...' 46 46 47 47 state = nf90_open(path = "data2reshape_Y"//str//".nc",mode = nf90_nowrite,ncid = ncid1) … … 98 98 do i = 1,nvars 99 99 state = nf90_inquire_variable(ncid1,varids(i),name = namevar,xtype = xtype_var,ndims = numdims,natts = numatts) 100 write(*,*) ' >Treatment of '//namevar100 write(*,*) 'Treatment of '//namevar 101 101 if (state /= nf90_noerr) call handle_err(state) 102 102 allocate(dimid_var(numdims)) … … 219 219 220 220 deallocate(dimids,varids,dimids_2,varids_2) 221 write(*,*) ' Done!'221 write(*,*) '> "data2reshape_Y'//str//'.nc" processed!' 222 222 enddo 223 223
Note: See TracChangeset
for help on using the changeset viewer.