Changeset 13056 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_recompute_scales.F90

Timestamp:

2020-06-07T18:26:09+02:00 (4 years ago)

Author:

rblod

Message:

ticket #2129 : cleaning domcfg

File:

• utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_recompute_scales.F90 (moved) (moved from utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_recompute_scalefactors.f90) (2 diffs)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_recompute_scales.F90

@@ -1 @@
-#if defined key_agrif
-subroutine agrif_recompute_scalefactors
+MODULE agrif_recompute_scales
+
    USE dom_oce
    USE lbclnk            ! ocean lateral boundary conditions (or mpp link)
    USE lib_mpp
-implicit none
-INTEGER :: ji,jj,jk,ikb,ikt
+
+   IMPLICiT NONE
+
+   PRIVATE
+
+   PUBLIC agrif_recompute_scalefactors
+
+CONTAINS
+
+#if defined key_agrif
+   SUBROUTINE agrif_recompute_scalefactors
+      !!----------------------------------------------------------------------
+      !!                     ***  ROUTINE nemo_gcm  ***
+      !!----------------------------------------------------------------------
+      !
+      INTEGER :: ji, jj, jk, ikb, ikt
 
       ! Scale factors and depth at U-, V-, UW and VW-points
@@ -85 +99 @@
       IF( MINVAL( gdept_0(:,:,:) ) <  0._wp )   CALL ctl_stop( '    zgr_zps :   e r r o r   gdept_0 <  0' )
       IF( MINVAL( gdepw_0(:,:,:) ) <  0._wp )   CALL ctl_stop( '    zgr_zps :   e r r o r   gdepw_0 <  0' )
-      
-end subroutine agrif_recompute_scalefactors
+      ! 
+   END SUBROUTINE agrif_recompute_scalefactors
 #else
-subroutine agrif_recompute_scalefactors_empty
-end subroutine agrif_recompute_scalefactors_empty
+   SUBROUTINE agrif_recompute_scalefactors
+   END SUBROUTINE agrif_recompute_scalefactors
 #endif
+END MODULE agrif_recompute_scales