Changeset 2932 for palm/trunk/SOURCE/plant_canopy_model_mod.f90

Timestamp:

Mar 26, 2018 9:39:22 AM (6 years ago)

Author:

maronga

Message:

renamed all Fortran NAMELISTS

File:

• palm/trunk/SOURCE/plant_canopy_model_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! renamed canopy_par to plant_canopy_parameters
+! 
+! 2920 2018-03-22 11:22:01Z kanani
 ! Move usm_lad_rma and prototype_lad to radiation_model (moh.hefny)
 ! 
@@ -945 +948 @@
 ! Description:
 ! ------------
-!> Parin for &canopy_par for plant canopy model
+!> Parin for &plant_canopy_parameters for plant canopy model
 !------------------------------------------------------------------------------!
     SUBROUTINE pcm_parin
 
        USE control_parameters,                                                 &
-           ONLY:  plant_canopy
+           ONLY:  message_string, plant_canopy
 
        IMPLICIT NONE
@@ -956 +959 @@
        CHARACTER (LEN=80) ::  line  !< dummy string that contains the current line of the parameter file 
        
+       NAMELIST /plant_canopy_parameters/                                      &
+                                  alpha_lad, beta_lad, canopy_drag_coeff,      &
+                                  canopy_mode, cthf,                           &
+                                  lad_surface,                                 & 
+                                  lad_vertical_gradient,                       &
+                                  lad_vertical_gradient_level,                 &
+                                  lai_beta,                                    &
+                                  leaf_scalar_exch_coeff,                      &
+                                  leaf_surface_conc, pch_index
+
        NAMELIST /canopy_par/      alpha_lad, beta_lad, canopy_drag_coeff,      &
                                   canopy_mode, cthf,                           &
@@ -964 +977 @@
                                   leaf_scalar_exch_coeff,                      &
                                   leaf_surface_conc, pch_index
-       
+                                  
        line = ' '
        
@@ -971 +984 @@
        REWIND ( 11 )
        line = ' '
-       DO   WHILE ( INDEX( line, '&canopy_par' ) == 0 )
+       DO   WHILE ( INDEX( line, '&plant_canopy_parameters' ) == 0 )
           READ ( 11, '(A)', END=10 )  line
        ENDDO
@@ -978 +991 @@
 !
 !--    Read user-defined namelist
-       READ ( 11, canopy_par )
+       READ ( 11, plant_canopy_parameters )
 
 !
 !--    Set flag that indicates that the radiation model is switched on
        plant_canopy = .TRUE.
-
- 10    CONTINUE
+       
+       GOTO 12
+!
+!--    Try to find old namelist
+ 10    REWIND ( 11 )
+       line = ' '
+       DO   WHILE ( INDEX( line, '&canopy_par' ) == 0 )
+          READ ( 11, '(A)', END=12 )  line
+       ENDDO
+       BACKSPACE ( 11 )
+
+!
+!--    Read user-defined namelist
+       READ ( 11, canopy_par )
+
+       message_string = 'namelist canopy_par is deprecated and will be ' // &
+                     'removed in near future. Please &use namelist ' //     &
+                     'plant_canopy_parameters instead'
+       CALL message( 'pcm_parin', 'PA0487', 0, 1, 0, 6, 0 )
+       
+!
+!--    Set flag that indicates that the radiation model is switched on
+       plant_canopy = .TRUE.
+
+ 12    CONTINUE