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

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/test_period.f90

    r5116 r5117  
    4343
    4444     do ij=1,iim
    45       if (teta(ij,l)/=teta(1,l) &
    46             .or.teta(ip1jm+ij,l)/=teta(ip1jm+1,l) ) THEN
     45      IF (teta(ij,l)/=teta(1,l) &
     46            .OR.teta(ip1jm+ij,l)/=teta(ip1jm+1,l) ) THEN
    4747      PRINT *,'STOP dans test_period car ---  TETA  ---  n est pas', &
    4848            ' constant aux poles ! '
    … …  
    9999     ENDDO
    100100     do ij=1,iim
    101       if (p(ij,l)/=p(1,l) &
    102             .or.p(ip1jm+ij,l)/=p(ip1jm+1,l) ) THEN
     101      IF (p(ij,l)/=p(1,l) &
     102            .OR.p(ip1jm+ij,l)/=p(ip1jm+1,l) ) THEN
    103103      PRINT *,'STOP dans test_period car ---  P     ---  n est pas', &
    104104            ' constant aux poles ! '
Note: See TracChangeset for help on using the changeset viewer.