Changeset 14831 for NEMO

Timestamp:

2021-05-11T09:51:03+02:00 (3 years ago)

Author:

sparonuz

Message:

Variables zFV,zFU were sometimes spelled zfV,zfU

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icedyn_rhg_vp.F90 (modified) (3 diffs)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/ICE/icedyn_rhg_vp.F90

@@ -1438 +1438 @@
          DO jj = 2, jpj - 1
             DO ji = 2, jpi - 1
-               zfU(ji,jj) = 0.5_wp * ( ( zs1(ji+1,jj) - zs1(ji,jj) ) * e2u(ji,jj)                                             &
+               zFU(ji,jj) = 0.5_wp * ( ( zs1(ji+1,jj) - zs1(ji,jj) ) * e2u(ji,jj)                                             &
                   &                  + ( zs2(ji+1,jj) * e2t(ji+1,jj) * e2t(ji+1,jj) - zs2(ji,jj) * e2t(ji,jj) * e2t(ji,jj)    &
                   &                    ) * r1_e2u(ji,jj)                                                                      &
@@ -1444 +1444 @@
                   &                    ) * 2._wp * r1_e1u(ji,jj)                                                              &
                   &                  ) * r1_e1e2u(ji,jj)
-               zfV(ji,jj) = 0.5_wp * ( ( zs1(ji,jj+1) - zs1(ji,jj) ) * e1v(ji,jj)                                             &
+               zFV(ji,jj) = 0.5_wp * ( ( zs1(ji,jj+1) - zs1(ji,jj) ) * e1v(ji,jj)                                             &
                   &                  - ( zs2(ji,jj+1) * e1t(ji,jj+1) * e1t(ji,jj+1) - zs2(ji,jj) * e1t(ji,jj) * e1t(ji,jj)    &
                   &                    ) * r1_e1v(ji,jj)                                                                      &
@@ -1453 +1453 @@
          END DO
             
-         CALL lbc_lnk( 'icedyn_rhg_vp', zfU, 'U', -1._wp, zfV, 'V', -1._wp )
-         
-         CALL iom_put( 'intstrx' , zfU   * zmsk00 )   ! Internal force term in force balance (x)
-         CALL iom_put( 'intstry' , zfV   * zmsk00 )   ! Internal force term in force balance (y)
+         CALL lbc_lnk( 'icedyn_rhg_vp', zFU, 'U', -1._wp, zFV, 'V', -1._wp )
+         
+         CALL iom_put( 'intstrx' , zFU   * zmsk00 )   ! Internal force term in force balance (x)
+         CALL iom_put( 'intstry' , zFV   * zmsk00 )   ! Internal force term in force balance (y)
          
       ENDIF