Changeset 5257 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 22, 2024, 4:17:07 PM (2 months ago)
Author:
abarral
Message:

Use int2str from strings_mod in write_field.F90. Only expose WriteField?.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/misc/write_field.F90

    r5084 r5257  
    33!
    44module write_field
    5 implicit none
     5  USE strings_mod, ONLY: int2str
     6  IMPLICIT NONE; PRIVATE
     7  PUBLIC WriteField
    68
    79  integer, parameter :: MaxWriteField = 100
     
    285287                      //trim(int2str(pos+offset))      &   
    286288                      //'," ---> ",g22.16," | ")'
    287 ! dépent de l'implémention, sur compaq, c'est necessaire
     289! d�pent de l'impl�mention, sur compaq, c'est necessaire
    288290!            Pos=Pos+ColumnSize
    289291          endif
     
    302304    close(id)
    303305 
    304   end subroutine write_field3D 
    305  
    306   function int2str(int)
    307     implicit none
    308     integer, parameter :: MaxLen=10
    309     integer,intent(in) :: int
    310     character(len=MaxLen) :: int2str
    311     logical :: flag
    312     integer :: i
    313     flag=.true.
    314    
    315     i=int
    316    
    317     int2str=''
    318     do while (flag)
    319       int2str=CHAR(MOD(i,10)+48)//int2str
    320       i=i/10
    321       if (i==0) flag=.false.
    322     enddo
    323   end function int2str
     306  end subroutine write_field3D
    324307
    325308end module write_field
Note: See TracChangeset for help on using the changeset viewer.