Changeset 3107 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Dec 3, 2017, 10:09:31 PM (7 years ago)
Author:
oboucher
Message:

Minor changes related to previous commit

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

Legend:

Unmodified
Added
Removed

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

    r3106 r3107  
    666666    ! Set swaerofree_diag=true if at least one of the concerned variables are defined
    667667    IF (var%name=='SWupTOAcleanclr' .OR. var%name=='SWupSFCcleanclr' .OR. var%name=='SWdnSFCcleanclr' .OR. &
    668         var%name=='LWupTOAcleanclr' .OR. var%name=='LWupSFCcleanclr' .OR. var%name=='LWdnSFCcleanclr' ) THEN
     668        var%name=='LWupTOAcleanclr' .OR. var%name=='LWdnSFCcleanclr' ) THEN
    669669       IF  ( var%flag(iff)<=lev_files(iff) ) swaerofree_diag=.TRUE.
    670670    ENDIF

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

    r3106 r3107  
    16281628           xios_field_is_active("SWupTOAcleanclr").OR.xios_field_is_active("rsucsaf").OR.   &
    16291629           xios_field_is_active("rsdcsaf") .OR. xios_field_is_active("LWdnSFCcleanclr").OR. &
    1630            xios_field_is_active("LWupSFCcleanclr").OR. xios_field_is_active("LWupTOAcleanclr")) &
     1630           xios_field_is_active("LWupTOAcleanclr")) &
    16311631           swaerofree_diag=.TRUE.
    16321632
Note: See TracChangeset for help on using the changeset viewer.