Changeset 661 for trunk/NEMO/OPA_SRC/TRA

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/TRA/tranxt.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -100 +100 @@
          ! Scale factors at before and after time step
          ! -------------------------------------------
-         zfse3tb(:,:,:) = sfe3( sshb, 'T' )    ;    zfse3ta(:,:,:) = sfe3( ssha, 'T' )
+         CALL dom_vvl_sf( sshb, 'T', zfse3tb ) ;    CALL dom_vvl_sf( ssha, 'T', zfse3ta )
 
          ! Asselin filtered scale factor at now time step
          ! ----------------------------------------------
          IF( (neuler == 0 .AND. kt == nit000) .OR. lk_dynspg_ts ) THEN
-            zfse3tn(:,:,:) = sfe3ini( 'T' )
+            CALL dom_vvl_sf_ini( 'T', zfse3tn ) 
          ELSE
             zssh(:,:) = atfp * ( sshb(:,:) + ssha(:,:) ) + atfp1 * sshn(:,:)
-            zfse3tn(:,:,:) = sfe3( zssh, 'T' )
+            CALL dom_vvl_sf( zssh, 'T', zfse3tn ) 
          ENDIF