Changeset 2374 for palm/trunk
- Timestamp:
- Aug 28, 2017 10:03:03 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/vertical_nesting_mod.f90
r2365 r2374 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added todo list 28 ! 29 ! 2365 2017-08-21 14:59:59Z kanani 27 30 ! Initial revision (SadiqHuq) 28 31 ! … … 32 35 ! Description: 33 36 ! ------------ 34 ! Module for vertical nesting. 35 ! 36 ! Definition of parameters and variables for vertical nesting 37 !> Module for vertical nesting. 38 !> 39 !> Definition of parameters and variables for vertical nesting 40 !> 41 !> @todo Ensure that code can be compiled for serial and parallel mode. Please 42 !> check the placement of the directive "__parallel". 43 !> @todo Add descriptions for all declared variables/parameters, one declaration 44 !> statement per variable 45 !> @todo Add a descriptive header above each subroutine (see land_surface_model) 46 !> @todo FORTRAN language statements must not be used as names for variables 47 !> (e.g. if). Please rename it. 48 !> @todo Revise code according to PALM Coding Standard 37 49 !------------------------------------------------------------------------------! 38 50 MODULE vertical_nesting_mod … … 42 54 IMPLICIT NONE 43 55 44 INTEGER(iwp),DIMENSION(3,2) :: bdims=0,bdims_rem=0 56 INTEGER(iwp),DIMENSION(3,2) :: bdims = 0 57 INTEGER(iwp),DIMENSION(3,2) :: bdims_rem = 0 !> Add description. It should not be longer than up to this point | 58 !> If really necessary, a second line can be added like this. 45 59 INTEGER(iwp) :: cg_nprocs, fg_nprocs 46 60 INTEGER(iwp),DIMENSION(:,:,:),ALLOCATABLE:: c2f_dims_cg, f2c_dims_cg
Note: See TracChangeset
for help on using the changeset viewer.