Changeset 2787 for trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
- Timestamp:
- 2011-06-27T11:54:00+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r2758 r2787 41 41 !! *** FUNCTION zdf_mxl_alloc *** 42 42 !!---------------------------------------------------------------------- 43 zdf_mxl_alloc = 0 ! set to zero if no array to be allocated 43 44 IF( .NOT. ALLOCATED( nmln ) ) THEN 44 45 ALLOCATE( nmln(jpi,jpj), hmld(jpi,jpj), hmlp(jpi,jpj), hmlpt(jpi,jpj), STAT= zdf_mxl_alloc )
Note: See TracChangeset
for help on using the changeset viewer.