Changeset 13678 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE

Timestamp:

2020-10-26T18:52:53+01:00 (4 years ago)

Author:

jchanut

Message:

#2385, qco with AGRIF

Location:

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE

Files:

• DYN/dynatf_qco.F90 (modified) (3 diffs)
• TRA/traatf_qco.F90 (modified) (4 diffs)
• nemogcm.F90 (modified) (1 diff)
• stpMLF.F90 (deleted)
• stpmlf.F90 (added)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DYN/dynatf_qco.F90

@@ -1 @@
-MODULE dynatfqco
+MODULE dynatf_qco
    !!=========================================================================
-   !!                       ***  MODULE  dynatfqco  ***
+   !!                       ***  MODULE  dynatf_qco  ***
    !! Ocean dynamics: time filtering
    !!=========================================================================
@@ -50 +50 @@
    USE prtctl         ! Print control
    USE timing         ! Timing
-#if defined key_agrif
-   USE agrif_oce_interp
-#endif
 
    IMPLICIT NONE
@@ -235 +232 @@
 
    !!=========================================================================
-END MODULE dynatfqco
+END MODULE dynatf_qco

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/TRA/traatf_qco.F90

@@ -1 @@
-MODULE traatfqco
+MODULE traatf_qco
    !!======================================================================
-   !!                       ***  MODULE  traatfqco  ***
+   !!                       ***  MODULE  traatf_qco  ***
    !! Ocean active tracers:  Asselin time filtering for temperature and salinity
    !!======================================================================
@@ -45 +45 @@
    USE prtctl          ! Print control
    USE timing          ! Timing
-#if defined key_agrif
-   USE agrif_oce_interp
-#endif
 
    IMPLICIT NONE
@@ -149 +146 @@
          ENDIF
          !
-         CALL lbc_lnk_multi( 'traatfqco', pts(:,:,:,jp_tem,Kbb) , 'T', 1., pts(:,:,:,jp_sal,Kbb) , 'T', 1., &
-                  &                    pts(:,:,:,jp_tem,Kmm) , 'T', 1., pts(:,:,:,jp_sal,Kmm) , 'T', 1., &
-                  &                    pts(:,:,:,jp_tem,Kaa), 'T', 1., pts(:,:,:,jp_sal,Kaa), 'T', 1.  )
+         CALL lbc_lnk_multi( 'traatf_qco', pts(:,:,:,jp_tem,Kbb) , 'T', 1., pts(:,:,:,jp_sal,Kbb) , 'T', 1., &
+                  &                        pts(:,:,:,jp_tem,Kmm) , 'T', 1., pts(:,:,:,jp_sal,Kmm) , 'T', 1., &
+                  &                        pts(:,:,:,jp_tem,Kaa) , 'T', 1., pts(:,:,:,jp_sal,Kaa) , 'T', 1.  )
          !
       ENDIF
@@ -372 +369 @@
 
    !!======================================================================
-END MODULE traatfqco
+END MODULE traatf_qco

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/nemogcm.F90

@@ -67 +67 @@
 #endif
 #if defined key_qco
-   USE stpMLF        ! NEMO time-stepping               (stp_MLF   routine)
+   USE stpmlf         ! NEMO time-stepping               (stp_MLF   routine)
 #else
    USE step           ! NEMO time-stepping                 (stp     routine)