Ignore:
Timestamp:
Oct 13, 2016, 10:30:32 AM (8 years ago)
Author:
fhourdin
Message:

Correction pour compilation gfortran

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/limit_read_mod.F90

    r2665 r2666  
    237237          ierr=NF90_INQUIRE(nid, UnlimitedDimID=ndimid)
    238238          ierr=NF90_INQUIRE_DIMENSION(nid, ndimid, len=nn)
    239           WRITE(str,'(i)')nn; str=ADJUSTL(str)
     239          str=""; DO WHILE(nn>0); str=TRIM(str)//CHAR(nn-10*(nn/10)-48); nn=nn/10; END DO
    240240          abort_message='limit.nc records number ('//TRIM(str)//') does'//&
    241241            ' not match year length ('
    242           WRITE(str,'(i)')year_len; str=ADJUSTL(str)
     242          nn=year_len
     243          str=""; DO WHILE(nn>0); str=TRIM(str)//CHAR(nn-10*(nn/10)-48); nn=nn/10; END DO
    243244          abort_message=TRIM(abort_message)//TRIM(str)//')'
    244245          IF(nn/=year_len) CALL abort_physic(modname,abort_message,1)
     
    247248          ierr=NF90_INQ_DIMID(nid, 'points_physiques', ndimid)
    248249          ierr=NF90_INQUIRE_DIMENSION(nid, ndimid, len=nn)
    249           WRITE(str,'(i)')nn; str=ADJUSTL(str)
     250          str=""; DO WHILE(nn>0); str=TRIM(str)//CHAR(nn-10*(nn/10)-48); nn=nn/10; END DO
    250251          abort_message='limit.nc horizontal number of cells ('//TRIM(str)//') does'//&
    251252            ' not match LMDZ klon_glo ('
    252           WRITE(str,'(i)')klon_glo; str=ADJUSTL(str)
     253          nn=klon_glo
     254          str=""; DO WHILE(nn>0); str=TRIM(str)//CHAR(nn-10*(nn/10)-48); nn=nn/10; END DO
    253255          abort_message=TRIM(abort_message)//TRIM(str)//')'
    254256          IF(nn/=klon_glo) CALL abort_physic(modname,abort_message,1)
Note: See TracChangeset for help on using the changeset viewer.