Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (2 months ago)
Author:
abarral
Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/prather.F

    r5099 r5101  
    147147c-----------------------------------------------------------
    148148       do indice =1,nt
    149        call advxp( limit,0.5*dt,pbaru,sm,s0,sx,sy,sz
     149       CALL advxp( limit,0.5*dt,pbaru,sm,s0,sx,sy,sz
    150150     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
    151151        END DO
    … …  
    157157        enddo
    158158c---------------------------------------------------------
    159        call advyp( limit,.5*dt*nt,pbarv,sm,s0,sx,sy,sz
     159       CALL advyp( limit,.5*dt*nt,pbarv,sm,s0,sx,sy,sz
    160160     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
    161161c---------------------------------------------------------
    … …  
    174174          enddo
    175175       enddo
    176        call advzp( limit,dt*nt,w,sm,s0,sx,sy,sz
     176       CALL advzp( limit,dt*nt,w,sm,s0,sx,sy,sz
    177177     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
    178178        do l=1,llm
    … …  
    186186
    187187c---------------------------------------------------------
    188        call advyp( limit,.5*dt*nt,pbarv,sm,s0,sx,sy,sz
     188       CALL advyp( limit,.5*dt*nt,pbarv,sm,s0,sx,sy,sz
    189189     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
    190190c---------------------------------------------------------
    … …  
    204204       ENDDO
    205205       do indice=1,nt
    206        call advxp( limit,0.5*dt,pbaru,sm,s0,sx,sy,sz
     206       CALL advxp( limit,0.5*dt,pbaru,sm,s0,sx,sy,sz
    207207     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
    208208        END DO
Note: See TracChangeset for help on using the changeset viewer.