Ignore:
Timestamp:
Dec 6, 2024, 2:10:59 PM (7 days ago)
Author:
evignon
Message:

ecriture de certaines declarations sur plusieurs lignes par souci de clarté

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/aeropt_5wv.f90

    r5285 r5394  
    9797!$OMP THREADPRIVATE(presnivs_19)
    9898
    99   REAL, SAVE, DIMENSION(nb_level) :: A1_ASSSM_19, A2_ASSSM_19, A3_ASSSM_19,&
    100           B1_ASSSM_19, B2_ASSSM_19, C1_ASSSM_19, C2_ASSSM_19,&
    101           A1_CSSSM_19, A2_CSSSM_19, A3_CSSSM_19,&
    102           B1_CSSSM_19, B2_CSSSM_19, C1_CSSSM_19, C2_CSSSM_19, &
    103           A1_SSSSM_19, A2_SSSSM_19, A3_SSSSM_19,&
    104           B1_SSSSM_19, B2_SSSSM_19, C1_SSSSM_19, C2_SSSSM_19
     99REAL, SAVE, DIMENSION(nb_level) ::          A1_ASSSM_19, A2_ASSSM_19, A3_ASSSM_19
     100REAL, SAVE, DIMENSION(nb_level) ::          B1_ASSSM_19, B2_ASSSM_19, C1_ASSSM_19, C2_ASSSM_19
     101REAL, SAVE, DIMENSION(nb_level) ::          A1_CSSSM_19, A2_CSSSM_19, A3_CSSSM_19
     102REAL, SAVE, DIMENSION(nb_level) ::          B1_CSSSM_19, B2_CSSSM_19, C1_CSSSM_19, C2_CSSSM_19
     103REAL, SAVE, DIMENSION(nb_level) ::          A1_SSSSM_19, A2_SSSSM_19, A3_SSSSM_19
     104REAL, SAVE, DIMENSION(nb_level) ::          B1_SSSSM_19, B2_SSSSM_19, C1_SSSSM_19, C2_SSSSM_19
    105105!$OMP THREADPRIVATE(A1_ASSSM_19, A2_ASSSM_19, A3_ASSSM_19)
    106106!$OMP THREADPRIVATE(B1_ASSSM_19, B2_ASSSM_19, C1_ASSSM_19, C2_ASSSM_19)
     
    111111
    112112  ! Coefficient optiques interpole sur le nombre de niveau du modele
    113   REAL, ALLOCATABLE,  DIMENSION(:), SAVE :: &
    114           A1_ASSSM, A2_ASSSM, A3_ASSSM,&
    115           B1_ASSSM, B2_ASSSM, C1_ASSSM, C2_ASSSM,&
    116           A1_CSSSM, A2_CSSSM, A3_CSSSM,&
    117           B1_CSSSM, B2_CSSSM, C1_CSSSM, C2_CSSSM, &
    118           A1_SSSSM, A2_SSSSM, A3_SSSSM,&
    119           B1_SSSSM, B2_SSSSM, C1_SSSSM, C2_SSSSM
     113  REAL, ALLOCATABLE,  DIMENSION(:), SAVE ::  A1_ASSSM, A2_ASSSM, A3_ASSSM
     114  REAL, ALLOCATABLE,  DIMENSION(:), SAVE ::  B1_ASSSM, B2_ASSSM, C1_ASSSM, C2_ASSSM
     115  REAL, ALLOCATABLE,  DIMENSION(:), SAVE ::  A1_CSSSM, A2_CSSSM, A3_CSSSM
     116  REAL, ALLOCATABLE,  DIMENSION(:), SAVE ::  B1_CSSSM, B2_CSSSM, C1_CSSSM, C2_CSSSM
     117  REAL, ALLOCATABLE,  DIMENSION(:), SAVE ::  A1_SSSSM, A2_SSSSM, A3_SSSSM
     118  REAL, ALLOCATABLE,  DIMENSION(:), SAVE ::  B1_SSSSM, B2_SSSSM, C1_SSSSM, C2_SSSSM
    120119!$OMP THREADPRIVATE(A1_ASSSM, A2_ASSSM, A3_ASSSM)
    121120!$OMP THREADPRIVATE(B1_ASSSM, B2_ASSSM, C1_ASSSM, C2_ASSSM)
Note: See TracChangeset for help on using the changeset viewer.