Skip to content

Commit

Permalink
remove comments from nn_convection_flux
Browse files Browse the repository at this point in the history
  • Loading branch information
Janni Yuval committed Dec 2, 2020
1 parent bea1f37 commit 710ed23
Show file tree
Hide file tree
Showing 10 changed files with 1 addition and 10 deletions.
1 change: 0 additions & 1 deletion sam_code_NN/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -358,7 +358,6 @@ subroutine nn_convection_flux
t_flux_adv(1) = 0.0
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down
Binary file removed sam_code_NN/sam_cases/run_files_16_missing_bits_out_in_only/.nn_convection_flux.f90.swp
View file
Binary file not shown.
1 change: 0 additions & 1 deletion sam_code_NN/sam_cases/run_files_16_missing_bits_out_in_only/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -361,7 +361,6 @@ subroutine nn_convection_flux
t_flux_adv(1) = 0.0
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down
1 change: 0 additions & 1 deletion sam_code_NN/sam_cases/run_files_18_missing_bits_out_in_only/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -361,7 +361,6 @@ subroutine nn_convection_flux
t_flux_adv(1) = 0.0
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down
1 change: 0 additions & 1 deletion sam_code_NN/sam_cases/run_files_20_missing_bits_out_in_only/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -361,7 +361,6 @@ subroutine nn_convection_flux
t_flux_adv(1) = 0.0
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down
1 change: 0 additions & 1 deletion sam_code_NN/sam_cases/run_files_22_missing_bits_out_in_only/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -361,7 +361,6 @@ subroutine nn_convection_flux
t_flux_adv(1) = 0.0
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down
3 changes: 1 addition & 2 deletions sam_code_NN/sam_cases/run_files_x8_2_layers/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -302,10 +302,9 @@ subroutine nn_convection_flux
out_var_control = out_var_control + 1

! advection surface flux is zero
t_flux_adv(1) = 0.0 ! This is a verification as it should be automatic like that
t_flux_adv(1) = 0.0
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down
1 change: 0 additions & 1 deletion sam_code_NN/sam_cases/run_files_x8_3_layers/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -324,7 +324,6 @@ subroutine nn_convection_flux
t_flux_adv(1) = 0.0
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down
1 change: 0 additions & 1 deletion sam_code_NN/sam_cases/run_files_x8_5_layers/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -358,7 +358,6 @@ subroutine nn_convection_flux
t_flux_adv(1) = 0.0
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down
1 change: 0 additions & 1 deletion sam_code_NN/sam_cases/run_files_x8_5_layers_solin/nn_convection_flux.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -380,7 +380,6 @@ subroutine nn_convection_flux
t_flux_adv(1) = 0.0 ! This is a verification as it should be automatic like that
q_flux_adv(1) = 0.0

!!! Since the flux is on half levels I do not know if we should bound the flux
do k=2,nrf
if (q_flux_adv(k).lt.0) then
if ( q(i,j,k).lt.-q_flux_adv(k)* irhoadzdz(k)) then
Expand Down

0 comments on commit 710ed23

Please sign in to comment.