Changeset 14221 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynhpg.F90

Timestamp:

2020-12-18T20:25:45+01:00 (4 years ago)

Author:

mcastril

Message:

Revert changes unrelated with MP

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynhpg.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DYN/dynhpg.F90

@@ -991 +991 @@
       zcoef0 = - grav
       znad = 1._wp
-      IF( ln_linssh )   znad = 0._wp
+      IF( ln_linssh )   znad = 1._wp
+      ! 
+      ! --------------- 
+      !  Surface pressure gradient to be removed 
+      ! ---------------     
+      DO_2D( 0, 0, 0, 0 ) 
+         zpgu(ji,jj) = - grav * ( ssh(ji+1,jj,Kmm) - ssh(ji,jj,Kmm) ) * r1_e1u(ji,jj)
+         zpgv(ji,jj) = - grav * ( ssh(ji,jj+1,Kmm) - ssh(ji,jj,Kmm) ) * r1_e2v(ji,jj) 
+      END_2D 
+      ! 
 
       IF( ln_wd_il ) THEN