Changeset 1320 for palm/trunk/SOURCE/surface_coupler.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (10 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

• palm/trunk/SOURCE/surface_coupler.f90 (modified) (5 diffs)

palm/trunk/SOURCE/surface_coupler.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! ONLY-attribute added to USE-statements,
+! kind-parameters added to all INTEGER and REAL declaration statements,
+! kinds are defined in new module kinds,
+! old module precision_kind is removed,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements 
 !
 ! Former revisions:
@@ -37 +43 @@
 ! 880 2012-04-13 06:28:59Z raasch
 ! Bugfix: preprocessor statements for parallel execution added
-!
-! 709 2011-03-30 09:31:40Z raasch
-! formatting adjustments
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Additional case for nonequivalent processor and grid topopolgy in ocean and 
-! atmosphere added (coupling_topology = 1).
-! Added exchange of u and v from Ocean to Atmosphere
-!
-! 291 2009-04-16 12:07:26Z raasch
-! Coupling with independent precursor runs.
-! Output of messages replaced by message handling routine.
-!
-! 206 2008-10-13 14:59:11Z raasch
-! Implementation of a MPI-1 Coupling: replaced myid with target_id,
-! deleted __mpi2 directives
 !
 ! 109 2007-08-28 15:26:47Z letzel
@@ -62 +52 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE control_parameters
-    USE cpulog
-    USE grid_variables
-    USE indices
+    USE arrays_3d,                                                             &
+        ONLY:  pt, shf, qsws, qswst_remote, rho, sa, saswst, total_2d_a,       &
+               total_2d_o, tswst, u, usws, uswst, v, vsws, vswst
+
+    USE control_parameters,                                                    &
+        ONLY:  coupling_mode, coupling_mode_remote, coupling_topology,         &
+               humidity, humidity_remote, message_string, terminate_coupled,   &
+               terminate_coupled_remote, time_since_reference_point
+
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point
+
+    USE indices,                                                               &
+        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, nx_a, nx_o, ny, nyn, nyng, nys, &
+               nysg, ny_a, ny_o, nzt
+
+    USE kinds
+
     USE pegrid
 
     IMPLICIT NONE
 
-    REAL    ::  time_since_reference_point_rem
-    REAL    ::  total_2d(-nbgp:ny+nbgp,-nbgp:nx+nbgp)
+    REAL(wp)    ::  time_since_reference_point_rem        !: 
+    REAL(wp)    ::  total_2d(-nbgp:ny+nbgp,-nbgp:nx+nbgp) !: 
 
 #if defined( __parallel )
@@ -418 +421 @@
 #if defined( __parallel )
 
-    USE arrays_3d
-    USE control_parameters
-    USE grid_variables
-    USE indices
-    USE pegrid
+    USE arrays_3d,                                                             &
+        ONLY:  total_2d_a, total_2d_o
+
+    USE indices,                                                               &
+        ONLY:  nbgp, nx, nx_a, nx_o, ny, ny_a, ny_o
+
+    USE kinds
+
+    USE pegrid,                                                                &
+        ONLY:  comm2d, comm_inter, ierr, MPI_DOUBLE_PRECISION, myid, ngp_a,    &
+               target_id
 
     IMPLICIT NONE
 
-    INTEGER             ::  dnx, dnx2, dny, dny2, i, ii, j, jj
-    INTEGER, intent(in) ::  tag
+    INTEGER(iwp) ::  dnx  !: 
+    INTEGER(iwp) ::  dnx2 !: 
+    INTEGER(iwp) ::  dny  !: 
+    INTEGER(iwp) ::  dny2 !: 
+    INTEGER(iwp) ::  i    !: 
+    INTEGER(iwp) ::  ii   !: 
+    INTEGER(iwp) ::  j    !: 
+    INTEGER(iwp) ::  jj   !: 
+
+    INTEGER(iwp), intent(in) ::  tag !: 
 
     CALL MPI_BARRIER( comm2d, ierr )
@@ -490 +507 @@
 #if defined( __parallel )
 
-    USE arrays_3d
-    USE control_parameters
-    USE grid_variables
-    USE indices
-    USE pegrid
+    USE arrays_3d,                                                             &
+        ONLY:  total_2d_a, total_2d_o
+
+    USE indices,                                                               &
+        ONLY:  nbgp, nx, nx_a, nx_o, ny, ny_a, ny_o
+
+    USE kinds
+
+    USE pegrid,                                                                &
+        ONLY:  comm2d, comm_inter, ierr, MPI_DOUBLE_PRECISION, myid, ngp_o,    &
+               target_id
 
     IMPLICIT NONE
 
-    INTEGER             ::  dnx, dny, i, ii, j, jj
-    INTEGER, intent(in) ::  tag
-    REAL                ::  fl, fr, myl, myr
-
+    INTEGER(iwp)             ::  dnx !: 
+    INTEGER(iwp)             ::  dny !: 
+    INTEGER(iwp)             ::  i   !: 
+    INTEGER(iwp)             ::  ii  !: 
+    INTEGER(iwp)             ::  j   !: 
+    INTEGER(iwp)             ::  jj  !: 
+    INTEGER(iwp), intent(in) ::  tag !: 
+
+    REAL(wp)                 ::  fl  !: 
+    REAL(wp)                 ::  fr  !: 
+    REAL(wp)                 ::  myl !: 
+    REAL(wp)                 ::  myr !: 
 
     CALL MPI_BARRIER( comm2d, ierr )