Ignore:
Timestamp:
Feb 19, 2025, 3:54:06 PM (5 months ago)
Author:
jbclement
Message:

PEM:
Few small adjustments in the script files.
JBC

File:
1 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified trunk/LMDZ.COMMON/libf/evolution/reshape_XIOS_output.F90

    r3584 r3634  
    4343do numyear = 1,2
    4444    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"...'
    4646
    4747    state = nf90_open(path = "data2reshape_Y"//str//".nc",mode = nf90_nowrite,ncid = ncid1)
     
    9898    do i = 1,nvars
    9999        state = nf90_inquire_variable(ncid1,varids(i),name = namevar,xtype = xtype_var,ndims = numdims,natts = numatts)
    100         write(*,*) '> Treatment of '//namevar
     100        write(*,*) 'Treatment of '//namevar
    101101        if (state /= nf90_noerr) call handle_err(state)
    102102        allocate(dimid_var(numdims))
     
    219219
    220220    deallocate(dimids,varids,dimids_2,varids_2)
    221     write(*,*) 'Done!'
     221    write(*,*) '> "data2reshape_Y'//str//'.nc" processed!'
    222222enddo
    223223
Note: See TracChangeset for help on using the changeset viewer.