Ignore:
Timestamp:
Jan 4, 2019 1:01:33 PM (5 years ago)
Author:
kanani
Message:

Bugfix/additions to enable restarts with biometeorology (biometeorology_mod, module_interface)

File:
1 edited

Legend:

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

    r3649 r3650  
    2525! -----------------
    2626! $Id$
     27! Add restart routines for biometeorology
     28!
     29! 3649 2019-01-02 16:52:21Z suehring
    2730! Initialize strings, in order to avoid compiler warnings for non-initialized
    2831! characters with intent(out) attribute
     
    7578              bio_3d_data_averaging,                                           &
    7679              bio_data_output_2d,                                              &
    77               bio_data_output_3d
     80              bio_data_output_3d,                                              &
     81              bio_rrd_global,                                                  &
     82              bio_rrd_local,                                                   &
     83              bio_wrd_global,                                                  &
     84              bio_wrd_local
    7885
    7986   USE bulk_cloud_model_mod,                                                   &
     
    552559   CHARACTER (LEN=*), INTENT(OUT) ::  grid_z !< netcdf dimension in z-direction
    553560!
    554 !--As long as no action is done in this subroutine, initial strings with   
     561!--As long as no action is done in this subroutine, initialize strings with   
    555562!--intent(out) attribute, in order to avoid compiler warnings.
    556563   found  = .FALSE.
     
    878885   LOGICAL,           INTENT(OUT) ::  found    !< flag if variable was found
    879886
     887   IF ( .NOT. found )  CALL bio_rrd_global( found ) ! ToDo: change interface to pass variable
    880888   IF ( .NOT. found )  CALL bcm_rrd_global( found ) ! ToDo: change interface to pass variable
    881889   IF ( .NOT. found )  CALL flight_rrd_global( found ) ! ToDo: change interface to pass variable
     
    899907
    900908
     909   IF ( biometeorology )       CALL bio_wrd_global
    901910   IF ( bulk_cloud_model )     CALL bcm_wrd_global
    902911   IF ( virtual_flight )       CALL flight_wrd_global
     
    946955
    947956
     957   IF ( .NOT. found ) CALL bio_rrd_local(                                      &
     958                              found                                            &
     959                           )
     960
    948961   IF ( .NOT. found ) CALL bcm_rrd_local(                                      &
    949962                              file_index, map_index,                           &
     
    10391052
    10401053
     1054   IF ( biometeorology )       CALL bio_wrd_local
    10411055   IF ( bulk_cloud_model )     CALL bcm_wrd_local
    10421056   IF ( air_chemistry )        CALL chem_wrd_local
Note: See TracChangeset for help on using the changeset viewer.