Add units to cloud optics arguments. Closes #125.

[skip ci]
earth-system-radiation · Jul 8, 2021 · d3956f7 · d3956f7
1 parent 142317d
commit d3956f7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/extensions/cloud_optics/mo_cloud_optics.F90 b/extensions/cloud_optics/mo_cloud_optics.F90
@@ -374,8 +374,8 @@ function cloud_optics(this, &
                         optical_props) result(error_msg)
     class(ty_cloud_optics), &
               intent(in   ) :: this
-    real(wp), intent(in   ) :: clwp  (:,:), &   ! cloud ice water path    (units?)
-                               ciwp  (:,:), &   ! cloud liquid water path (units?)
+    real(wp), intent(in   ) :: clwp  (:,:), &   ! cloud ice water path    (g/m2)
+                               ciwp  (:,:), &   ! cloud liquid water path (g/m2)
                                reliq (:,:), &   ! cloud ice particle effective size (microns)
                                reice (:,:)      ! cloud liquid particle effective radius (microns)
     class(ty_optical_props_arry), &
@@ -558,7 +558,7 @@ function cloud_optics(this, &
       type is (ty_optical_props_nstr)
         error_msg = "cloud optics: n-stream calculations not yet supported"
       end select
-    end if 
+    end if
     !$acc end data
     !$omp end target data
   end function cloud_optics