Changeset 4470
- Timestamp:
- 2014-02-04T13:18:24+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r4443 r4470 142 142 !! *** FUNCTION zdf_gls_alloc *** 143 143 !!---------------------------------------------------------------------- 144 ALLOCATE( en(jpi,jpj,jpk), mxln(jpi,jpj,jpk), zwall(jpi,jpj,jpk) , & 145 & ustars2(jpi,jpj), ustarb2(jpi,jpj) , STAT= zdf_gls_alloc ) 144 ALLOCATE( en(jpi,jpj,jpkorig), mxln(jpi,jpj,jpkorig), & 145 & zwall(jpi,jpj,jpkorig) , & 146 & ustars2(jpi,jpj), ustarb2(jpi,jpj) , STAT= zdf_gls_alloc ) 146 147 ! 147 148 IF( lk_mpp ) CALL mpp_sum ( zdf_gls_alloc )
Note: See TracChangeset
for help on using the changeset viewer.