Ignore:
Timestamp:
Feb 7, 2019 10:11:02 AM (3 years ago)
Author:
raasch
Message:

modifications to avoid compiler warnings about unused variables, temperton-fft: GOTO statements replaced, file re-formatted corresponding to coding standards, ssh-calls for compilations on remote systems modified to avoid output of login messages on specific systems changed again (palmbuild, reverted as before r3549), error messages for failed restarts extended (palmrun)

File:
1 edited

Legend:

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

    r3685 r3725  
    2525! -----------------
    2626! $Id$
     27! dummy statement modified to avoid compiler warnings about unused variables
     28!
     29! 3685 2019-01-21 01:02:11Z knoop
    2730! Some interface calls moved to module_interface + cleanup
    2831!
     
    445448!
    446449!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
    447        IF ( found .AND. two_d )  idum = av + LEN( variable ) + LEN( grid ) + local_pf(nxl,nys,nzb_do) + fill_value
     450       IF ( found .AND. two_d )  THEN
     451          idum = av + LEN( variable ) + LEN( grid // mode ) + local_pf(nxl,nys,nzb_do) + fill_value
     452       ENDIF
    448453
    449454    END SUBROUTINE gust_data_output_2d
Note: See TracChangeset for help on using the changeset viewer.