Ignore:
Timestamp:
Apr 9, 2008, 12:36:53 PM (17 years ago)
Author:
lmdzadmin
Message:

Ajout coordonnees geographiques pour les plantages
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/add_phys_tend.F90

    r924 r941  
    1616use dimphy
    1717use phys_local_var_mod
     18use phys_state_var_mod
    1819IMPLICIT none
    1920
    … …  
    7879      DO j = 1, jbad
    7980         i=jadrs(j)
    80          print*,'PLANTAGE POUR LE POINT i=',i,text
     81         print*,'PLANTAGE POUR LE POINT i rlon rlat =',i,rlon(i),rlat(i),text
    8182         print*,'l    T     dT       Q     dQ    '
    8283         DO k = 1, klev
    … …  
    9394      DO j = 1, jqbad
    9495         i=jqadrs(j)
    95          print*,'WARNING  : EAU POUR LE POINT i=',i,text
     96         print*,'WARNING  : EAU POUR LE POINT i rlon rlat =',i,rlon(i),rlat(i),text
    9697         print*,'l    T     dT       Q     dQ    '
    9798         DO k = 1, klev
Note: See TracChangeset for help on using the changeset viewer.