Ignore:
Timestamp:
Jul 24, 2024, 2:54:37 PM (4 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/integrd_loc.f90

    r5113 r5116  
    8686  INTEGER :: ierr
    8787
    88   !write(*,*) 'integrd 88: entree, nq=',nq
     88  !WRITE(*,*) 'integrd 88: entree, nq=',nq
    8989  !-----------------------------------------------------------------------
    9090
     
    151151  ! &                   MPI_LOGICAL,MPI_LOR,COMM_LMDZ,ierr)
    152152  IF( .NOT. checksum ) THEN
    153      write(lunout,*) "integrd: ps = ", ps(stop_it)
    154      write(lunout,*) " at node ij =", stop_it
     153     WRITE(lunout,*) "integrd: ps = ", ps(stop_it)
     154     WRITE(lunout,*) " at node ij =", stop_it
    155155     ! since ij=j+(i-1)*jjp1 , we have
    156156      j=modulo(stop_it,jjp1)
    157157      i=1+(stop_it-j)/jjp1
    158       write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg", &
     158      WRITE(lunout,*) " lon = ",rlonv(i)*180./pi, " deg", &
    159159            " lat = ",rlatu(j)*180./pi, " deg"
    160160     CALL abort_gcm("integrd_loc", "negative surface pressure", 1)
     
    163163!$OMP END MASTER
    164164!$OMP BARRIER
    165     !write(*,*) 'integrd 170'
     165    !WRITE(*,*) 'integrd 170'
    166166  IF (.NOT. Checksum_all) THEN
    167167    CALL WriteField_v('int_vcov',vcov)
     
    193193
    194194  !
    195   !   !write(*,*) 'integrd 200'
     195  !   !WRITE(*,*) 'integrd 200'
    196196!$OMP MASTER
    197197  if (pole_nord) THEN
     
    220220!$OMP END MASTER
    221221!$OMP BARRIER
    222   !write(*,*) 'integrd 217'
     222  !WRITE(*,*) 'integrd 217'
    223223  !
    224224  !  ... Calcul  de la nouvelle masse d'air au dernier temps integre t+1 ...
     
    284284  !
    285285  !
    286   !   !write(*,*) 'integrd 291'
     286  !   !WRITE(*,*) 'integrd 291'
    287287  IF (pole_nord) THEN
    288288
     
    334334  ije=ij_end
    335335
    336      if (planet_type=="earth") then
     336     if (planet_type=="earth") THEN
    337337  ! Earth-specific treatment of first 2 tracers (water)
    338338!$OMP BARRIER
     
    349349    CALL check_isotopes(q,ijb,ije,'integrd 342')
    350350
    351     !write(*,*) 'integrd 341'
     351    !WRITE(*,*) 'integrd 341'
    352352    CALL qminimum_loc( q, nq, deltap )
    353     !write(*,*) 'integrd 343'
     353    !WRITE(*,*) 'integrd 343'
    354354
    355355    CALL check_isotopes(q,ijb,ije,'integrd 346')
     
    421421  ! .....   FIN  de l'integration  de   q    .......
    422422
    423       !write(*,*) 'integrd 410'
     423      !WRITE(*,*) 'integrd 410'
    424424
    425425!$OMP DO SCHEDULE(STATIC)
Note: See TracChangeset for help on using the changeset viewer.