diff --git a/physics/GFS_rrtmgp_gas_optics.F90 b/physics/GFS_rrtmgp_gas_optics.F90 deleted file mode 100644 index 9eff6567c..000000000 --- a/physics/GFS_rrtmgp_gas_optics.F90 +++ /dev/null @@ -1,70 +0,0 @@ -module GFS_rrtmgp_gas_optics - use machine, only: kind_phys - use GFS_typedefs, only: GFS_control_type,GFS_radtend_type - - public GFS_rrtmgp_gas_optics_init,GFS_rrtmgp_gas_optics_run,GFS_rrtmgp_gas_optics_finalize -contains - - ! ######################################################################################### - ! SUBROUTINE GFS_rrtmgp_gas_optics_init() - ! ######################################################################################### -!! \section arg_table_GFS_rrtmgp_gas_optics_init -!! \htmlinclude GFS_rrtmgp_gas_optics.html -!! - subroutine GFS_rrtmgp_gas_optics_init(Model, Radtend, errmsg, errflg) - ! Inputs - type(GFS_control_type), intent(in) :: & - Model ! DDT containing model control parameters - type(GFS_radtend_type), intent(inout) :: & - Radtend ! Fortran DDT containing FV3-GFS radiation tendencies - ! Outputs - character(len=*), intent(out) :: & - errmsg ! Error message - integer, intent(out) :: & - errflg ! Error flag - - ! Local variables - character(len=1) :: tempstr - integer :: ij, count - integer,dimension(Model%ngases,2) :: gasIndices - - ! Initialize - errmsg = '' - errflg = 0 - - ! Which gases are active? Provided via physics namelist. - if (len(Model%active_gases) .gt. 0) then - - ! Pull out gas names from list... - ! First grab indices in character array corresponding to start:end of gas name. - gasIndices(1,1)=1 - count=1 - do ij=1,len(Model%active_gases) - tempstr=trim(Model%active_gases(ij:ij)) - if (tempstr .eq. '_') then - gasIndices(count,2)=ij-1 - gasIndices(count+1,1)=ij+1 - count=count+1 - endif - enddo - gasIndices(Model%ngases,2)=len(trim(Model%active_gases)) - ! Now extract the gas names - do ij=1,Model%ngases - Radtend%active_gases(ij) = Model%active_gases(gasIndices(ij,1):gasIndices(ij,2)) - enddo - endif - end subroutine GFS_rrtmgp_gas_optics_init - - ! ######################################################################################### - ! SUBROUTINE GFS_rrtmgp_gas_optics_run - ! ######################################################################################### - subroutine GFS_rrtmgp_gas_optics_run() - end subroutine GFS_rrtmgp_gas_optics_run - - ! ######################################################################################### - ! SUBROUTINE GFS_rrtmgp_gas_optics_finalize - ! ######################################################################################### - subroutine GFS_rrtmgp_gas_optics_finalize() - end subroutine GFS_rrtmgp_gas_optics_finalize - -end module GFS_rrtmgp_gas_optics diff --git a/physics/GFS_rrtmgp_gas_optics.meta b/physics/GFS_rrtmgp_gas_optics.meta deleted file mode 100644 index 3179ce484..000000000 --- a/physics/GFS_rrtmgp_gas_optics.meta +++ /dev/null @@ -1,46 +0,0 @@ -[ccpp-arg-table] - name = GFS_rrtmgp_gas_optics_init - type = scheme -[Model] - standard_name = GFS_control_type_instance - long_name = instance of derived type GFS_control_type - units = DDT - dimensions = () - type = GFS_control_type - intent = in - optional = F -[Radtend] - standard_name = GFS_radtend_type_instance - long_name = instance of derived type GFS_radtend_type - units = DDT - dimensions = () - type = GFS_radtend_type - intent = inout - optional = F -[errmsg] - standard_name = ccpp_error_message - long_name = error message for error handling in CCPP - units = none - dimensions = () - type = character - kind = len=* - intent = out - optional = F -[errflg] - standard_name = ccpp_error_flag - long_name = error flag for error handling in CCPP - units = flag - dimensions = () - type = integer - intent = out - optional = F - -######################################################################## -[ccpp-arg-table] - name = GFS_rrtmgp_gas_optics_run - type = scheme - -######################################################################## -[ccpp-arg-table] - name = GFS_rrtmgp_gas_optics_finalize - type = scheme \ No newline at end of file