Changeset 6061 for LMDZ6


Ignore:
Timestamp:
Feb 1, 2026, 9:44:59 PM (4 days ago)
Author:
evignon
Message:

petite correction pour le 1D

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6059 r6061  
    123123   ! Others
    124124
    125    LOGICAL, SAVE :: firstcall = .TRUE.
     125   LOGICAL, SAVE :: firstcall = .true.
    126126   !$OMP THREADPRIVATE(firstcall)
    127127
    … …  
    222222
    223223      IF (klon == 1 .AND. ok_gwd_rando) THEN
    224          abort_message = 'stochastic non-orographic gravity wave drag param does not work in 1D'
    225          CALL abort_physic('gwd_ini', abort_message, 1)
     224         print*, 'stochastic non-orographic gravity wave drag param does not work in 1D'
     225         print*, 'I set ok_gwd_rando to false'
     226         ok_gwd_rando=.false.
    226227      END IF
    227228
Note: See TracChangeset for help on using the changeset viewer.