Changeset 13024 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_recompute_scalefactors.f90

Timestamp:

2020-06-03T16:26:23+02:00 (4 years ago)

Author:

rblod

Message:

First version of new nesting tools merged with domaincfg, see ticket #2129

File:

• utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_recompute_scalefactors.f90 (modified) (3 diffs)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_recompute_scalefactors.f90

@@ -9 +9 @@
       ! Scale factors and depth at U-, V-, UW and VW-points
       DO jk = 1, jpk                        ! initialisation to z-scale factors
-!         e3u_0 (:,:,jk) = e3t_1d(jk)
-!         e3v_0 (:,:,jk) = e3t_1d(jk)
+         e3u_0 (:,:,jk) = e3t_1d(jk)
+         e3v_0 (:,:,jk) = e3t_1d(jk)
          e3uw_0(:,:,jk) = e3w_1d(jk)
          e3vw_0(:,:,jk) = e3w_1d(jk)
@@ -18 +18 @@
          DO jj = 1, jpjm1
             DO ji = 1, jpim1   ! vector opt.
-!               e3u_0 (ji,jj,jk) = MIN( e3t_0(ji,jj,jk), e3t_0(ji+1,jj,jk) )
-!               e3v_0 (ji,jj,jk) = MIN( e3t_0(ji,jj,jk), e3t_0(ji,jj+1,jk) )
+               e3u_0 (ji,jj,jk) = MIN( e3t_0(ji,jj,jk), e3t_0(ji+1,jj,jk) )
+               e3v_0 (ji,jj,jk) = MIN( e3t_0(ji,jj,jk), e3t_0(ji,jj+1,jk) )
                e3uw_0(ji,jj,jk) = MIN( e3w_0(ji,jj,jk), e3w_0(ji+1,jj,jk) )
                e3vw_0(ji,jj,jk) = MIN( e3w_0(ji,jj,jk), e3w_0(ji,jj+1,jk) )
@@ -27 +27 @@
       IF ( ln_isfcav ) THEN
       ! (ISF) define e3uw (adapted for 2 cells in the water column)
+      print *,'NOT READY SINCE:'
+      print *,'MBATHY HAS NOT BEEN CORRECTED / UPDATED'
+      print *,'EVEN NOT COMPUTED IN THE CASE ln_read_cfg = .TRUE.'
+      STOP
          DO jj = 2, jpjm1 
             DO ji = 2, jpim1   ! vector opt.