Skip to content

Commit e6d218e

Browse files
committed
removed w3emc changes, this is fixed with a different method in an upcoming PR
1 parent 8fe9f11 commit e6d218e

File tree

7 files changed

+0
-100
lines changed

7 files changed

+0
-100
lines changed

physics/GWD/cires_tauamf_data.F90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -173,7 +173,6 @@ end subroutine tau_amf_interp
173173
subroutine gfs_idate_calendar(idate, fhour, ddd, fddd)
174174

175175
use machine, only: kind_phys
176-
use w3emc, only: w3movdat
177176
implicit none
178177
! input
179178
integer, intent(in) :: idate(4)

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_time_vary_pre.scm.F90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -70,7 +70,6 @@ subroutine GFS_time_vary_pre_timestep_init (jdat, idat, dtp, nsswr, &
7070
julian, yearlen, ipt, lprnt, lssav, lsswr, lslwr, solhr, errmsg, errflg)
7171

7272
use machine, only: kind_phys, kind_dbl_prec, kind_sngl_prec
73-
use w3emc, only: w3difdat
7473

7574
implicit none
7675

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_time_vary_pre.scm.meta

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,6 @@
33
type = scheme
44
relative_path = ../../
55
dependencies = tools/funcphys.f90,hooks/machine.F
6-
ay to get rid of all the warnings.):physics/GFS_time_vary_pre.scm.meta
76

87
########################################################################
98
[ccpp-arg-table]

physics/Interstitials/UFS_SCM_NEPTUNE/iccninterp.F90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -134,7 +134,6 @@ SUBROUTINE ciinterpol(me,npts,IDATE,FHOUR,jindx1,jindx2,ddy, &
134134
!
135135
USE MACHINE, ONLY : kind_phys, kind_dbl_prec
136136
use iccn_def
137-
use w3emc, only: w3movdat
138137
implicit none
139138
integer i1,i2, iday,j,j1,j2,l,npts,nc,n1,n2,lev,k,i
140139
real(kind=kind_phys) fhour,temj, tx1, tx2,temi

physics/Interstitials/UFS_SCM_NEPTUNE/sfcsub.F

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -7069,7 +7069,6 @@ subroutine clima(lugb,iy,im,id,ih,fh,len,lsoil,slmskl,slmskw, &
70697069
&, tile_num_ch, i_index, j_index)
70707070
!
70717071
use machine , only : kind_io8,kind_io4, kind_dbl_prec
7072-
use w3emc, only: w3movdat
70737072
implicit none
70747073
character(len=*), intent(in) :: tile_num_ch
70757074
integer, intent(in) :: i_index(len), j_index(len)
@@ -8575,7 +8574,6 @@ subroutine fixrda(lugb,fngrib,kpds5,slmask, &
85758574
&, outlat, outlon, me)
85768575
use machine , only : kind_io8,kind_dbl_prec,kind_sngl_prec
85778576
use sfccyc_module, only : mdata
8578-
use w3emc, only: w3movdat
85798577
implicit none
85808578
integer nrepmx,nvalid,imo,iyr,idy,jret,ihr,nrept,lskip,lugi, &
85818579
& lgrib,j,ndata,i,inttyp,jmax,imax,ijmax,ij,jday,len,iret, &

physics/MP/Morrison_Gettelman/aerinterp.F90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,6 @@
66
!! This module contain subroutines of reading and interpolating
77
!! aerosol data for MG microphysics.
88
module aerinterp
9-
use w3emc, only: w3movdat
109
implicit none
1110

1211
private read_netfaer

physics/w3emc_wrapper.F90

Lines changed: 0 additions & 93 deletions
This file was deleted.

0 commit comments

Comments
 (0)