Changeset 15532 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stprk3_stg.F90

Timestamp:

2021-11-24T12:47:32+01:00 (3 years ago)

Author:

techene

Message:

#2605 #2715 : version in dev (still buggy)

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stprk3_stg.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stprk3_stg.F90

@@ -185 +185 @@
 !===>>>>>> Modify dyn_hpg & dyn_hpg_...  routines : rhd computed in dyn_hpg and pass in argument to dyn_hpg_...
 
-      CALL eos    ( ts, Kmm, rhd )              ! Kmm in situ density anomaly for hpg computation
+!!st      IF( kstg == 3 ) THEN
+!         CALL eos    ( ts(:,:,:,:,Kmm), rhd, rhop, gdept_0 ) ! now in situ density for hpg computation
+!      ELSE
+         CALL eos    ( ts, Kmm, rhd )              ! Kmm in situ density anomaly for hpg computation
+!      ENDIF
 
 !!gm end
@@ -388 +392 @@
          vv(:,:,jk,Kaa) = vv(:,:,jk,Kaa) + zvb(:,:)*vmask(:,:,jk)
       END DO
+!!st pourquoi ne pas mettre A2D(0) ici ?