Automation for date selection, checking_1

source/config.f90

@@ -128,16 +128,16 @@ module config
 
         subroutine config_init()
 
-            open(1, file='ui1_config.nml', status='old')
+            open(1, file = 'ui1_config.nml', status = 'old', action = 'read')
             read(1, nml = config_namelist)
             close(1)
 
-            open(1, file='station_config.nml', status='old')
-            read(1, nml=station_config_namelist)
-            close(1)
-
             call config_check()
 
+            open(10, file = 'station_config.nml', status = 'old', action = 'read')
+            read(10, nml = station_config_namelist)
+            close(10)
+
             select case (lsm_dataformat)
                 case('inmcm')
                     nc_namespace%lon   = 'lon'
@@ -273,13 +273,13 @@ module config
                 stop "check failed : dt_mode == 'auto' requires environment_data_type == 'lsm_offline'"
             endif
             
-            if (datetime_init_mode == 'auto' .and. environment_data_type /= 'lsm_offline') then
-                stop "check failed : datetime_init_mode == 'auto' requires environment_data_type == 'lsm_offline'"
-            endif
+           ! if (datetime_init_mode == 'auto' .and. environment_data_type /= 'lsm_offline') then
+           !     stop "check failed : datetime_init_mode == 'auto' requires environment_data_type == 'lsm_offline'"
+           ! endif
             
-            if (ntime_mode == 'auto' .and. environment_data_type /= 'lsm_offline') then
-                stop "check failed : ntime_mode == 'auto' requires environment_data_type == 'lsm_offline'"
-            endif
+           ! if (ntime_mode == 'auto' .and. environment_data_type /= 'lsm_offline') then
+           !     stop "check failed : ntime_mode == 'auto' requires environment_data_type == 'lsm_offline'"
+           ! endif
         
         end subroutine
         

source/environment/environment_data_station.f90

@@ -94,32 +94,32 @@ contains
         end select		
 
        ! External carbon intake
-        open (unit = 1, file = 'initial_value/'//'carbon_intake/'//trim(station_name)//'_org_'//trim(station_opt)//'.txt', status='unknown')
+        open (unit = 1, file = 'initial_value/'//'carbon_intake/'//trim(station_name)//'_org_'//trim(station_opt)//'.txt', status='old', action = 'read')
         read(1,*) in_organic(1:mnc)
         close (1)
 
-        open (unit = 1, file = 'initial_value/'//'carbon_intake/'//trim(station_name)//'_FYM_'//trim(station_opt)//'.txt', status='unknown')
+        open (unit = 1, file = 'initial_value/'//'carbon_intake/'//trim(station_name)//'_FYM_'//trim(station_opt)//'.txt', status='old', action = 'read')
         read(1,*) in_FYM(1:mnc)
         close (1)
 
        ! External climate intake
-        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_Temp.txt', status='unknown')
+        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_Temp.txt', status='old', action = 'read')
         read(1,*) in_temp(1:mnc)
         close (1)
 
-        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_MOI.txt', status='unknown')
+        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_MOI.txt', status='old', action = 'read')
         read(1,*) in_wsoil(1:mnc)
         close (1)
 
-        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_Veg.txt', status='unknown')
+        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_Veg.txt', status='old', action = 'read')
         read(1,*) in_veg(1:mnc)
         close (1)
 
-        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_Rainfall.txt', status='unknown')
+        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_Rainfall.txt', status='old', action = 'read')
         read(1,*) in_rainfall(1:mnc)
         close (1)
 
-        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_Evpar.txt', status='unknown')
+        open (unit = 1, file = 'initial_value/'//'climate_intake/'//trim(station_name)//'_Evpar.txt', status='old', action = 'read')
         read(1,*) in_Evpar(1:mnc)
         close (1)
 
@@ -150,7 +150,7 @@ contains
         mncX = (date_fst%y - mnclot_fst(station_n))*nmonth + date_lst%m
       end if
 	  
-! Набор переменных которые должны быть, но не данны через качественные внешние данные
+! Набор переменных которые должны быть, но не даны через качественные внешние данные
       p(:,:) = 980.                                  !< pressure
       Rlwd(:,:) = 350.                               !< longwave radiation
       ra(:,:) = 20.                                  !< aerodynamical resistance

source/grid.f90

@@ -416,7 +416,7 @@ contains
                 case('TRGK')
                   DI = datetime_init_3
                   DL = datetime_last_3
-                case('VLDR')
+                case('VLDMR')
                   DI = datetime_init_4
                   DL = datetime_last_4
                 case('Rostov')

station_config.nml

@@ -11,17 +11,23 @@
     !> station_name = 'DAO4':
        datetime_init_1 = '1937-01-01 00:00:00'
        datetime_last_1 = '2012-01-01 00:00:00'
+    
     !> station_name = 'DAO3':
        datetime_init_2 = '1939-01-01 00:00:00'
        datetime_last_2 = '2012-01-01 00:00:00'
+    
     !> station_name = 'TRGK':
        datetime_init_3 = '1956-01-01 00:00:00'
        datetime_last_3 = '2018-01-01 00:00:00'
+    
     !> station_name = 'VLDR':
        datetime_init_4 = '1968-01-01 00:00:00'
        datetime_last_4 = '2018-01-01 00:00:00'
+    
     !> station_name = 'Rostov':
        datetime_init_5 = '1975-01-01 00:00:00'
        datetime_last_5 = '2018-01-01 00:00:00'
 
+
+! -----------------------------------------------------------------
 /

ui1_config.nml

@@ -12,7 +12,7 @@
 ! -----------------------------------------------------------------
 
     !> Углеродная модель:
-    carbon_model_type = 'rothc'
+    carbon_model_type = 'socs'
     !
     ! 'inmcm' - модель inmc [1,2]
     ! 'socs'  - модель SOCS [3]
@@ -100,13 +100,13 @@
         ! '2629800' - 1 месяц
 
     !> Дата и время на момент старта:
-    datetime_init_mode = 'manual' 
+    datetime_init_mode = 'auto'
     !
     ! 'auto' - получить из входного файла (для lsm_offline)
     ! 'manual' - задать вручную [yyyy-mm-dd hh:mm:ss]
         datetime_init = '1975-01-01 00:00:00'
     !> Продолжительность расчета:
-    ntime_mode = 'datetime_last' 
+    ntime_mode = 'auto' 
     !
     ! 'auto' - до конца входного файла (для lsm_offline)
     ! 'ntime' - указанное число шагов