Ignore:
Timestamp:
Aug 3, 2024, 2:56:58 PM (6 months ago)
Author:
abarral
Message:

Put .h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/dyn3dmem
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bands.F90

    r5159 r5160  
    481481        CLOSE(unit_number)   
    482482      else
    483         print *,'probleme lors de l ecriture des bandes'
     483        PRINT *,'probleme lors de l ecriture des bandes'
    484484      endif
    485485       

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/call_dissip_mod.f90

    r5159 r5160  
    111111    !       PRINT*,'Entree dans la dissipation : Iteration No ',true_itau
    112112    !   calcul de l'energie cinetique avant dissipation
    113     !       print *,'Passage dans la dissipation'
     113    !       PRINT *,'Passage dans la dissipation'
    114114
    115115    CALL VTb(VThallo)
    … …  
    316316    CALL VTe(VThallo)
    317317    CALL resume_timer(timer_caldyn)
    318     !        print *,'fin dissipation'
     318    !        PRINT *,'fin dissipation'
    319319    !$OMP END MASTER
    320320    !$OMP BARRIER

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/leapfrog_loc.F90

    r5159 r5160  
    490490
    491491      IF (prt_level > 9) THEN
    492         print *, '*********************************'
    493         print *, '******    TIMER CALDYN     ******'
     492        PRINT *, '*********************************'
     493        PRINT *, '******    TIMER CALDYN     ******'
    494494        DO i = 0, mpi_size - 1
    495           print *, 'proc', i, ' :   Nb Bandes  :', jj_nb_caldyn(i), &
     495          PRINT *, 'proc', i, ' :   Nb Bandes  :', jj_nb_caldyn(i), &
    496496                  '  : temps moyen :', &
    497497                  timer_average(jj_nb_caldyn(i), timer_caldyn, i), &
    … …  
    499499        enddo
    500500
    501         print *, '*********************************'
    502         print *, '******    TIMER VANLEER    ******'
     501        PRINT *, '*********************************'
     502        PRINT *, '******    TIMER VANLEER    ******'
    503503        DO i = 0, mpi_size - 1
    504           print *, 'proc', i, ' :   Nb Bandes  :', jj_nb_vanleer(i), &
     504          PRINT *, 'proc', i, ' :   Nb Bandes  :', jj_nb_vanleer(i), &
    505505                  '  : temps moyen :', &
    506506                  timer_average(jj_nb_vanleer(i), timer_vanleer, i), &
    … …  
    508508        enddo
    509509
    510         print *, '*********************************'
    511         print *, '******    TIMER DISSIP    ******'
     510        PRINT *, '*********************************'
     511        PRINT *, '******    TIMER DISSIP    ******'
    512512        DO i = 0, mpi_size - 1
    513           print *, 'proc', i, ' :   Nb Bandes  :', jj_nb_dissip(i), &
     513          PRINT *, 'proc', i, ' :   Nb Bandes  :', jj_nb_dissip(i), &
    514514                  '  : temps moyen :', &
    515515                  timer_average(jj_nb_dissip(i), timer_dissip, i), &
    … …  
    900900    CALL barrier
    901901    IF (mpi_rank==0) THEN
    902       print *, '*********************************'
    903       print *, '******    TIMER CALDYN     ******'
     902      PRINT *, '*********************************'
     903      PRINT *, '******    TIMER CALDYN     ******'
    904904      DO i = 0, mpi_size - 1
    905         print *, 'proc', i, ' :   Nb Bandes  :', jj_nb_caldyn(i), &
     905        PRINT *, 'proc', i, ' :   Nb Bandes  :', jj_nb_caldyn(i), &
    906906                '  : temps moyen :', &
    907907                timer_average(jj_nb_caldyn(i), timer_caldyn, i)
    908908      enddo
    909909
    910       print *, '*********************************'
    911       print *, '******    TIMER VANLEER    ******'
     910      PRINT *, '*********************************'
     911      PRINT *, '******    TIMER VANLEER    ******'
    912912      DO i = 0, mpi_size - 1
    913         print *, 'proc', i, ' :   Nb Bandes  :', jj_nb_vanleer(i), &
     913        PRINT *, 'proc', i, ' :   Nb Bandes  :', jj_nb_vanleer(i), &
    914914                '  : temps moyen :', &
    915915                timer_average(jj_nb_vanleer(i), timer_vanleer, i)
    916916      enddo
    917917
    918       print *, '*********************************'
    919       print *, '******    TIMER DISSIP    ******'
     918      PRINT *, '*********************************'
     919      PRINT *, '******    TIMER DISSIP    ******'
    920920      DO i = 0, mpi_size - 1
    921         print *, 'proc', i, ' :   Nb Bandes  :', jj_nb_dissip(i), &
     921        PRINT *, 'proc', i, ' :   Nb Bandes  :', jj_nb_dissip(i), &
    922922                '  : temps moyen :', &
    923923                timer_average(jj_nb_dissip(i), timer_dissip, i)
    924924      enddo
    925925
    926       print *, '*********************************'
    927       print *, '******    TIMER PHYSIC    ******'
     926      PRINT *, '*********************************'
     927      PRINT *, '******    TIMER PHYSIC    ******'
    928928      DO i = 0, mpi_size - 1
    929         print *, 'proc', i, ' :   Nb Bandes  :', jj_nb_physic(i), &
     929        PRINT *, 'proc', i, ' :   Nb Bandes  :', jj_nb_physic(i), &
    930930                '  : temps moyen :', &
    931931                timer_average(jj_nb_physic(i), timer_physic, i)
    … …  
    934934    endif
    935935    CALL barrier
    936     print *, 'Taille du Buffer MPI (REAL*8)', MaxBufferSize
    937     print *, 'Taille du Buffer MPI utilise (REAL*8)', MaxBufferSize_Used
    938     print *, 'Temps total ecoule sur la parallelisation :', DiffTime()
    939     print *, 'Temps CPU ecoule sur la parallelisation :', DiffCpuTime()
     936    PRINT *, 'Taille du Buffer MPI (REAL*8)', MaxBufferSize
     937    PRINT *, 'Taille du Buffer MPI utilise (REAL*8)', MaxBufferSize_Used
     938    PRINT *, 'Temps total ecoule sur la parallelisation :', DiffTime()
     939    PRINT *, 'Temps CPU ecoule sur la parallelisation :', DiffCpuTime()
    940940    CALL print_filtre_timer
    941941    !$OMP END MASTER

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/mod_hallo.F90

    r5159 r5160  
    146146    IF (Buffer_pos(Index_pos) + Size>MaxBufferSize_Used) MaxBufferSize_Used = Buffer_pos(Index_pos) + Size
    147147    IF (Buffer_pos(Index_pos) + Size>MaxBufferSize) THEN
    148       print *, 'STOP :: La taille de MaxBufferSize dans mod_hallo.F90 est trop petite !!!!'
     148      PRINT *, 'STOP :: La taille de MaxBufferSize dans mod_hallo.F90 est trop petite !!!!'
    149149      CALL abort_gcm("mod_hallo", "stopped", 1)
    150150    endif
    151151
    152152    IF (Index_pos>=ListSize) THEN
    153       print *, 'STOP :: La taille de ListSize dans mod_hallo.F90 est trop petite !!!!'
     153      PRINT *, 'STOP :: La taille de ListSize dans mod_hallo.F90 est trop petite !!!!'
    154154      CALL abort_gcm("mod_hallo", "stopped", 1)
    155155    endif

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/vlspltgen_loc.F90

    r5159 r5160  
    435435    DO l = 1, llm
    436436      DO ij = ijb, ije
    437         ! print *,'zq-->',ij,l,iq,zq(ij,l,iq)
    438         ! print *,'q-->',ij,l,iq,q(ij,l,iq)
     437        ! PRINT *,'zq-->',ij,l,iq,zq(ij,l,iq)
     438        ! PRINT *,'q-->',ij,l,iq,q(ij,l,iq)
    439439        q(ij, l, iq) = zq(ij, l, iq)
    440440      ENDDO
Note: See TracChangeset for help on using the changeset viewer.