Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/istate_tam.F90

Timestamp:

2011-02-15T12:58:59+01:00 (13 years ago)

Author:

vidard

Message:

refer to ticket #798

File:

• branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/istate_tam.F90 (modified) (3 diffs)

branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/istate_tam.F90

@@ -45 +45 @@
 #  endif
 # endif
-      & tmask, umask, vmask
+      & tmask, umask, vmask, &
+      & n_cla
    USE daymod        , ONLY: &
       & day_init
@@ -61 +62 @@
    USE eosbn2_tam    , ONLY: &
       & eos_tan, eos_adj
+   USE divcur_tam    , ONLY: &
+      & div_cur_tan, div_cur_adj
+   USE cla_div_tam    , ONLY: &
+      & div_cla_tan, div_cla_adj
    USE tstool_tam    , ONLY: &
       & prntst_adj,          &
@@ -119 +124 @@
       sb_tl   (:,:,:) = sn_tl   (:,:,:)
       sshb_tl (  :,:) = sshn_tl (  :,:)
-      rotb_tl (:,:,:) = rotn_tl (:,:,:)  
+      !
+      rotb_tl (:,:,:) = rotn_tl (:,:,:)   ! Update before fields
       hdivb_tl(:,:,:) = hdivn_tl(:,:,:)  
-      !