Changeset 9387 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

Timestamp:

2018-03-08T13:36:26+01:00 (6 years ago)

Author:

andmirek

Message:

#2050 changes for sette 3 to work

File:

• branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90 (modified) (1 diff)

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -73 +73 @@
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       !
-      INTEGER ::   jk 
+      INTEGER ::   jk, jn 
       CHARACTER (len=22) ::   charout
       REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn  ! effective velocity