Changeset 661 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.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_ts.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -511 +511 @@
             ! Scale factors at before and after time step
             ! -------------------------------------------
-            zfse3un_e(:,:,:) = sfe3( zsshun_e, 'U' )    ;    zfse3vn_e(:,:,:) = sfe3( zsshvn_e, 'V' )
+            CALL dom_vvl_sf( zsshun_e, 'U', zfse3un_e ) ;   CALL dom_vvl_sf( zsshvn_e, 'V', zfse3vn_e )
 
             ! Ocean depth at U- and V-points