Changeset 14086 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zint.F90

Timestamp:

2020-12-04T12:37:14+01:00 (3 years ago)

Author:

cetlod

Message:

Adding AGRIF branches into the trunk

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zint.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zint.F90

@@ -19 +19 @@
    REAL(wp) ::   xksilim = 16.5e-6_wp   ! Half-saturation constant for the Si half-saturation constant computation
 
+#  include "do_loop_substitute.h90"
    !!----------------------------------------------------------------------
    !! NEMO/TOP 4.0 , NEMO Consortium (2018)
@@ -49 +50 @@
       ! Computation of the silicon dependant half saturation  constant for silica uptake
       ! ---------------------------------------------------
-      DO ji = 1, jpi
-         DO jj = 1, jpj
-            zvar = tr(ji,jj,1,jpsil,Kbb) * tr(ji,jj,1,jpsil,Kbb)
-            xksimax(ji,jj) = MAX( xksimax(ji,jj), ( 1.+ 7.* zvar / ( xksilim * xksilim + zvar ) ) * 1e-6 )
-         END DO
-      END DO
+      DO_2D( 1, 1, 1, 1 )
+         zvar = tr(ji,jj,1,jpsil,Kbb) * tr(ji,jj,1,jpsil,Kbb)
+         xksimax(ji,jj) = MAX( xksimax(ji,jj), ( 1.+ 7.* zvar / ( xksilim * xksilim + zvar ) ) * 1e-6 )
+      END_2D
       !
       IF( nday_year == nyear_len(1) ) THEN