Changeset 5666 for LMDZ6


Ignore:
Timestamp:
May 21, 2025, 11:03:41 AM (3 weeks ago)
Author:
lguez
Message:

Add construct name

This is a very long test. A construct name helps to read the code.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5665 r5666  
    679679       !===== iflag_rrtm ================================================
    680680       !     
    681        IF (iflag_rrtm == 0) THEN       ! remettre 0 juste pour tester l'ancien rayt via rrtm
     681       test_iflag_rrtm: IF (iflag_rrtm == 0) THEN       ! remettre 0 juste pour tester l'ancien rayt via rrtm
    682682          !
    683683          !--- Mise a zero des tableaux output du rayonnement LW-AR4 ----------             
    … …  
    802802          ENDDO
    803803          !
    804        ELSE IF (iflag_rrtm == 1) then  
     804       ELSE IF (iflag_rrtm == 1) then test_iflag_rrtm
    805805#ifdef CPP_RRTM
    806806          !      if (prt_level.gt.10)write(lunout,*)'CPP_RRTM=.T.'
    … …  
    11661166          !======================================================================
    11671167          ! AI fev 2021
    1168        ELSE IF(iflag_rrtm == 2) THEN
     1168       ELSE IF(iflag_rrtm == 2) THEN test_iflag_rrtm
    11691169          print*,'Traitement cas iflag_rrtm = ',iflag_rrtm
    11701170          !    print*,'Mise a zero des flux '
    … …  
    15731573          print*,'Fin traitement ECRAD'
    15741574          ! Fin ECRAD
    1575        ENDIF        ! iflag_rrtm
     1575       ENDIF test_iflag_rrtm
    15761576       ! ecrad
    15771577       !======================================================================
Note: See TracChangeset for help on using the changeset viewer.