Changeset 12584 for NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/domqe.F90

Timestamp:

2020-03-22T22:18:21+01:00 (3 years ago)

Author:

techene

Message:

OCE/DOM/domqe.F90: remove dom_qe_r3c call from dom_qe_sf_nxt and make it public, OCE/steplf.F90: add dom_qe_r3c and update r3 factors (bug)

File:

• NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/domqe.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/domqe.F90

@@ -42 +42 @@
    PUBLIC  dom_qe_init       ! called by domain.F90
    PUBLIC  dom_qe_zgr        ! called by isfcpl.F90
-   PUBLIC  dom_qe_sf_nxt     ! called by step.F90
-   PUBLIC  dom_qe_sf_update  ! called by step.F90
+   PUBLIC  dom_qe_sf_nxt     ! called by steplf.F90
+   PUBLIC  dom_qe_sf_update  ! called by steplf.F90
    PUBLIC  dom_qe_interpol   ! called by dynnxt.F90
    PUBLIC  dom_qe_r3c        ! called by steplf.F90
@@ -259 +259 @@
       ENDIF
 
-      IF( PRESENT(kcall) ) THEN
-         IF( kcall == 2 ) THEN
-            CALL dom_qe_r3c( ssh(:,:,Kaa), r3t(:,:,Kaa), r3u(:,:,Kaa), r3v(:,:,Kaa), r3f(:,:) )
-         ELSE
-            CALL dom_qe_r3c( ssh(:,:,Kaa), r3t(:,:,Kaa), r3u(:,:,Kaa), r3v(:,:,Kaa) )
-         ENDIF
-      ENDIF
 
       ! ******************************* !