Changeset 1562

Timestamp:

2009-07-30T15:28:08+02:00 (15 years ago)

Author:

cetlod

Message:

rename some PISCES diag variables, see ticket:503

Location:

trunk/NEMO/TOP_SRC

Files:

• PISCES/p4zprod.F90 (modified) (1 diff)
• TRP/trcsbc.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/PISCES/p4zprod.F90

@@ -377 +377 @@
       IF( jnt == nrdttrc ) CALL iom_put( "PPPHY2", zw3d )
       zw3d(:,:,:) = zpronew (:,:,:) * zrfact2 * tmask(:,:,:)
-      IF( jnt == nrdttrc ) CALL iom_put( "PPZOO" , zw3d )
+      IF( jnt == nrdttrc ) CALL iom_put( "PPNEWN" , zw3d )
       zw3d(:,:,:) = zpronewd(:,:,:) * zrfact2 * tmask(:,:,:)
-      IF( jnt == nrdttrc ) CALL iom_put( "PPZOO2", zw3d )
+      IF( jnt == nrdttrc ) CALL iom_put( "PPNEWD", zw3d )
       zw3d(:,:,:) = zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) * zysopt(:,:,:)
       IF( jnt == nrdttrc ) CALL iom_put( "PBSi"  , zw3d )

trunk/NEMO/TOP_SRC/TRP/trcsbc.F90

@@ -91 +91 @@
                ! concent./dilut. effect
                ztra = emps(ji,jj) * zsrau * trn(ji,jj,1,jn) * zse3t * tmask(ji,jj,1)
-               
                ! add the trend to the general tracer trend
                tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + ztra
+#if defined key_trc_diatrd
+               IF( luttrd(jn) ) &
+               &    trtrd(ji,jj,1,ikeep(jn),jpdiatrc) = trtrd(ji,jj,1,ikeep(jn),jpdiatrc) + ztra
+#endif
+
             END DO
          END DO