Changeset 9125 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

Timestamp:

2017-12-19T09:47:17+01:00 (6 years ago)

Author:

timgraham

Message:

Removed wrk_arrays from whole code. No change in SETTE results from this.

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

@@ -420 +420 @@
       CHARACTER(LEN=100)   ::   cltxt
       INTEGER :: jk
-      REAL(wp), POINTER, DIMENSION(:,:,:) :: zwork
+      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zwork
       !!----------------------------------------------------------------------
       !
@@ -437 +437 @@
       ENDIF
 
-      CALL wrk_alloc( jpi, jpj, jpk, zwork )
-      !
       IF( iom_use( "pno3tot" ) .OR. ( ln_check_mass .AND. kt == nitend )  ) THEN
          !   Compute the budget of NO3, ALK, Si, Fer
@@ -503 +501 @@
       ENDIF
       !
-      CALL wrk_dealloc( jpi, jpj, jpk, zwork )
-      !
       ! Global budget of N SMS : denitrification in the water column and in the sediment
       !                          nitrogen fixation by the diazotrophs