Changeset 10905 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcini.F90

Timestamp:

2019-04-29T13:50:19+02:00 (5 years ago)

Author:

davestorkey

Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps :

1. Alter top-level TOP routines so they use the time-level indices from step.F90 rather than having their own time level indices.
2. First part of changes for OFF modules.

File:

• NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcini.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcini.F90

@@ -40 +40 @@
 CONTAINS
    
-   SUBROUTINE trc_init
+   SUBROUTINE trc_init( Kbb, Kmm, Kaa )
       !!---------------------------------------------------------------------
       !!                     ***  ROUTINE trc_init  ***
@@ -52 +52 @@
       !!                or read data or analytical formulation
       !!---------------------------------------------------------------------
+      !! Time level indices only required for call to update_pointers_trc
+      !! To be removed after IMMERSE development finished. 
+      INTEGER, INTENT( in ) :: Kbb, Kmm, Kaa ! time level indices
       !
       IF( ln_timing )   CALL timing_start('trc_init')
@@ -63 +66 @@
       CALL top_alloc()   ! allocate TOP arrays
 
-      ! Initialise time level indices
-      Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa
-
       ! Initialisation of temporary pointers (to be deleted after development finished)
-      CALL update_pointers_trc()
+      CALL update_pointers_trc( Kbb, Kmm, Kaa )
       !
       IF(.NOT.ln_trcdta )   ln_trc_ini(:) = .FALSE.