Changeset 7590 for branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2017-01-20T16:51:19+01:00 (7 years ago)

Author:

kingr

Message:

Added diagnostics from operational version: Kara ML, diaopfoam, diurnal.

File:

• branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (3 diffs)

branches/UKMO/CO6_KD490_amm7_oper/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -46 +46 @@
    USE diatmb          ! Top,middle,bottom output
    USE dia25h          ! 25h Mean output
+   USE diaopfoam   ! Diaopfoam output
    USE iom
    USE ioipsl
@@ -189 +190 @@
                zztmpy = (  bfrva(ji,  jj) * vn(ji,jj  ,mbkv(ji,jj  ))  &
                       &  + bfrva(ji,jj-1) * vn(ji,jj-1,mbkv(ji,jj-1))  ) 
-               z2d(ji,jj) = rau0 * SQRT( zztmpx * zztmpx + zztmpy * zztmpy ) * tmask(ji,jj,1) 
+               z2d(ji,jj) = 0.5_wp * rau0 * SQRT( zztmpx * zztmpx + zztmpy * zztmpy ) * tmask(ji,jj,1) 
                !
             ENDDO
@@ -389 +390 @@
       IF (ln_dia25h) THEN
          CALL dia_25h( kt )
+      ENDIF
+      IF (ln_diaopfoam) THEN
+         CALL dia_diaopfoam
       ENDIF
       !