Ignore:
Timestamp:
2011-06-27T11:54:00+02:00 (10 years ago)
Author:
cetlod
Message:

Bug correction in NEMO/OFFLINE, see ticket #841

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r2758 r2787  
    4141      !!               ***  FUNCTION zdf_mxl_alloc  *** 
    4242      !!---------------------------------------------------------------------- 
     43      zdf_mxl_alloc = 0      ! set to zero if no array to be allocated 
    4344      IF( .NOT. ALLOCATED( nmln ) ) THEN 
    4445         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.