Changeset 2666 for LMDZ5/trunk/libf/phylmd

Timestamp:

Oct 13, 2016, 10:30:32 AM (8 years ago)

Author:

fhourdin

Message:

Correction pour compilation gfortran

File:

• LMDZ5/trunk/libf/phylmd/limit_read_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/limit_read_mod.F90

@@ -237 +237 @@
           ierr=NF90_INQUIRE(nid, UnlimitedDimID=ndimid)
           ierr=NF90_INQUIRE_DIMENSION(nid, ndimid, len=nn)
-          WRITE(str,'(i)')nn; str=ADJUSTL(str)
+          str=""; DO WHILE(nn>0); str=TRIM(str)//CHAR(nn-10*(nn/10)-48); nn=nn/10; END DO
           abort_message='limit.nc records number ('//TRIM(str)//') does'//&
             ' not match year length ('
-          WRITE(str,'(i)')year_len; str=ADJUSTL(str)
+          nn=year_len
+          str=""; DO WHILE(nn>0); str=TRIM(str)//CHAR(nn-10*(nn/10)-48); nn=nn/10; END DO
           abort_message=TRIM(abort_message)//TRIM(str)//')'
           IF(nn/=year_len) CALL abort_physic(modname,abort_message,1)
@@ -247 +248 @@
           ierr=NF90_INQ_DIMID(nid, 'points_physiques', ndimid)
           ierr=NF90_INQUIRE_DIMENSION(nid, ndimid, len=nn)
-          WRITE(str,'(i)')nn; str=ADJUSTL(str)
+          str=""; DO WHILE(nn>0); str=TRIM(str)//CHAR(nn-10*(nn/10)-48); nn=nn/10; END DO
           abort_message='limit.nc horizontal number of cells ('//TRIM(str)//') does'//&
             ' not match LMDZ klon_glo ('
-          WRITE(str,'(i)')klon_glo; str=ADJUSTL(str)
+          nn=klon_glo
+          str=""; DO WHILE(nn>0); str=TRIM(str)//CHAR(nn-10*(nn/10)-48); nn=nn/10; END DO
           abort_message=TRIM(abort_message)//TRIM(str)//')'
           IF(nn/=klon_glo) CALL abort_physic(modname,abort_message,1)