Changeset 5834 for branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

Timestamp:

2015-10-26T15:38:10+01:00 (9 years ago)

Author:

mathiot

Message:

Ice shelf branch: cosmetic changes

File:

• branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (2 diffs)

branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -225 +225 @@
          ! Surface value + ice shelf gradient
          ! compute pressure due to ice shelf load (used to compute hpgi/j for all the level from 1 to miku/v)
+         ! divided by 2 later
          ziceload = 0._wp
          DO jj = 1, jpj
@@ -547 +548 @@
 !      CALL eos(ztstop,risfdep,zrhdtop_oce)
 
+!==================================================================================     
+!===== Compute surface value ===================================================== 
+!==================================================================================
       DO jj = 2, jpjm1
          DO ji = fs_2, fs_jpim1   ! vector opt.