Changeset 642 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2007-03-15T12:17:58+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_028 : CT : correction to be able to compile without compilation stop when using key_zco cpp key

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
             ! -------------------------------------------
-            DO jk = 1, jpkm1
-               zfse3un_e(:,:,jk)  = fsve3u(:,:,jk) * ( 1 + zsshun_e(:,:) * muu(:,:,jk) )
-               zfse3vn_e(:,:,jk)  = fsve3v(:,:,jk) * ( 1 + zsshvn_e(:,:) * muv(:,:,jk) )
-            END DO
+            zfse3un_e(:,:,:) = sfe3( zsshun_e, 'U' )    ;    zfse3vn_e(:,:,:) = sfe3( zsshvn_e, 'V' )
 
             ! Ocean depth at U- and V-points