Changeset 2140


Ignore:
Timestamp:
Jun 1, 2019, 10:34:01 PM (6 years ago)
Author:
emillour
Message:

Mars GCM utilities:
Very minor syntax fixes for picky recent gfortran compilers.
EM

Location:
trunk/LMDZ.MARS/util
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/util/extract.F90

    r954 r2140  
    307307  stop
    308308else
    309   write(*,'("  with missing_value attribute : ",1pe12.5)'),missing_value
     309  write(*,'("  with missing_value attribute : ",1pe12.5)') missing_value
    310310endif
    311311

  • trunk/LMDZ.MARS/util/hrecast.F90

    r860 r2140  
    775775    if (ierr.ne.NF_NOERR) then
    776776      write(*,*) "Error failed to copy long_name attribute:",trim(text)
    777       stop""
     777      stop ""
    778778    endif
    779779  endif
    … …  
    789789    if (ierr.ne.NF_NOERR) then
    790790      write(*,*) "Error failed to copy units attribute:",trim(text)
    791       stop""
     791      stop ""
    792792    endif
    793793  endif

  • trunk/LMDZ.MARS/util/zrecast.F90

    r1515 r2140  
    14471447    if (ierr.ne.NF_NOERR) then
    14481448      write(*,*) "Error failed to copy long_name attribute:",trim(text)
    1449       stop""
     1449      stop ""
    14501450    endif
    14511451  endif
    … …  
    14611461    if (ierr.ne.NF_NOERR) then
    14621462      write(*,*) "Error failed to copy units attribute:",trim(text)
    1463       stop""
     1463      stop ""
    14641464    endif
    14651465  endif
Note: See TracChangeset for help on using the changeset viewer.