Changeset 786 for branches/dev_001_GM/NEMO/OPA_SRC/TRA/tranpc.F90

Timestamp:

2008-01-10T18:11:23+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - merge TRC-TRA on OPA only, trabbl & zpshde not done and trdmld not OK - compilation OK

File:

• branches/dev_001_GM/NEMO/OPA_SRC/TRA/tranpc.F90 (modified) (1 diff)

branches/dev_001_GM/NEMO/OPA_SRC/TRA/tranpc.F90

@@ -202 +202 @@
             ztrdt(:,:,:) = tn(:,:,:) - ztrdt(:,:,:)
             ztrds(:,:,:) = sn(:,:,:) - ztrds(:,:,:)
-            CALL trd_mod(ztrdt, ztrds, jptra_trd_npc, 'TRA', kt)
+            CALL trd_tra( kt, jp_tem, jpt_trd_ldf, 'TRA', ptrd3d=ztrdt)
+            CALL trd_tra( kt, jp_sal, jpt_trd_ldf, 'TRA', ptrd3d=ztrds)
          ENDIF
+
       
          ! Lateral boundary conditions on ( tn, sn )   ( Unchanged sign)