Changeset 3182 for palm/trunk/SOURCE/pmc_parent_mod.f90

Timestamp:

Jul 27, 2018 1:36:03 PM (6 years ago)

Author:

suehring

Message:

New Inifor features: grid stretching, improved command-interface, support start dates in different formats in both YYYYMMDD and YYYYMMDDHH, Ability to manually control input file prefixes (--radiation-prefix, --soil-preifx, --flow-prefix, --soilmoisture-prefix) for compatiblity with DWD forcast naming scheme; GNU-style short and long option; Prepared output of large-scale forcing profiles (no computation yet); Added preprocessor flag netcdf4 to switch output format between netCDF 3 and 4; Updated netCDF variable names and attributes to comply with PIDS v1.9; Inifor bugfixes: Improved compatibility with older Intel Intel compilers by avoiding implicit array allocation; Added origin_lon/_lat values and correct reference time in dynamic driver global attributes; corresponding PALM changes: adjustments to revised Inifor; variables names in dynamic driver adjusted; enable geostrophic forcing also in offline nested mode; variable names in LES-LES and COSMO offline nesting changed; lateral boundary flags for nesting, in- and outflow conditions renamed

File:

• palm/trunk/SOURCE/pmc_parent_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/pmc_parent_mod.f90

@@ -203 +203 @@
     INTEGER(iwp) ::  istat     !<
 
-
     DO  i = 1, SIZE( pmc_parent_for_child )-1
 
@@ -219 +218 @@
        CALL MPI_COMM_REMOTE_SIZE( children(childid)%inter_comm,                &
                                   children(childid)%inter_npes, istat )
-
 !
 !--    Intra communicator is used for MPI_GET
@@ -228 +226 @@
 
        ALLOCATE( children(childid)%pes(children(childid)%inter_npes))
-
 !
 !--    Allocate array of TYPE arraydef for all child PEs to store information
@@ -865 +862 @@
     DO
        CALL pmc_bcast( myname%couple_index, 0, comm=m_to_child_comm(childid) )
+
        IF ( myname%couple_index == -1 )  EXIT
+
        CALL pmc_bcast( myname%parentdesc,   0, comm=m_to_child_comm(childid) )
        CALL pmc_bcast( myname%nameonparent, 0, comm=m_to_child_comm(childid) )