Changeset 790 for branches/dev_001_GM/NEMO/OPA_SRC/DYN

Timestamp:

2008-01-12T11:10:18+01:00 (17 years ago)

Author:

gm

Message:

dev_001_GM - complete theprevious comit with omitted routines

Location:

branches/dev_001_GM/NEMO/OPA_SRC/DYN

Files:

• dynadv_cen2.F90 (modified) (3 diffs)
• dynadv_ubs.F90 (modified) (2 diffs)

branches/dev_001_GM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90

@@ -99 +99 @@
                ua(ji,jj,jk) = ua(ji,jj,jk) + zua
                va(ji,jj,jk) = va(ji,jj,jk) + zva
-#if defined key_trddyn
-               utrd(ji,jj,jk,1) = zua                    ! save the horizontal advective trend of momentum
-               vtrd(ji,jj,jk,1) = zva 
-#endif
             END DO
          END DO
@@ -109 +105 @@
       !                                                ! ===============
 
+!!gm  momentum trend diagnostics is missing
 
       ! II. Vertical advection
@@ -158 +155 @@
          END DO
       END DO
+!!gm  momentum trend diagnostics is missing
 
    END SUBROUTINE dyn_adv_cen2

branches/dev_001_GM/NEMO/OPA_SRC/DYN/dynadv_ubs.F90

@@ -191 +191 @@
                ua(ji,jj,jk) = ua(ji,jj,jk) + zua
                va(ji,jj,jk) = va(ji,jj,jk) + zva
-#if defined key_trddyn
-               utrd(ji,jj,jk,1) = zua                    ! save the horizontal advective trend of momentum
-               vtrd(ji,jj,jk,1) = zva 
-#endif
             END DO
          END DO
@@ -201 +197 @@
       !                                                ! ===============
 
+!!gm  momentum trend diagnostics is missing
 
       ! II. Vertical advection