Changeset 5927 for branches/2015/dev_r5847_MERCATOR9_solveur_simplification/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

Timestamp:

2015-11-26T12:23:11+01:00 (8 years ago)

Author:

jchanut

Message:

FS simplification: Insert changes related to #1638, #1625 + C1D compatibility

File:

• branches/2015/dev_r5847_MERCATOR9_solveur_simplification/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (3 diffs)

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

@@ -36 +36 @@
    USE trd_oce         ! trends: ocean variables
    USE trddyn          ! trend manager: dynamics
-   USE zpshde          ! partial step: hor. derivative     (zps_hde routine)
+!jc   USE zpshde          ! partial step: hor. derivative     (zps_hde routine)
    !
    USE in_out_manager  ! I/O manager
@@ -293 +293 @@
 
       ! Partial steps: bottom before horizontal gradient of t, s, rd at the last ocean level
-      CALL zps_hde    ( kt, jpts, tsn, gtsu, gtsv, rhd, gru , grv )
+!jc      CALL zps_hde    ( kt, jpts, tsn, gtsu, gtsv, rhd, gru , grv )
 
       ! Local constant initialization
@@ -494 +494 @@
 
       ! Partial steps: top & bottom before horizontal gradient
-      CALL zps_hde_isf( kt, jpts, tsn, gtsu, gtsv, gtui, gtvi,   & 
-               &       rhd, gru , grv , aru , arv , gzu , gzv , ge3ru , ge3rv ,   &
-               &      grui, grvi, arui, arvi, gzui, gzvi, ge3rui, ge3rvi  )
+!jc      CALL zps_hde_isf( kt, jpts, tsn, gtsu, gtsv, gtui, gtvi,   & 
+!jc               &       rhd, gru , grv , aru , arv , gzu , gzv , ge3ru , ge3rv ,   &
+!jc               &      grui, grvi, arui, arvi, gzui, gzvi, ge3rui, ge3rvi  )
 
 !==================================================================================