Ignore:
Timestamp:
May 30, 2019 9:50:11 AM (2 years ago)
Author:
moh.hefny
Message:

Bugfix in check radiation related variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/module_interface.f90

    r4004 r4008  
    12311231    ENDIF
    12321232
     1233    IF ( .NOT. found  .AND.  radiation )  THEN
     1234       CALL radiation_data_output_2d(                                          &
     1235               av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
     1236            )
     1237    ENDIF
     1238
    12331239    IF ( .NOT. found  .AND.  salsa )  THEN
    12341240       CALL salsa_data_output_2d(                                              &
    1235                av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
    1236             )
    1237     ENDIF
    1238 
    1239     IF ( .NOT. found  .AND.  radiation )  THEN
    1240        CALL radiation_data_output_2d(                                          &
    12411241               av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
    12421242            )
     
    13131313    ENDIF
    13141314
     1315    IF ( .NOT. found  .AND.  radiation )  THEN
     1316       CALL radiation_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
     1317       resorted = .TRUE.
     1318    ENDIF
     1319
    13151320    IF ( .NOT. found  .AND.  salsa )  THEN
    13161321       CALL salsa_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
    1317        resorted = .TRUE.
    1318     ENDIF
    1319 
    1320     IF ( .NOT. found  .AND.  radiation )  THEN
    1321        CALL radiation_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
    13221322       resorted = .TRUE.
    13231323    ENDIF
Note: See TracChangeset for help on using the changeset viewer.