Changeset 14286 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DIA/diawri.F90

Timestamp:

2021-01-11T18:30:11+01:00 (3 years ago)

Author:

mcastril

Message:

Reformatting and allowing to use key_qco

File:

• NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DIA/diawri.F90 (modified) (7 diffs)

NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/DIA/diawri.F90

@@ -75 +75 @@
    INTEGER ::   nid_T, nz_T, nh_T, ndim_T, ndim_hT   ! grid_T file
    INTEGER ::          nb_T              , ndim_bT   ! grid_T file
-   INTEGER ::   nid_U, nz_U, nh_U, ndim_U, ndim_hU   ! grid_U file
-   INTEGER ::   nid_V, nz_V, nh_V, ndim_V, ndim_hV   ! grid_V file
+
    INTEGER ::   nid_W, nz_W, nh_W                    ! grid_W file
    INTEGER ::   nid_A, nz_A, nh_A, ndim_A, ndim_hA   ! grid_ABL file   
@@ -354 +353 @@
                &                 * r1_e1e2t(ji,jj) / e3t(ji,jj,1,Kmm) * ssmask(ji,jj)
          END_2D
-         CALL lbc_lnk( 'diawri', z2d, 'T', 1. )
+         CALL lbc_lnk( 'diawri', z2d, 'T', 1._wp )
          IF ( iom_use("sKE" ) )  CALL iom_put( "sKE" , z2d )   
       ENDIF
@@ -367 +366 @@
                &                 * r1_e1e2f(ji,jj) / e3f(ji,jj,1) * ssfmask(ji,jj)
          END_2D
-         CALL lbc_lnk( 'diawri', z2d, 'F', 1. )
+         CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp )
          CALL iom_put( "ssKEf", z2d )                     
       ENDIF
@@ -482 +481 @@
             &              - e1u(ji  ,jj+1) * uu(ji  ,jj+1,1,Kmm) + e1u(ji,jj) * uu(ji,jj,1,Kmm)  ) * r1_e1e2f(ji,jj)
          END_2D
-         CALL lbc_lnk( 'diawri', z2d, 'F', 1. )
+         CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp )
          CALL iom_put( "ssrelvor", z2d )                  ! relative vorticity ( zeta ) 
          !
@@ -495 +494 @@
             z2d(ji,jj) = ze3 * z2d(ji,jj) 
          END_2D
-         CALL lbc_lnk( 'diawri', z2d, 'F', 1. )
+         CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp )
          CALL iom_put( "ssrelpotvor", z2d )                  ! relative potential vorticity (zeta/h)
          !
@@ -506 +505 @@
             z2d(ji,jj) = ze3 * ff_f(ji,jj) + z2d(ji,jj) 
          END_2D
-         CALL lbc_lnk( 'diawri', z2d, 'F', 1. )
+         CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp )
          CALL iom_put( "ssabspotvor", z2d )                  ! absolute potential vorticity ( q )
          !
@@ -512 +511 @@
             z2d(ji,jj) = 0.5_wp * z2d(ji,jj)  * z2d(ji,jj) 
          END_2D
-         CALL lbc_lnk( 'diawri', z2d, 'F', 1. )
+         CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp )
          CALL iom_put( "ssEns", z2d )                        ! potential enstrophy ( 1/2*q2 )
          !