Changeset 1782 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Jul 11, 2013, 11:20:54 AM (11 years ago)
Author:
Laurent Fairhead
Message:

Erreur sur le commentaire

Misleading comment

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/hgardfou.F

    r1575 r1782  
    5757           DO i = 1, jbad
    5858             WRITE(lunout,*)
    59      $       'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
     59     $       'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =',
    6060     $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
    6161     $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
    … …  
    7878           DO i = 1, jbad
    7979             WRITE(lunout,*)
    80      $       'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
     80     $       'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =',
    8181     $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
    8282     $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
    … …  
    104104           DO i = 1, jbad
    105105            WRITE(lunout,*)
    106      $      'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
     106     $      'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic ='
    107107     $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
    108108     $      ,pctsrf(jadrs(i),nsrf)
    … …  
    125125           DO i = 1, jbad
    126126            WRITE(lunout,*)
    127      $      'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
     127     $      'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic ='
    128128     $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
    129129     $      ,pctsrf(jadrs(i),nsrf)
Note: See TracChangeset for help on using the changeset viewer.