Changeset 1145


Ignore:
Timestamp:
Apr 8, 2009, 2:19:49 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Deux modifications qui restaient de la branche LMDZ4_V3_patches
LF

Location:
LMDZ4/branches/LMDZ4-dev/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/hgardfou.F

    r987 r1145  
    1 !
    2 ! $Header$
    31!
    42      SUBROUTINE hgardfou (t,tsol,text)
    … …  
    5351           ok = .FALSE.
    5452           DO i = 1, jbad
    55             PRINT *,'i,k,temperature rlon rlat=',jadrs(i),k,zt(jadrs(i))
    56      $      ,rlon(jadrs(i)),rlat(jadrs(i))
     53             PRINT *,'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
     54     $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
     55     $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
    5756           ENDDO
    5857         ENDIF
    … …  
    7271           ok = .FALSE.
    7372           DO i = 1, jbad
    74             PRINT *,'i,k,temperature rlon rlat=',jadrs(i),k,zt(jadrs(i))
    75      $      ,rlon(jadrs(i)),rlat(jadrs(i))
     73             PRINT *,'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
     74     $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
     75     $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
    7676           ENDDO
    7777         ENDIF
    … …  
    9696           ok = .FALSE.
    9797           DO i = 1, jbad
    98              PRINT *,'i,nsrf,temperature =',jadrs(i),nsrf,zt(jadrs(i)),
    99      $       rlon(jadrs(i)),rlat(jadrs(i))
     98            PRINT *,'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
     99     $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
     100     $      ,pctsrf(jadrs(i),nsrf)
    100101           ENDDO
    101102         ENDIF
    … …  
    115116           ok = .FALSE.
    116117           DO i = 1, jbad
    117              PRINT *,'i,nsrf,temperature =',jadrs(i),nsrf,zt(jadrs(i)),
    118      $       rlon(jadrs(i)),rlat(jadrs(i))
     118            PRINT *,'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
     119     $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
     120     $      ,pctsrf(jadrs(i),nsrf)
    119121           ENDDO
    120122         ENDIF

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90

    r1134 r1145  
    463463  logical                               :: ok_veget
    464464  integer                               :: iflag_pbl
    465   CHARACTER(len=3)                      :: bb2
     465  CHARACTER(len=4)                      :: bb2
    466466  CHARACTER(len=2)                      :: bb3
    467467  character(len=6)                      :: type_ocean
Note: See TracChangeset for help on using the changeset viewer.