Ignore:
Timestamp:
Oct 21, 2010, 10:23:18 AM (14 years ago)
Author:
jghattas
Message:

Small bug.

Location:
LMDZ5/branches/LMDZ5V1.0-dev/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3d/infotrac.F90

    r1403 r1443  
    3131
    3232  SUBROUTINE infotrac_init
    33 
    3433    USE control_mod
    35  
    3634    IMPLICIT NONE
    3735!=======================================================================
     
    6361    CHARACTER(len=1), DIMENSION(3)  :: txts
    6462    CHARACTER(len=2), DIMENSION(9)  :: txtp
    65     CHARACTER(len=13)               :: str1,str2
     63    CHARACTER(len=23)               :: str1,str2
    6664 
    6765    INTEGER :: nqtrue  ! number of tracers read from tracer.def, without higer order of moment
    6866    INTEGER :: iq, new_iq, iiq, jq, ierr
    69     INTEGER, EXTERNAL :: lnblnk
    7067 
    7168!-----------------------------------------------------------------------
     
    261258       ELSE
    262259          WRITE(lunout,*)'This choice of advection schema is not available',iq,hadv(iq),vadv(iq)
     260
    263261          CALL abort_gcm('infotrac_init','Bad choice of advection schema - 2',1)
    264262       END IF
     
    267265       tname(new_iq)= tnom_0(iq)
    268266       IF (iadv(new_iq)==0) THEN
    269           ttext(new_iq)=str1(1:lnblnk(str1))
     267          ttext(new_iq)=trim(str1)
    270268       ELSE
    271           ttext(new_iq)=str1(1:lnblnk(str1))//descrq(iadv(new_iq))
     269          ttext(new_iq)=trim(tnom_0(iq))//descrq(iadv(new_iq))
    272270       END IF
    273271
     
    278276             new_iq=new_iq+1
    279277             iadv(new_iq)=-20
    280              ttext(new_iq)=str2(1:lnblnk(str2))//txts(jq)
    281              tname(new_iq)=str1(1:lnblnk(str1))//txts(jq)
     278             ttext(new_iq)=trim(str2)//txts(jq)
     279             tname(new_iq)=trim(str1)//txts(jq)
    282280          END DO
    283281       ELSE IF (iadv(new_iq)==30) THEN
     
    285283             new_iq=new_iq+1
    286284             iadv(new_iq)=-30
    287              ttext(new_iq)=str2(1:lnblnk(str2))//txtp(jq)
    288              tname(new_iq)=str1(1:lnblnk(str1))//txtp(jq)
     285             ttext(new_iq)=trim(str2)//txtp(jq)
     286             tname(new_iq)=trim(str1)//txtp(jq)
    289287          END DO
    290288       END IF
  • LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/infotrac.F90

    r1403 r1443  
    6161    CHARACTER(len=1), DIMENSION(3)  :: txts
    6262    CHARACTER(len=2), DIMENSION(9)  :: txtp
    63     CHARACTER(len=13)               :: str1,str2
     63    CHARACTER(len=23)               :: str1,str2
    6464 
    6565    INTEGER :: nqtrue  ! number of tracers read from tracer.def, without higer order of moment
    6666    INTEGER :: iq, new_iq, iiq, jq, ierr
    67     INTEGER, EXTERNAL :: lnblnk
    6867 
    6968!-----------------------------------------------------------------------
     
    217216          new_iq=new_iq+10 ! 9 tracers added
    218217       ELSE
    219           WRITE(lunout,*) 'This choice of advection schema is not available'
     218          WRITE(lunout,*) 'This choice of advection schema is not available',iq,hadv(iq),vadv(iq)
    220219          CALL abort_gcm('infotrac_init','Bad choice of advection schema - 1',1)
    221220       END IF
     
    258257          iadv(new_iq)=11
    259258       ELSE
    260           WRITE(lunout,*)'This choice of advection schema is not available'
     259          WRITE(lunout,*)'This choice of advection schema is not available',iq,hadv(iq),vadv(iq)
     260
    261261          CALL abort_gcm('infotrac_init','Bad choice of advection schema - 2',1)
    262262       END IF
     
    265265       tname(new_iq)= tnom_0(iq)
    266266       IF (iadv(new_iq)==0) THEN
    267           ttext(new_iq)=str1(1:lnblnk(str1))
     267          ttext(new_iq)=trim(str1)
    268268       ELSE
    269           ttext(new_iq)=str1(1:lnblnk(str1))//descrq(iadv(new_iq))
     269          ttext(new_iq)=trim(tnom_0(iq))//descrq(iadv(new_iq))
    270270       END IF
    271271
     
    276276             new_iq=new_iq+1
    277277             iadv(new_iq)=-20
    278              ttext(new_iq)=str2(1:lnblnk(str2))//txts(jq)
    279              tname(new_iq)=str1(1:lnblnk(str1))//txts(jq)
     278             ttext(new_iq)=trim(str2)//txts(jq)
     279             tname(new_iq)=trim(str1)//txts(jq)
    280280          END DO
    281281       ELSE IF (iadv(new_iq)==30) THEN
     
    283283             new_iq=new_iq+1
    284284             iadv(new_iq)=-30
    285              ttext(new_iq)=str2(1:lnblnk(str2))//txtp(jq)
    286              tname(new_iq)=str1(1:lnblnk(str1))//txtp(jq)
     285             ttext(new_iq)=trim(str2)//txtp(jq)
     286             tname(new_iq)=trim(str1)//txtp(jq)
    287287          END DO
    288288       END IF
Note: See TracChangeset for help on using the changeset viewer.