Changeset 5279 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 25, 2024, 6:35:18 PM (2 months ago)
Author:
abarral
Message:

fix: comma before i/o item

Location:
LMDZ6/trunk/libf
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.f90

    r5272 r5279  
    16271627    if (first) then
    16281628         ncidpl=-99
    1629          write(*,*),trim(modname)//': opening nudging files '
     1629         write(*,*) trim(modname)//': opening nudging files '
    16301630! Ap et Bp si Niveaux de pression hybrides
    16311631         if (guide_plevs.EQ.1) then
    1632              write(*,*),trim(modname)//' Reading nudging on model levels'
     1632             write(*,*) trim(modname)//' Reading nudging on model levels'
    16331633             rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
    16341634             IF (rcode.NE.nf90_noerr) THEN
    … …  
    16461646              CALL abort_gcm(modname,abort_message,1)
    16471647             ENDIF
    1648              write(*,*),trim(modname)//' ncidpl,varidap',ncidpl,varidap
     1648             write(*,*) trim(modname)//' ncidpl,varidap',ncidpl,varidap
    16491649         endif
    16501650
    … …  
    16611661              CALL abort_gcm(modname,abort_message,1)
    16621662             ENDIF
    1663              write(*,*),trim(modname)//' ncidp,varidp',ncidp,varidp
     1663             write(*,*) trim(modname)//' ncidp,varidp',ncidp,varidp
    16641664             if (ncidpl.eq.-99) ncidpl=ncidp
    16651665         endif
    … …  
    16771677              CALL abort_gcm(modname,abort_message,1)
    16781678             ENDIF
    1679              write(*,*),trim(modname)//' ncidu,varidu',ncidu,varidu
     1679             write(*,*) trim(modname)//' ncidu,varidu',ncidu,varidu
    16801680             if (ncidpl.eq.-99) ncidpl=ncidu
    16811681
    … …  
    17091709              CALL abort_gcm(modname,abort_message,1)
    17101710             ENDIF
    1711              write(*,*),trim(modname)//' ncidv,varidv',ncidv,varidv
     1711             write(*,*) trim(modname)//' ncidv,varidv',ncidv,varidv
    17121712             if (ncidpl.eq.-99) ncidpl=ncidv
    17131713
    … …  
    17421742              CALL abort_gcm(modname,abort_message,1)
    17431743             ENDIF
    1744              write(*,*),trim(modname)//' ncidT,varidT',ncidt,varidt
     1744             write(*,*) trim(modname)//' ncidT,varidT',ncidt,varidt
    17451745             if (ncidpl.eq.-99) ncidpl=ncidt
    17461746
    … …  
    17731773              CALL abort_gcm(modname,abort_message,1)
    17741774             ENDIF
    1775              write(*,*),trim(modname)//' ncidQ,varidQ',ncidQ,varidQ
     1775             write(*,*) trim(modname)//' ncidQ,varidQ',ncidQ,varidQ
    17761776             if (ncidpl.eq.-99) ncidpl=ncidQ
    17771777
    … …  
    18051805              CALL abort_gcm(modname,abort_message,1)
    18061806             ENDIF
    1807              write(*,*),trim(modname)//' ncidps,varidps',ncidps,varidps
     1807             write(*,*) trim(modname)//' ncidps,varidps',ncidps,varidps
    18081808         endif
    18091809! Coordonnee verticale
    … …  
    18111811              rcode = nf90_inq_varid(ncidpl, 'LEVEL', varidpl)
    18121812              IF (rcode.NE.0) rcode = nf90_inq_varid(ncidpl, 'PRESSURE', varidpl)
    1813               write(*,*),trim(modname)//' ncidpl,varidpl',ncidpl,varidpl
     1813              write(*,*) trim(modname)//' ncidpl,varidpl',ncidpl,varidpl
    18141814         endif
    18151815! Coefs ap, bp pour calcul de la pression aux differents niveaux

  • LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.f90

    r5268 r5279  
    10871087      DO k=1,ndistb
    10881088        DO nb=1,nbins
    1089             write(15001,*),k,nb,massfrac(k,nb)
     1089            write(15001,*) k,nb,massfrac(k,nb)
    10901090        ENDDO
    10911091      ENDDO

  • LMDZ6/trunk/libf/phylmd/cva_driver.f90

    r5268 r5279  
    11001100        Print *, 'cva_driver after cv3_unsat:mp , water, ice, evap, fondue '
    11011101        DO k = 1,nd
    1102         write (6, '(i4,5(1x,e13.6))'), &
     1102        write (6, '(i4,5(1x,e13.6))') &
    11031103          k, mp(igout,k), water(igout,k), ice(igout,k), &
    11041104           evap(igout,k), fondue(igout,k)
    … …  
    11061106        Print *, 'cva_driver after cv3_unsat: wdtrainA, wdtrainS, wdtrainM '     !!jygprl
    11071107        DO k = 1,nd
    1108         write (6, '(i4,3(1x,e13.6))'), &
     1108        write (6, '(i4,3(1x,e13.6))') &
    11091109           k, wdtrainA(igout,k), wdtrainS(igout,k), wdtrainM(igout,k)            !!jygprl
    11101110        ENDDO

  • LMDZ6/trunk/libf/phylmdiso/cva_driver.F90

    r4613 r5279  
    14841484        Print *, 'cva_driver after cv3_unsat:mp , water, ice, evap, fondue '
    14851485        DO k = 1,nd
    1486         write (6, '(i4,5(1x,e13.6))'), &
     1486        write (6, '(i4,5(1x,e13.6))') &
    14871487          k, mp(igout,k), water(igout,k), ice(igout,k), &
    14881488           evap(igout,k), fondue(igout,k)
    … …  
    14901490        Print *, 'cva_driver after cv3_unsat: wdtrainA, wdtrainS, wdtrainM '     !!jygprl
    14911491        DO k = 1,nd
    1492         write (6, '(i4,3(1x,e13.6))'), &
     1492        write (6, '(i4,3(1x,e13.6))')  &
    14931493           k, wdtrainA(igout,k), wdtrainS(igout,k), wdtrainM(igout,k)            !!jygprl
    14941494        ENDDO
Note: See TracChangeset for help on using the changeset viewer.