Changeset 3176


Ignore:
Timestamp:
Feb 2, 2018, 11:41:17 AM (7 years ago)
Author:
Laurent Fairhead
Message:

inclusion of r3161 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

    r3154 r3176  
    26812681          !  every time step
    26822682          cvpas = cvpas_0
     2683          DO k=1,k_upper_cv
     2684             DO i=1,klon
     2685               IF (d_t_con(i,k) > 6.721 .AND. d_t_con(i,k) < 6.722 .AND.&
     2686                   d_q_con(i,k) > -.0002171 .AND. d_q_con(i,k) < -.0002170) THEN
     2687                     dtcon_multistep_max = 3.
     2688                     dqcon_multistep_max = 0.02
     2689               ENDIF
     2690             ENDDO
     2691          ENDDO
     2692!
    26832693          DO k=1,k_upper_cv
    26842694             DO i=1,klon
Note: See TracChangeset for help on using the changeset viewer.