Changeset 6012 for LMDZ6/trunk


Ignore:
Timestamp:
Jan 9, 2026, 9:16:16 PM (6 days ago)
Author:
evignon
Message:

nettoyage code obsolete, valide par F. Cheruy

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

Legend:

Unmodified
Added
Removed

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

    r6011 r6012  
    45794579       ENDIF
    45804580
    4581        !
    4582        !sonia : If Iflag_radia >=2, pertubation of some variables
    4583        !input to radiation (DICE)
    4584        !
    4585        IF (iflag_radia .ge. 2) THEN
    4586           zsav_tsol (:) = zxtsol(:)
    4587           CALL perturb_radlwsw(zxtsol,iflag_radia)
    4588        ENDIF
    45894581
    45904582       IF (aerosol_couple.AND.config_inca=='aero') THEN

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r6011 r6012  
    61166116       ENDIF
    61176117
    6118        !
    6119        !sonia : If Iflag_radia >=2, pertubation of some variables
    6120        !input to radiation (DICE)
    6121        !
    6122        IF (iflag_radia .ge. 2) THEN
    6123           zsav_tsol (:) = zxtsol(:)
    6124           CALL perturb_radlwsw(zxtsol,iflag_radia)
    6125        ENDIF
    61266118
    61276119       IF (aerosol_couple.AND.config_inca=='aero') THEN
Note: See TracChangeset for help on using the changeset viewer.