Changeset 10965 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DIA/diaharm.F90

Timestamp:

2019-05-10T18:02:51+02:00 (5 years ago)

Author:

davestorkey

Message:

2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : DIA and stpctl.F90. Just testing in ORCA1 so far.

File:

• NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DIA/diaharm.F90 (modified) (4 diffs)

NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DIA/diaharm.F90

@@ -162 +162 @@
 
 
-   SUBROUTINE dia_harm ( kt )
+   SUBROUTINE dia_harm ( kt, Kmm )
       !!----------------------------------------------------------------------
       !!                 ***  ROUTINE dia_harm  ***
@@ -172 +172 @@
       !!--------------------------------------------------------------------
       INTEGER, INTENT( IN ) :: kt
+      INTEGER, INTENT( IN ) :: Kmm     ! time level index
       !
       INTEGER  :: ji, jj, jh, jc, nhc
@@ -194 +195 @@
                   DO ji = 1,jpi
                      ! Elevation
-                     ana_temp(ji,jj,nhc,1) = ana_temp(ji,jj,nhc,1) + ztemp*sshn(ji,jj)*ssmask (ji,jj)        
-                     ana_temp(ji,jj,nhc,2) = ana_temp(ji,jj,nhc,2) + ztemp*un_b(ji,jj)*ssumask(ji,jj)
-                     ana_temp(ji,jj,nhc,3) = ana_temp(ji,jj,nhc,3) + ztemp*vn_b(ji,jj)*ssvmask(ji,jj)
+                     ana_temp(ji,jj,nhc,1) = ana_temp(ji,jj,nhc,1) + ztemp*ssh(ji,jj,Kmm)*ssmask (ji,jj)        
+                     ana_temp(ji,jj,nhc,2) = ana_temp(ji,jj,nhc,2) + ztemp*uu_b(ji,jj,Kmm)*ssumask(ji,jj)
+                     ana_temp(ji,jj,nhc,3) = ana_temp(ji,jj,nhc,3) + ztemp*vv_b(ji,jj,Kmm)*ssvmask(ji,jj)
                   END DO
                END DO
@@ -521 +522 @@
    LOGICAL, PUBLIC, PARAMETER ::   lk_diaharm = .FALSE.
 CONTAINS
-   SUBROUTINE dia_harm ( kt )     ! Empty routine
+   SUBROUTINE dia_harm ( kt, Kmm )     ! Empty routine
       INTEGER, INTENT( IN ) :: kt  
+      INTEGER, INTENT( IN ) :: Kmm  
       WRITE(*,*) 'dia_harm: you should not have seen this print'
    END SUBROUTINE dia_harm