Changeset 6388 for branches/UKMO/dev_r5518_flux_adjust/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

Timestamp:

2016-03-14T19:28:49+01:00 (8 years ago)

Author:

kuniko

Message:

Flux adjustment incorporated.

File:

• branches/UKMO/dev_r5518_flux_adjust/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_flux_adjust/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -304 +304 @@
             zhpi(ji,jj,1) = zcoef1 * ( rhd(ji+1,jj  ,1) - rhd(ji,jj,1) ) / e1u(ji,jj)
             zhpj(ji,jj,1) = zcoef1 * ( rhd(ji  ,jj+1,1) - rhd(ji,jj,1) ) / e2v(ji,jj)
+!            ! 22/01/2016
+!            write(numout,*) 'rhd(',ji+1,',',jj,',1),rhd(',ji,',',jj,'1),rhd(',ji+1,',',jj, &
+!               & ',1)-rhd(',ji,',',jj,',1),zhpi(',ji,',',jj,',1)', &
+!               & rhd(ji+1,jj,1),rhd(ji,jj,1),rhd(ji+1,jj,1) - rhd(ji,jj,1),zhpi(ji,jj,1)
+!            write(numout,*) 'rhd(',ji,',',jj+1,',1),rhd(',ji,',',jj,'1),rhd(',ji,',',jj+1, &
+!               & ',1)-rhd(',ji,',',jj,',1),zhpj(',ji,',',jj,',1)', &
+!               & rhd(ji,jj+1,1),rhd(ji,jj,1),rhd(ji,jj+1,1)-rhd(ji,jj,1),zhpj(ji,jj,1)
             ! add to the general momentum trend
             ua(ji,jj,1) = ua(ji,jj,1) + zhpi(ji,jj,1)