Ignore:
Timestamp:
Jun 19, 2008, 12:24:22 PM (16 years ago)
Author:
lmdzadmin
Message:

Version thermique FH/CRio
Ajout tests cas physiques non pris en comptes et ajout/enleve prints
Nouvelle routine thermcell_flux2.F90
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r941 r972  
    5151           ok = .FALSE.
    5252           DO i = 1, jbad
    53              PRINT *,'i,k,temperature =',jadrs(i),k,zt(jadrs(i)),
    54      $       rlon(jadrs(i)),rlat(jadrs(i))
     53            PRINT *,'i,k,temperature rlon rlat=',jadrs(i),k,zt(jadrs(i))
     54     $      ,rlon(jadrs(i)),rlat(jadrs(i))
    5555           ENDDO
    5656         ENDIF
    … …  
    7070           ok = .FALSE.
    7171           DO i = 1, jbad
    72              PRINT *,'i,k,temperature =',jadrs(i),k,zt(jadrs(i)),
    73      $       rlon(jadrs(i)),rlat(jadrs(i))
     72            PRINT *,'i,k,temperature rlon rlat=',jadrs(i),k,zt(jadrs(i))
     73     $      ,rlon(jadrs(i)),rlat(jadrs(i))
    7474           ENDDO
    7575         ENDIF
Note: See TracChangeset for help on using the changeset viewer.