Changeset 5843 for LMDZ6


Ignore:
Timestamp:
Sep 26, 2025, 3:47:38 PM (8 weeks ago)
Author:
jyg
Message:

Getting rid of "ments" and "qents" arrays within cva_driver.
Several comments to be cleared later.

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

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cv3_routines.f90

    r5840 r5843  
    23192319                      unk, vnk, hp, tv, tvp, ep, clw, m, sig, &
    23202320!!                      ment, qent, uent, vent, nent, sij, elij, ments, qents, traent)   !jyg: get rid of ntra
    2321                       ment, qent, uent, vent, nent, sij, elij, ments, qents)
     2321!!                      ment, qent, uent, vent, nent, sij, elij, ments, qents)           !jyg: get rid of ments
     2322                      ment, qent, uent, vent, nent, sij, elij)
    23222323  USE cvflag_mod_h
    23232324  USE lmdz_cv_ini, ONLY : cpd,cpv,minorig,nl,rrv,cpd,ginv,grav
    … …  
    23492350  REAL, DIMENSION (nloc, na, na), INTENT (OUT)        :: sij, elij
    23502351!!  REAL, DIMENSION (nloc, nd, nd, ntra), INTENT (OUT)  :: traent                        !jyg: get rid of ntra
    2351   REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)        :: ments, qents
     2352!!  REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)        :: ments, qents                  !jyg: get rid of ments
    23522353  INTEGER, DIMENSION (nloc, nd), INTENT (OUT)         :: nent
    23532354
    … …  
    26772678  END DO
    26782679
    2679   DO jm = 1, nl
    2680     DO im = 1, nl
    2681       DO il = 1, ncum
    2682         qents(il, im, jm) = qent(il, im, jm)
    2683         ments(il, im, jm) = ment(il, im, jm)
    2684       END DO
    2685     END DO
    2686   END DO
     2680!!  DO jm = 1, nl                                             !jyg: get rid of ments
     2681!!    DO im = 1, nl                                           !jyg: get rid of ments
     2682!!      DO il = 1, ncum                                       !jyg: get rid of ments
     2683!!        qents(il, im, jm) = qent(il, im, jm)                !jyg: get rid of ments
     2684!!        ments(il, im, jm) = ment(il, im, jm)                !jyg: get rid of ments
     2685!!      END DO                                                !jyg: get rid of ments
     2686!!    END DO                                                  !jyg: get rid of ments
     2687!!  END DO                                                    !jyg: get rid of ments
    26872688
    26882689  RETURN

  • LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90

    r5840 r5843  
    1515                       Ment, Qent, hent, uent, vent, nent, &
    1616!!                       Sigij, elij, supmax, Ments, Qents, traent)                       !jyg: get rid of ntra
    17                        Sigij, elij, supmax, Ments, Qents)
     17!!                       Sigij, elij, supmax, Ments, Qents)                               !jyg: get rid of ments
     18                       Sigij, elij, supmax)
    1819! **************************************************************
    1920! *
    … …  
    6263                                                                         ! updraughts with the sign of (h-hp)
    6364!!  REAL, DIMENSION (nloc, nd, nd, ntra), INTENT (OUT) :: traent                          !jyg: get rid of ntra
    64   REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)       :: Ments, Qents
     65!!  REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)       :: Ments, Qents                    !jyg: get rid of ments
    6566  REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)       :: hent
    6667  INTEGER, DIMENSION (nloc, nd), INTENT (OUT)        :: nent

  • LMDZ6/trunk/libf/phylmd/cva_driver.f90

    r5840 r5843  
    561561  REAL hent(nloc, nd, nd)
    562562  REAL uent(nloc, nd, nd), vent(nloc, nd, nd)
    563   REAL ments(nloc, nd, nd), qents(nloc, nd, nd)
     563!!  REAL ments(nloc, nd, nd), qents(nloc, nd, nd)                               !jyg: get rid of ments
    564564  REAL elij(nloc, nd, nd)
    565565  REAL supmax(nloc, nd)
    … …  
    10211021                         ment, qent, hent, uent, vent, nent, &
    10221022!!                         sigij, elij, supmax, ments, qents, traent)                                    !jyg: get rid of ntra
    1023                          sigij, elij, supmax, ments, qents)                                             
     1023!!                         sigij, elij, supmax, ments, qents)                                            !jyg: get rid of ments
     1024                         sigij, elij, supmax)                                             
    10241025! print*, 'cv3p_mixing-> supmax ', (supmax(1,k), k=1,nd)
    10251026
    … …  
    11041105                        unk, vnk, hp, tv, tvp, ep, clw, m, sig, &
    11051106!!                        ment, qent, uent, vent, nent, sigij, elij, ments, qents, traent)     !jyg: get rid of ntra
    1106                         ment, qent, uent, vent, nent, sigij, elij, ments, qents)               
     1107!!                        ment, qent, uent, vent, nent, sigij, elij, ments, qents)             !jyg: get rid of ments
     1108                        ment, qent, uent, vent, nent, sigij, elij)
    11071109        hent(1:nloc,1:nd,1:nd) = 0.
    11081110      ELSE
Note: See TracChangeset for help on using the changeset viewer.