Ignore:
Timestamp:
Jul 25, 2024, 8:45:50 AM (4 months ago)
Author:
abarral
Message:

Correct various minor mistakes from previous commits

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5118 r5123  
    14861486                                                                                                                                                                                                                                                                                                                                    DO i = 1, klon
    14871487                                                                                                                                                                                                                                                                                                                                      IF (tnondef(i, k, iff - 6).NE.missing_val) THEN
    1488                                                                                                                                                                                                                                                                                                                                         IF (
    1489                                                                                                                                                                                                                                                                                                                                           freq_outNMC(iff-6).LT.0) THEN
     1488                                                                                                                                                                                                                                                                                                                                        IF (                                                                                                                                                                                                                                                                                                                                          freq_outNMC(iff-6).LT.0) THEN
    14901489                                                                                                                                                                                                                                                                                                                                          freq_moyNMC(iff-6) =(mth_len*un_jour)/freq_calNMC(iff-6)
    14911490                                                                                                                                                                                                                                                                                                                                          ELSE
Note: See TracChangeset for help on using the changeset viewer.