Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (4 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/principal_cshift_m.F90

    r5116 r5117  
    1111    ! xprimm.
    1212
    13     use nrtype, ONLY: twopi
    14     use serre_mod, ONLY: clon
     13    USE lmdz_physical_constants, ONLY: twopi
     14    USE serre_mod, ONLY: clon
    1515
    1616    include "dimensions.h"
    1717    ! for iim
    1818
    19     integer, intent(in):: is2
    20     real, intent(inout):: xlon(:), xprimm(:) ! (iim + 1)
     19    INTEGER, INTENT(IN):: is2
     20    REAL, INTENT(INOUT):: xlon(:), xprimm(:) ! (iim + 1)
    2121
    2222    !-----------------------------------------------------
    2323
    24     if (is2 /= 0) THEN
     24    IF (is2 /= 0) THEN
    2525       IF (clon <= 0.) THEN
    2626          IF (is2 /= 1) THEN
Note: See TracChangeset for help on using the changeset viewer.