Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90

Timestamp:

2017-12-19T09:26:25+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: ln_timing instead of nn_timing + restricted timing to nemo_init and routine called by step in OPA_SRC

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90 (modified) (6 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90

@@ -16 +16 @@
    USE dom_oce          ! ocean space and time domain
    USE sbc_oce          ! Surface boundary condition: ocean fields
+   !
    USE in_out_manager   ! I/O manager
    USE lib_mpp          ! MPP library
-   USE timing           ! Timing
 
    IMPLICIT NONE
@@ -63 +63 @@
       !!              Part 1: a diurnally forced OGCM. Climate Dynamics 29:6, 575-590.
       !!----------------------------------------------------------------------
-      LOGICAL, OPTIONAL, INTENT(in) :: l_mask ! use the routine for night mask computation
+      LOGICAL , OPTIONAL          , INTENT(in) ::   l_mask    ! use the routine for night mask computation
       REAL(wp), DIMENSION(jpi,jpj), INTENT(in) ::   pqsrin    ! input daily QSR flux 
+      REAL(wp), DIMENSION(jpi,jpj)             ::   zqsrout   ! output QSR flux with diurnal cycle
       !!
       INTEGER  ::   ji, jj                                       ! dummy loop indices
@@ -73 +74 @@
       REAL(wp) ::   ztmp, ztmp1, ztmp2, ztest
       REAL(wp) ::   ztmpm, ztmpm1, ztmpm2
-      REAL(wp), DIMENSION(jpi,jpj) ::   zqsrout                  ! output QSR flux with diurnal cycle
       !---------------------------statement functions------------------------
       REAL(wp) ::   fintegral, pt1, pt2, paaa, pbbb, pccc        ! dummy statement function arguments
@@ -80 +80 @@
          & - paaa * pt1 - zinvtwopi * pbbb * SIN(pccc + ztwopi * pt1)
       !!---------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )  CALL timing_start('sbc_dcy')
       !
       ! Initialization
@@ -199 +197 @@
       DO jj = 1, jpj
          DO ji = 1, jpi
-            ztmpm = 0.0
+            ztmpm = 0._wp
             IF( ABS(rab(ji,jj)) < 1. ) THEN         ! day duration is less than 24h
                !
@@ -241 +239 @@
       END DO  
       !
-      IF ( PRESENT(l_mask) .AND. l_mask ) THEN
+      IF( PRESENT(l_mask) .AND. l_mask ) THEN
          zqsrout(:,:) = float(imask_night(:,:))
       ENDIF
       !
-      IF( nn_timing == 1 )  CALL timing_stop('sbc_dcy')
-      !
    END FUNCTION sbc_dcy