Changeset 5260 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 22, 2024, 5:40:07 PM (2 months ago)
Author:
abarral
Message:

Wrap uses of cpp key OUTPUTPHYSSCM

Location:
LMDZ6/trunk/libf/phylmd/dyn1d
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

    r5213 r5260  
    4545   USE temps_mod, ONLY: annee_ref, calend, day_end, day_ini, day_ref, &
    4646                        itau_dyn, itau_phy, start_time, year_len
    47    USE phys_cal_mod, ONLY : year_len_phys_cal_mod => year_len
     47   USE phys_cal_mod, ONLY : year_len_phys_cal_mod => year_len
     48   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_OUTPUTPHYSSCM
    4849
    4950      implicit none
     
    10461047!
    10471048!=====================================================================
    1048 #ifdef OUTPUT_PHYS_SCM
     1049IF (CPPKEY_OUTPUTPHYSSCM) THEN
    10491050       CALL iophys_ini(timestep)
    1050 #endif
     1051END IF
    10511052! START OF THE TEMPORAL LOOP :
    10521053!=====================================================================
     
    12991300     &             +dt_cooling(1:mxcalc))  ! Taux de chauffage ou refroid.
    13001301
    1301 #ifdef OUTPUT_PHYS_SCM
     1302IF (CPPKEY_OUTPUTPHYSSCM) THEN
    13021303      CALL iophys_ecrit('d_t_adv',klev,'d_t_adv','m/s',d_t_adv)
    13031304      CALL iophys_ecrit('d_t_nudge',klev,'d_t_nudge','m/s',d_t_nudge)
    1304 #endif
     1305END IF
    13051306
    13061307      endif  ! forcing_sandu or forcing_astex
  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90

    r5213 r5260  
    4141   USE temps_mod, ONLY: annee_ref, calend, day_end, day_ini, day_ref, &
    4242                        itau_dyn, itau_phy, start_time, year_len
    43    USE phys_cal_mod, ONLY : year_len_phys_cal_mod => year_len
     43   USE phys_cal_mod, ONLY : year_len_phys_cal_mod => year_len
     44   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_OUTPUTPHYSSCM
    4445
    4546      implicit none
     
    6162! DECLARATIONS
    6263!=====================================================================
    63 
    64 #undef OUTPUT_PHYS_SCM
    6564
    6665!---------------------------------------------------------------------
     
    795794!
    796795!=====================================================================
    797 #ifdef OUTPUT_PHYS_SCM
     796IF (CPPKEY_OUTPUTPHYSSCM) THEN
    798797       CALL iophys_ini(timestep)
    799 #endif
     798END IF
    800799
    801800!=====================================================================
     
    10091008!---------------------------------------------------------------------
    10101009
    1011 #ifdef OUTPUT_PHYS_SCM
     1010IF (CPPKEY_OUTPUTPHYSSCM) THEN
    10121011      CALL iophys_ecrit('w_adv',klev,'w_adv','K/day',w_adv)
    10131012      CALL iophys_ecrit('z_adv',klev,'z_adv','K/day',z_adv)
     
    10241023      CALL iophys_ecrit('dtnud',klev,'dtnud','K/day',86400*d_t_nudge)
    10251024      CALL iophys_ecrit('dqnud',klev,'dqnud','K/day',1000*86400*d_q_nudge(:,1))
    1026 #endif
     1025END IF
    10271026
    10281027    IF (flag_inhib_forcing == 0) then ! if tendency of forcings should be added
Note: See TracChangeset for help on using the changeset viewer.