Ignore:
Timestamp:
Jul 19, 2024, 4:15:44 PM (4 months ago)
Author:
abarral
Message:

Commit linked to correcting relevant warnings during gfortran compilation

[minor]
Correct remnants of fixed-form "+" in massbarxy.F90
Correct COMMON alignment in clesphys.h, flux_arp.h, cv*param.h, YOECUMF.h, alpale.h
Correct obsolete logical operators
Restrict use of iso_fortran_env in nf95_abort.f90
Remove redundant save in module declarations
Remove <continue> without labels
Fix nonstandard kind selectors

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F

    r4143 r5081  
    301301      IF( purmats ) THEN
    302302      ! Purely Matsuno time stepping
    303          IF( MOD(itau,iconser) .EQ.0.AND.  forward    ) conser = .TRUE.
    304          IF( MOD(itau,dissip_period ).EQ.0.AND..NOT.forward )
     303         IF( MOD(itau,iconser) ==0.AND.  forward    ) conser = .TRUE.
     304         IF( MOD(itau,dissip_period )==0.AND..NOT.forward )
    305305     s        apdiss = .TRUE.
    306          IF( MOD(itau,iphysiq ).EQ.0.AND..NOT.forward
     306         IF( MOD(itau,iphysiq )==0.AND..NOT.forward
    307307     s          .and. physic                        ) apphys = .TRUE.
    308308      ELSE
    309309      ! Leapfrog/Matsuno time stepping
    310          IF( MOD(itau   ,iconser) .EQ. 0              ) conser = .TRUE.
    311          IF( MOD(itau+1,dissip_period).EQ.0 .AND. .NOT. forward )
     310         IF( MOD(itau   ,iconser) == 0              ) conser = .TRUE.
     311         IF( MOD(itau+1,dissip_period)==0 .AND. .NOT. forward )
    312312     s        apdiss = .TRUE.
    313          IF( MOD(itau+1,iphysiq).EQ.0.AND.physic       ) apphys=.TRUE.
     313         IF( MOD(itau+1,iphysiq)==0.AND.physic       ) apphys=.TRUE.
    314314      END IF
    315315
    316316! Ehouarn: for Shallow Water case (ie: 1 vertical layer),
    317317!          supress dissipation step
    318       if (llm.eq.1) then
     318      if (llm==1) then
    319319        apdiss=.false.
    320320      endif
     
    387387c
    388388       IF( purmats )  THEN
    389           IF( itau.EQ.itaufin.AND..NOT.forward ) lafin = .TRUE.
     389          IF( itau==itaufin.AND..NOT.forward ) lafin = .TRUE.
    390390       ELSE
    391391          IF( itau+1. EQ. itaufin )              lafin = .TRUE.
     
    418418     &          (itau+1)/day_step
    419419
    420            IF (planet_type .eq."generic") THEN
     420           IF (planet_type =="generic") THEN
    421421              ! AS: we make jD_cur to be pday
    422422              jD_cur = int(day_ini + itau/day_step)
     
    441441
    442442c  Diagnostique de conservation de l'energie : initialisation
    443          IF (ip_ebil_dyn.ge.1 ) THEN
     443         IF (ip_ebil_dyn>=1 ) THEN
    444444          ztit='bil dyn'
    445445! Ehouarn: be careful, diagedyn is Earth-specific!
    446            IF (planet_type.eq."earth") THEN
     446           IF (planet_type=="earth") THEN
    447447            CALL diagedyn(ztit,2,1,1,dtphys
    448448     &    , ucov    , vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
     
    488488c
    489489c  Diagnostique de conservation de l'energie : difference
    490          IF (ip_ebil_dyn.ge.1 ) THEN
     490         IF (ip_ebil_dyn>=1 ) THEN
    491491          ztit='bil phys'
    492           IF (planet_type.eq."earth") THEN
     492          IF (planet_type=="earth") THEN
    493493           CALL diagedyn(ztit,2,1,1,dtphys
    494494     &     , ucov    , vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
     
    498498       ENDIF ! of IF( apphys )
    499499
    500       IF(iflag_phys.EQ.2) THEN ! "Newtonian" case
     500      IF(iflag_phys==2) THEN ! "Newtonian" case
    501501!   Academic case : Simple friction and Newtonan relaxation
    502502!   -------------------------------------------------------
     
    508508        ENDDO ! of DO l=1,llm
    509509       
    510         if (planet_type.eq."giant") then
     510        if (planet_type=="giant") then
    511511          ! add an intrinsic heat flux at the base of the atmosphere
    512512          teta(:,1)=teta(:,1)+dtvr*aire(:)*ihf/cpp/masse(:,1)
     
    663663c   -------------------------------------
    664664
    665             IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) THEN
    666                IF(itau.EQ.itaufin) THEN
     665            IF(MOD(itau,iperiod)==0 .OR. itau==itaufin) THEN
     666               IF(itau==itaufin) THEN
    667667                  iav=1
    668668               ELSE
     
    694694c   ------------------------------
    695695
    696             IF( MOD(itau,iecri).EQ.0) THEN
     696            IF( MOD(itau,iecri)==0) THEN
    697697             ! Ehouarn: output only during LF or Backward Matsuno
    698698             if (leapf.or.(.not.leapf.and.(.not.forward))) then
     
    721721            ENDIF ! of IF(MOD(itau,iecri).EQ.0)
    722722
    723             IF(itau.EQ.itaufin) THEN
     723            IF(itau==itaufin) THEN
    724724
    725725
     
    743743c   ------------------------------------
    744744
    745             IF( MOD(itau,iperiod).EQ.0 )    THEN
     745            IF( MOD(itau,iperiod)==0 )    THEN
    746746                    GO TO 1
    747747            ELSE IF ( MOD(itau-1,iperiod). EQ. 0 ) THEN
Note: See TracChangeset for help on using the changeset viewer.