Changeset 661 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

Timestamp:

2007-05-25T17:51:50+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_039:RB: change dom_vvl functions to corresponding subroutines for compatibility with AGRIF

File:

• trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

@@ -187 +187 @@
          ! Scale factors at before and after time step
          ! -------------------------------------------
-         zfse3ua(:,:,:) = sfe3( zsshua, 'U' )    ;    zfse3ub(:,:,:) = sfe3( zsshub, 'U' )
-         zfse3va(:,:,:) = sfe3( zsshva, 'V' )    ;    zfse3vb(:,:,:) = sfe3( zsshvb, 'V' )
+         CALL dom_vvl_sf( zsshub, 'U', zfse3ub ) ;    CALL dom_vvl_sf( zsshua, 'U', zfse3ua )
+         CALL dom_vvl_sf( zsshvb, 'V', zfse3vb ) ;    CALL dom_vvl_sf( zsshva, 'V', zfse3va )
+
 
          ! Thickness weighting