Workaround for distributing radiation on surface types.

src/oasis_interface/oas_define.F90

@@ -256,12 +256,12 @@ SUBROUTINE oas_define(local_comm)
   srcv(28)%var_name = 'MRRBBR05'      ! longwave radiation upward
   srcv(29)%var_name = 'MRRBBR06'      ! longwave radiation upward
   srcv(30)%var_name = 'MRRLWD01'      ! longwave radiation downward
-  srcv(31)%var_name = 'MRRSDD01'      ! shortwave radiation downward direct
-  srcv(32)%var_name = 'MRRSDD02'      ! shortwave radiation downward direct
-  srcv(33)%var_name = 'MRRSDD03'      ! shortwave radiation downward direct
-  srcv(34)%var_name = 'MRRSDD04'      ! shortwave radiation downward direct
-  srcv(35)%var_name = 'MRRSDD05'      ! shortwave radiation downward direct
-  srcv(36)%var_name = 'MRRSDD06'      ! shortwave radiation downward direct
+  srcv(31)%var_name = 'MRRSDR01'      ! shortwave radiation downward direct
+  srcv(32)%var_name = 'MRRSDR02'      ! shortwave radiation downward direct
+  srcv(33)%var_name = 'MRRSDR03'      ! shortwave radiation downward direct
+  srcv(34)%var_name = 'MRRSDR04'      ! shortwave radiation downward direct
+  srcv(35)%var_name = 'MRRSDR05'      ! shortwave radiation downward direct
+  srcv(36)%var_name = 'MRRSDR06'      ! shortwave radiation downward direct
   srcv(37)%var_name = 'MRRSIN01'      ! shortwave radiation downward diffusive
   srcv(38)%var_name = 'MRHLAT01'      ! latent heat flux
   srcv(39)%var_name = 'MRHLAT02'      ! latent heat flux