Changeset 7679 for branches/UKMO

Timestamp:

2017-02-14T11:42:21+01:00 (7 years ago)

Author:

isabella

Message:

added changes to be consistent with go6

Location:

branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC

Files:

• ASM/bias.F90 (modified) (2 diffs)
• step.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

@@ -113 +113 @@
       &   bias_wrt
 
- 
+   !! * Substitutions needed to have the variable fsdept_n
+#  include "domzgr_substitute.h90"
    !! * Shared variables
    !! * Private module variables
@@ -778 +779 @@
       ENDIF
 
-      CALL eos( tsw, rhd_pc, rhop )
+      CALL eos( tsw, rhd_pc, rhop , fsdept_n(:,:,:))
       
       ! is this needed?

branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -275 +275 @@
             IF( ln_sto_eos ) CALL sto_pts( tsn )                 ! Random T/S fluctuations
                              CALL eos    ( tsa, rhd, rhop, fsdept_n(:,:,:) )  ! Time-filtered in situ density for hpg computation
+                             CALL lbc_lnk( rhd, 'T', 1.0_wp )
             IF( ln_zps .AND. .NOT. ln_isfcav)                                &
                &             CALL zps_hde    ( kstp, jpts, tsa, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient
@@ -287 +288 @@
             IF( ln_sto_eos ) CALL sto_pts( tsn )    ! Random T/S fluctuations
                              CALL eos    ( tsn, rhd, rhop, fsdept_n(:,:,:) )  ! now in situ density for hpg computation
+                             CALL lbc_lnk( rhd, 'T', 1.0_wp )
          IF( ln_zps .AND. .NOT. ln_isfcav)                                   &
                &             CALL zps_hde    ( kstp, jpts, tsn, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient