Changeset 3671 for LMDZ6/trunk


Ignore:
Timestamp:
Apr 29, 2020, 3:48:22 PM (5 years ago)
Author:
jyg
Message:

Bug fix in cv3p1_closure,F90 and cv3p2_closure.F90

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cv3p1_closure.F90

    r3571 r3671  
    4141
    4242  ! input/output:
     43  INTEGER, DIMENSION (nloc), INTENT (INOUT)          :: iflag
    4344  REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: sig, w0
    4445  REAL, DIMENSION (nloc), INTENT (INOUT)             :: ptop2
    … …  
    5354  REAL, DIMENSION (nloc), INTENT (OUT)               :: cbmf, plfc
    5455  REAL, DIMENSION (nloc), INTENT (OUT)               :: wbeff
    55   INTEGER, DIMENSION (nloc), INTENT (OUT)            :: iflag
    5656
    5757  ! local variables:

  • LMDZ6/trunk/libf/phylmd/cv3p2_closure.F90

    r3571 r3671  
    4141
    4242  ! input/output:
     43  INTEGER, DIMENSION (nloc), INTENT (INOUT)          :: iflag
    4344  REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: sig, w0
    4445  REAL, DIMENSION (nloc), INTENT (INOUT)             :: ptop2
    … …  
    5354  REAL, DIMENSION (nloc), INTENT (OUT)               :: cbmflast, plfc
    5455  REAL, DIMENSION (nloc), INTENT (OUT)               :: wbeff
    55   INTEGER, DIMENSION (nloc), INTENT (OUT)            :: iflag
    5656
    5757  ! local variables:
Note: See TracChangeset for help on using the changeset viewer.