Changeset 0f7835d in flexpart.git for src/mpi_mod.f90

Timestamp:

Aug 3, 2016, 3:02:42 PM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

861805a, 93786a1

Parents:

f28aa0a

Message:

Changed a variable in domain-filling option (MPI). Deleted an unused function from mpi_mod.f90

File:

• src/mpi_mod.f90 (modified) (1 diff)

src/mpi_mod.f90

@@ -2444 +2444 @@
     end subroutine write_data_dbg
 
-
-  subroutine set_fields_synthetic()
-!*******************************************************************************
-! DESCRIPTION
-!   Set all meteorological fields to synthetic (usually constant/homogeneous)
-!   values.
-!   Used for validation and error-checking
-!
-! NOTE
-!   This version uses asynchronious communications.
-!
-! VARIABLES
-!   
-!
-!
-!*******************************************************************************
-    use com_mod
-
-    implicit none
-
-    integer :: li=1, ui=2 ! wfmem indices (i.e, operate on entire field)
-
-    if (.not.lmp_sync) ui=3
-
-
-! Variables transferred at initialization only
-!*********************************************
-!    readclouds=readclouds_
-    oro(:,:)=0.0
-    excessoro(:,:)=0.0
-    lsm(:,:)=0.0
-    xlanduse(:,:,:)=0.0
-!    wftime
-!    numbwf
-!    nmixz
-!    height
-
-! Time-varying fields:
-    uu(:,:,:,li:ui) = 10.0
-    vv(:,:,:,li:ui) = 0.0
-    uupol(:,:,:,li:ui) = 10.0
-    vvpol(:,:,:,li:ui)=0.0
-    ww(:,:,:,li:ui)=0.
-    tt(:,:,:,li:ui)=300.
-    rho(:,:,:,li:ui)=1.3
-    drhodz(:,:,:,li:ui)=.0
-    tth(:,:,:,li:ui)=0.0
-    qvh(:,:,:,li:ui)=1.0
-    qv(:,:,:,li:ui)=1.0
-
-    pv(:,:,:,li:ui)=1.0
-    clouds(:,:,:,li:ui)=0
-
-    clwc(:,:,:,li:ui)=0.0
-    ciwc(:,:,:,li:ui)=0.0
-  
-! 2D fields
-
-    cloudsh(:,:,li:ui)=0
-    vdep(:,:,:,li:ui)=0.0
-    ps(:,:,:,li:ui)=1.0e5
-    sd(:,:,:,li:ui)=0.0
-    tcc(:,:,:,li:ui)=0.0
-    tt2(:,:,:,li:ui)=300.
-    td2(:,:,:,li:ui)=250.
-    lsprec(:,:,:,li:ui)=0.0
-    convprec(:,:,:,li:ui)=0.0
-    ustar(:,:,:,li:ui)=1.0
-    wstar(:,:,:,li:ui)=1.0
-    hmix(:,:,:,li:ui)=10000.
-    tropopause(:,:,:,li:ui)=10000.
-    oli(:,:,:,li:ui)=0.01
- 
-  end subroutine set_fields_synthetic
-
 end module mpi_mod