Ignore:
Timestamp:
Mar 20, 2018 1:00:05 PM (4 years ago)
Author:
knoop
Message:

Added gust module interface calls to restart data modules

File:
1 edited

Legend:

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

    r2894 r2912  
    2525! -----------------
    2626! $Id$
     27! Added gust module interface calls
     28!
     29! 2894 2018-03-15 09:17:58Z Giersch
    2730! Initial revision
    2831!
     
    8184       USE grid_variables,                                                     &
    8285           ONLY:  dx, dy
     86
     87       USE gust_mod,                                                           &
     88           ONLY :  gust_rrd_global
    8389
    8490       USE indices,                                                            &
     
    726732                IF ( .NOT. found ) CALL stg_rrd_global ( found )
    727733
     734                IF ( .NOT. found ) CALL gust_rrd_global( found )
     735
    728736                IF ( .NOT. found ) CALL user_rrd_global( found )
    729737
     
    10051013    USE cpulog,                                                                &
    10061014        ONLY:  cpu_log, log_point_s
     1015
     1016    USE gust_mod,                                                           &
     1017        ONLY :  gust_rrd_local
    10071018
    10081019    USE indices,                                                               &
     
    19811992
    19821993!
     1994!--                Read gust module restart data
     1995                   IF ( .NOT. found ) CALL gust_rrd_local( i, k, nxlf,         &
     1996                                           nxlc, nxl_on_file, nxrf, nxrc,      &
     1997                                           nxr_on_file, nynf, nync,            &
     1998                                           nyn_on_file, nysf, nysc,            &
     1999                                           nys_on_file, tmp_2d, tmp_3d, found )
     2000
     2001!
    19832002!--                Read user-defined restart data
    19842003                   IF ( .NOT. found ) CALL user_rrd_local( i, k, nxlf,         &
Note: See TracChangeset for help on using the changeset viewer.