[Dart-dev] DART/branches Revision: 13127

[dart at ucar.edu]

thoar at ucar.edu
2019-04-24 20:28:39 -0600 (Wed, 24 Apr 2019)
42
Now compiles with the gfortran compiler.




Modified: DART/branches/mizzi/models/wrf_chem/WRF_DART_utilities/wrf_to_dart.f90
===================================================================
--- DART/branches/mizzi/models/wrf_chem/WRF_DART_utilities/wrf_to_dart.f90	2019-04-25 01:59:32 UTC (rev 13126)
+++ DART/branches/mizzi/models/wrf_chem/WRF_DART_utilities/wrf_to_dart.f90	2019-04-25 02:28:39 UTC (rev 13127)
@@ -216,7 +216,7 @@
 !
 ! APM: +++
 ! APM: code to take ln(x) transform of CO chemistry field
-         if (use_log_co.eq..TRUE. .and. trim(my_field).eq.'co') then
+         if (use_log_co .and. trim(my_field).eq.'co') then
 !            print *, 'APM: wrf_to_dart 3D CO conversion '
             do jj=1,wrf%var_size(2,ind)
                do ii=1,wrf%var_size(1,ind)
@@ -231,7 +231,7 @@
          endif
 !
 ! APM: code to take ln(x) transform of O3 chemistry field
-         if (use_log_o3.eq..TRUE. .and. trim(my_field).eq.'o3') then
+         if (use_log_o3 .and. trim(my_field).eq.'o3') then
 !            print *, 'APM: wrf_to_dart 3D O3 conversion '
             do jj=1,wrf%var_size(2,ind)
                do ii=1,wrf%var_size(1,ind)
@@ -272,7 +272,7 @@
 !
 ! APM: +++
 ! APM: code to take ln(x) transform of CO chemistry field
-         if (use_log_co.eq..TRUE. .and. trim(my_field).eq.'co') then
+         if (use_log_co .and. trim(my_field).eq.'co') then
 !            print *, 'APM: wrf_to_dart 2D CO conversion '
             do kk=1,wrf%var_size(3,ind)
                do jj=1,wrf%var_size(2,ind)
@@ -289,7 +289,7 @@
          endif
 !
 ! APM: code to take ln(x) transform of O3 chemistry field
-         if (use_log_o3.eq..TRUE. .and. trim(my_field).eq.'o3') then
+         if (use_log_o3 .and. trim(my_field).eq.'o3') then
 !            print *, 'APM: wrf_to_dart 2D O3 conversion '
             do kk=1,wrf%var_size(3,ind)
                do jj=1,wrf%var_size(2,ind)