Changeset 1141 in lmdz_wrf for trunk/tools


Ignore:
Timestamp:
Oct 5, 2016, 3:51:02 PM (9 years ago)
Author:
lfita
Message:

Fixinf some variable definition order which does not like to `ifort'

Location:
trunk/tools
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/module_ForDiagnostics.F90

    r772 r1141  
    3232
    3333    INTEGER, PARAMETER                                   :: r_k = KIND(1.d0)
     34    INTEGER, INTENT(in)                                  :: d1, d2, d3, d4
    3435    REAL(r_k), DIMENSION(d1,d2,d3,d4), INTENT(in)        :: cldfra4D, pres4D
    35     INTEGER, INTENT(in)                                  :: d1, d2, d3, d4
    3636    REAL(r_k), DIMENSION(3,d1,d3,d4), INTENT(out)        :: cllmh4D2
    3737
    … …  
    7272
    7373    INTEGER, PARAMETER                                   :: r_k = KIND(1.d0)
     74    INTEGER, INTENT(in)                                  :: d1, d2, d3
    7475    REAL(r_k), DIMENSION(d1,d2,d3), INTENT(in)           :: cldfra3D, pres3D
    75     INTEGER, INTENT(in)                                  :: d1, d2, d3
    7676    REAL(r_k), DIMENSION(3,d2,d3), INTENT(out)           :: cllmh3D1
    7777
    … …  
    110110
    111111    INTEGER, PARAMETER                                   :: r_k = KIND(1.d0)
     112    INTEGER, INTENT(in)                                  :: Ndim, d1, d2, d3, d4, zdim
    112113    REAL(r_k), DIMENSION(d1), OPTIONAL, INTENT(in)       :: cldfra1D, pres1D
    113114    REAL(r_k), DIMENSION(d1,d2), OPTIONAL, INTENT(in)    :: cldfra2D, pres2D
    … …  
    115116    REAL(r_k), DIMENSION(d1,d2,d3,d4), OPTIONAL,                                                      &
    116117      INTENT(in)                                         :: cldfra4D, pres4D
    117     INTEGER, INTENT(in)                                  :: Ndim, d1, d2, d3, d4, zdim
    118118    REAL(r_k), DIMENSION(3), OPTIONAL, INTENT(out)       :: cllmh1D
    119119    REAL(r_k), DIMENSION(d1,3), OPTIONAL, INTENT(out)    :: cllmh2D1
    … …  
    254254
    255255    INTEGER, PARAMETER                                   :: r_k = KIND(1.d0)
     256    INTEGER, INTENT(in)                                  :: d1, d2, d3, d4
    256257    REAL(r_k), DIMENSION(d1,d2,d3,d4), INTENT(in)        :: cldfra4D
    257     INTEGER, INTENT(in)                                  :: d1, d2, d3, d4
    258258    REAL(r_k), DIMENSION(d1,d3,d4), INTENT(out)          :: clt4D2
    259259
    … …  
    293293
    294294    INTEGER, PARAMETER                                   :: r_k = KIND(1.d0)
     295    INTEGER, INTENT(in)                                  :: d1, d2, d3
    295296    REAL(r_k), DIMENSION(d1,d2,d3), INTENT(in)           :: cldfra3D
    296     INTEGER, INTENT(in)                                  :: d1, d2, d3
    297297    REAL(r_k), DIMENSION(d2,d3), INTENT(out)             :: clt3D1
    298298
    … …  
    329329
    330330    INTEGER, PARAMETER                                   :: r_k = KIND(1.d0)
     331    INTEGER, INTENT(in)                                  :: Ndim, d1, d2, d3, d4, zdim
    331332    REAL(r_k), DIMENSION(d1), OPTIONAL, INTENT(in)       :: cldfra1D
    332333    REAL(r_k), DIMENSION(d1,d2), OPTIONAL, INTENT(in)    :: cldfra2D
    … …  
    334335    REAL(r_k), DIMENSION(d1,d2,d3,d4), OPTIONAL,                                                      &
    335336      INTENT(in)                                         :: cldfra4D
    336     INTEGER, INTENT(in)                                  :: Ndim, d1, d2, d3, d4, zdim
    337337    REAL(r_k), OPTIONAL, INTENT(out)                     :: clt1D
    338338    REAL(r_k), DIMENSION(d1), OPTIONAL, INTENT(out)      :: clt2D1

  • trunk/tools/module_ForDiagnosticsVars.F90

    r772 r1141  
    9898
    9999    INTEGER, PARAMETER                                   :: r_k = KIND(1.d0)
     100    INTEGER, INTENT(in)                                  :: dz
    100101    REAL(r_k), DIMENSION(dz), INTENT(in)                 :: clfra
    101     INTEGER, INTENT(in)                                  :: dz
    102102! Local
    103103    INTEGER                                              :: iz
Note: See TracChangeset for help on using the changeset viewer.