New URL for NEMO forge! http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.

Changeset 10676 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90 – NEMO

Context Navigation

← Previous Change
Next Change →

Changeset 10676 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

Timestamp:

2019-02-13T23:57:37+01:00 (5 years ago)

Author:

dford

Message:

Allocate array.

File:

: 1 edited

branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

-                      r10667
+                      r10676
          tracer_bkg(:,:,:,:) = 0.0
          mld_max_bkg(:,:)    = 0.0
+#if defined key_fabm
+         ALLOCATE( totalk_bkg(jpi,jpj,jpk) )
+         totalk_bkg(:,:,:) = 0.0
+#endif
          CALL iom_open( c_asmbkg, inum )

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: